diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-08 16:13:18 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-08 16:13:18 +0000 |
| commit | ee3c2877bf62577130d2d91731cceaced9cdad98 (patch) | |
| tree | f02710015d82c8ada1dfe7e4b31e7bbc3c43d175 /lisp | |
| parent | b861ffc3440c317c60b0eb86609044f4db9d2010 (diff) | |
| download | emacs-ee3c2877bf62577130d2d91731cceaced9cdad98.tar.gz | |
(follow-mode): Don't run hooks twice. Use `when'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/follow.el | 14 |
2 files changed, 10 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b98dac1e432..b8dab0b4989 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-10-08 Juanma Barranquero <lekktu@gmail.com> + + * follow.el (follow-mode): Don't run hooks twice. Use `when'. + 2007-10-07 Glenn Morris <rgm@gnu.org> * simple.el (bad-packages-alist): Clarify Semantic and CEDET diff --git a/lisp/follow.el b/lisp/follow.el index e28edae846e..eddb1037a43 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -602,20 +602,18 @@ is called. When turned off, `follow-mode-off-hook' is called. Keys specific to Follow mode: \\{follow-mode-map}" :keymap follow-mode-map - (if (and follow-mode follow-intercept-processes) - (follow-intercept-process-output)) + (when (and follow-mode follow-intercept-processes) + (follow-intercept-process-output)) (cond (follow-mode ; On ;; XEmacs: If this is non-nil, the window will scroll before ;; the point will have a chance to get into the next window. - (if (boundp 'scroll-on-clipped-lines) - (setq scroll-on-clipped-lines nil)) + (when (boundp 'scroll-on-clipped-lines) + (setq scroll-on-clipped-lines nil)) (force-mode-line-update) - (add-hook 'post-command-hook 'follow-post-command-hook t) - (run-hooks 'follow-mode-hook)) + (add-hook 'post-command-hook 'follow-post-command-hook t)) ((not follow-mode) ; Off - (force-mode-line-update) - (run-hooks 'follow-mode-off-hook)))) + (force-mode-line-update)))) ;;}}} ;;{{{ Find file hook |