diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:17:39 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:17:39 +0000 |
| commit | 1909cca025b83e017eff9e514f89542a3ae20c5c (patch) | |
| tree | 4f7051b6080ee74f9fc437fd2c4c5b0dcd72909b /lisp/woman.el | |
| parent | 254fc6616dc09f1348cb7fd0dff0aca0341764a3 (diff) | |
| download | emacs-1909cca025b83e017eff9e514f89542a3ae20c5c.tar.gz | |
(woman-dired-define-keys): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 4 |
1 files changed, 2 insertions, 2 deletions
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]) |