projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2b43925
)
Fix indentation.
author
Chris Hanson
<org/chris-hanson/cph>
Sat, 26 May 2001 01:55:10 +0000
(
01:55
+0000)
committer
Chris Hanson
<org/chris-hanson/cph>
Sat, 26 May 2001 01:55:10 +0000
(
01:55
+0000)
v7/src/imail/imail-top.scm
patch
|
blob
|
history
diff --git
a/v7/src/imail/imail-top.scm
b/v7/src/imail/imail-top.scm
index 2dd5ddaec844997d5be36eb0a93ba3c8718c2232..698f00d3a9550c2ef189721039ee4ce19c2bca6e 100644
(file)
--- a/
v7/src/imail/imail-top.scm
+++ b/
v7/src/imail/imail-top.scm
@@
-1,6
+1,6
@@
;;; -*-Scheme-*-
;;;
-;;; $Id: imail-top.scm,v 1.25
2 2001/05/25 18:16:56
cph Exp $
+;;; $Id: imail-top.scm,v 1.25
3 2001/05/26 01:55:10
cph Exp $
;;;
;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
;;;
@@
-2022,7
+2022,7
@@
Negative argument means search in reverse."
(or (let ((selector
(buffer-get (mark-buffer mark) 'IMAIL-URL-SELECTOR #f)))
(and selector
- (selector mark)))
+
(selector mark)))
(and (if (default-object? error?) #t error?)
(error "No selected URL:" mark)))))