diff options
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 26830ae1c3a..d1438dbf17e 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -134,7 +134,7 @@ no arguments compiles from `load-path'." (insert ";; Don't edit this file. It's generated by finder.el\n\n") (insert ";;; Code:\n") (insert "\n(setq finder-package-info '(\n") - (mapcar + (mapc (lambda (d) (when (file-exists-p (directory-file-name d)) (message "Directory %s" d) @@ -179,12 +179,12 @@ no arguments compiles from `load-path'." \(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 @@ no arguments compiles from `load-path'." (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 @@ finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"))) (provide 'finder) -;;; arch-tag: ec85ff49-8cb8-41f5-a63f-9131d53ce2c5 +;; arch-tag: ec85ff49-8cb8-41f5-a63f-9131d53ce2c5 ;;; finder.el ends here |