Mercurial > emacs
changeset 84659:76e7ca025173
(finder-compile-keywords): Fix up comment style.
(finder-mouse-face-on-line): previous-line -> forward-line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 19 Sep 2007 14:57:02 +0000 |
| parents | d1ea5efb14f2 |
| children | 7d71915e566c |
| files | lisp/ChangeLog lisp/finder.el |
| diffstat | 2 files changed, 11 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 19 14:54:21 2007 +0000 +++ b/lisp/ChangeLog Wed Sep 19 14:57:02 2007 +0000 @@ -1,5 +1,8 @@ 2007-09-19 Stefan Monnier <monnier@iro.umontreal.ca> + * finder.el (finder-compile-keywords): Fix up comment style. + (finder-mouse-face-on-line): previous-line -> forward-line. + * recentf.el: Remove spurious * in docstrings. (recentf-save-list): Fix up comment style.
--- a/lisp/finder.el Wed Sep 19 14:54:21 2007 +0000 +++ b/lisp/finder.el Wed Sep 19 14:57:02 2007 +0000 @@ -179,12 +179,12 @@ \(provide '" (file-name-sans-extension (file-name-nondirectory generated-finder-keywords-file)) ") -;;; Local Variables: -;;; version-control: never -;;; no-byte-compile: t -;;; no-update-autoloads: t -;;; End: -;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n") +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; End: +\;;; " (file-name-nondirectory generated-finder-keywords-file) " ends here\n") (kill-buffer "*finder-scratch*") (eval-buffer) ;; So we get the new keyword list immediately (basic-save-buffer)))) @@ -207,7 +207,7 @@ (defun finder-mouse-face-on-line () "Put `mouse-face' and `help-echo' properties on the previous line." (save-excursion - (previous-line 1) + (forward-line -1) (unless finder-help-echo (setq finder-help-echo (let* ((keys1 (where-is-internal 'finder-select @@ -372,5 +372,5 @@ (provide 'finder) -;;; arch-tag: ec85ff49-8cb8-41f5-a63f-9131d53ce2c5 +;; arch-tag: ec85ff49-8cb8-41f5-a63f-9131d53ce2c5 ;;; finder.el ends here