From 1909cca025b83e017eff9e514f89542a3ae20c5c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:17:39 +0000 Subject: [PATCH] (woman-dired-define-keys): Use `mapc' rather than `mapcar'. --- lisp/ChangeLog | 58 ++++++++++++++++++++++++++++++++++++++++++-------- lisp/woman.el | 4 ++-- 2 files changed, 51 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f72ae95ad0b..8d694708e0d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,43 @@ +2007-09-25 Juanma Barranquero + + * allout.el (produce-allout-mode-map, allout-process-exposed): + * ansi-color.el (ansi-color-make-color-map): + * autoinsert.el (auto-insert): + * bookmark.el (bookmark-bmenu-list, bookmark-show-all-annotations): + * dired-aux.el (dired-create-files): + * dired.el (dired-restore-desktop-buffer): + * ediff-diff.el (ediff-setup-fine-diff-regions): + * ediff-mult.el (ediff-intersect-directories) + (ediff-redraw-directory-group-buffer, ediff-dir-diff-copy-file) + (ediff-redraw-registry-buffer): + * ediff-ptch.el (ediff-fixup-patch-map): + * ediff-util.el (ediff-toggle-multiframe, ediff-toggle-use-toolbar) + (ediff-really-quit, ediff-clear-diff-vector): + * emerge.el (emerge-really-quit): + * ffap.el (ffap-replace-file-component): + * filecache.el (file-cache-add-directory) + (file-cache-add-directory-recursively) + (file-cache-add-from-file-cache-buffer, file-cache-delete-file-regexp) + (file-cache-delete-directory, file-cache-files-matching-internal) + (file-cache-display): + * files.el (cd): + * find-lisp.el (find-lisp-insert-directory): + * finder.el (finder-compile-keywords): + * help.el (view-emacs-news): + * hi-lock.el (hi-lock-write-interactive-patterns): + * ido.el (ido-to-end, ido-set-matches-1): + * image-dired.el (image-dired-display-thumbs, image-dired-remove-tag) + (image-dired-mark-tagged-files): + * jka-cmpr-hook.el (jka-compr-get-compression-info): + * printing.el (pr-eval-local-alist, pr-eval-setting-alist): + * ps-print.el (ps-background, ps-begin-file) + (ps-build-reference-face-lists): + * simple.el (clone-buffer): + * startup.el (command-line): + * tempo.el (tempo-insert-template, tempo-is-user-element) + (tempo-forward-mark, tempo-backward-mark): + * woman.el (woman-dired-define-keys): Use `mapc' rather than `mapcar'. + 2007-09-25 Glenn Morris * textmodes/tex-mode.el (tex-font-script-display): Doc fix. @@ -7,8 +47,8 @@ 2007-09-24 Dan Nicolaescu - * progmodes/cc-mode.el (c-mode-base-map): Use - c-indent-line-or-region instead of c-indent-line. + * progmodes/cc-mode.el (c-mode-base-map): + Use c-indent-line-or-region instead of c-indent-line. * indent.el (indent-for-tab-command): First check if the region is active. @@ -25,13 +65,13 @@ 2007-09-24 Michael Albinus * net/tramp.el (tramp-completion-mode-p): Rename from - `tramp-completion-mode'. Revert logic, check `return', `newline' - and such alike. Packages like Icicles tend to use other completion + `tramp-completion-mode'. Revert logic, check `return', `newline' + and such alike. Packages like Icicles tend to use other completion characters but `tab' and `space' only. 2007-09-24 Adam Hupp - * progmodes/python.el (run-python): Import emacs module without + * progmodes/python.el (run-python): Import Emacs module without waiting; prevents lockup on error. 2007-09-23 Richard Stallman @@ -60,8 +100,8 @@ * term/sun-mouse.el (print-mouse-format): Likewise. - * term/sun.el (scroll-down-in-place, scroll-up-in-place): Use - forward-line instead of previous-line and next-line. + * term/sun.el (scroll-down-in-place, scroll-up-in-place): + Use forward-line instead of previous-line and next-line. 2007-09-22 Juri Linkov @@ -121,8 +161,8 @@ safe-local-variable setting. * bookmark.el (bookmark-xemacsp): Remove. - (bookmark-make): Don't use bookmark-xemacsp, use - (featurep 'xemacs) instead. + (bookmark-make): Don't use bookmark-xemacsp, + use (featurep 'xemacs) instead. * speedbar.el (speedbar-frame-mode) (speedbar-frame-reposition-smartly) diff --git a/lisp/woman.el b/lisp/woman.el index 10cf609b174..d6ad23e0cdf 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -595,7 +595,7 @@ or MANPATH_MAP[ \t]+\\(\\S-+\\)[ \t]+\\(\\S-+\\)\\)" nil t) (add-to-list 'manpath (if (match-beginning 1) - (match-string 1) + (match-string 1) (cons (match-string 2) (match-string 3))))) manpath)) @@ -1525,7 +1525,7 @@ Also make each path-info component into a list. "Define dired keys to run WoMan according to `woman-dired-keys'." (if woman-dired-keys (if (listp woman-dired-keys) - (mapcar 'woman-dired-define-key woman-dired-keys) + (mapc 'woman-dired-define-key woman-dired-keys) (woman-dired-define-key-maybe "w") (woman-dired-define-key-maybe "W"))) (define-key-after (lookup-key dired-mode-map [menu-bar immediate]) -- 2.39.5