iankelling.org
/
git
/
visible-mark
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4f49680
)
use mapc instead of mapcar where appropriate
author
John Foerch
<jjfoerch@earthlink.net>
Tue, 7 Dec 2010 20:21:56 +0000
(15:21 -0500)
committer
John Foerch
<jjfoerch@earthlink.net>
Tue, 7 Dec 2010 20:21:56 +0000
(15:21 -0500)
visible-mark.el
patch
|
blob
|
history
diff --git
a/visible-mark.el
b/visible-mark.el
index 1ca0419674ed38632872532587dc199a45abe9c4..8bc719a85fa22ed4e9a72778843c66ef5eee2b74 100644
(file)
--- a/
visible-mark.el
+++ b/
visible-mark.el
@@
-67,7
+67,7
@@
:type '(repeat regexp))
(defun visible-mark-initialize-overlays ()
:type '(repeat regexp))
(defun visible-mark-initialize-overlays ()
- (mapc
ar
'delete-overlay visible-mark-overlays)
+ (mapc 'delete-overlay visible-mark-overlays)
(let (overlays)
(dotimes (i visible-mark-max)
(let ((overlay (make-overlay (point-min) (point-min))))
(let (overlays)
(dotimes (i visible-mark-max)
(let ((overlay (make-overlay (point-min) (point-min))))
@@
-138,7
+138,7
@@
(progn
(visible-mark-initialize-overlays)
(add-hook 'post-command-hook 'visible-mark-move-overlays nil t))
(progn
(visible-mark-initialize-overlays)
(add-hook 'post-command-hook 'visible-mark-move-overlays nil t))
- (mapc
ar
'delete-overlay visible-mark-overlays)
+ (mapc 'delete-overlay visible-mark-overlays)
(setq visible-mark-overlays nil)
(remove-hook 'post-command-hook 'visible-mark-move-overlays t)))
(setq visible-mark-overlays nil)
(remove-hook 'post-command-hook 'visible-mark-move-overlays t)))