Mercurial > emacs

comparison lisp/woman.el @ 84881:b0d17e361aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(woman-dired-define-keys): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 25 Sep 2007 11:16:03 +0000
parents ec0a616d2629
children 4d9afe4d96b4
comparison
equal deleted inserted replaced
84880:edcc591dc3a4 84881:b0d17e361aac
593 "\ 593 "\
594 ^[ \t]*\\(?:\\(?:MANDATORY_\\|OPTIONAL_\\)?MANPATH[ \t]+\\(\\S-+\\)\\|\ 594 ^[ \t]*\\(?:\\(?:MANDATORY_\\|OPTIONAL_\\)?MANPATH[ \t]+\\(\\S-+\\)\\|\
595 MANPATH_MAP[ \t]+\\(\\S-+\\)[ \t]+\\(\\S-+\\)\\)" nil t) 595 MANPATH_MAP[ \t]+\\(\\S-+\\)[ \t]+\\(\\S-+\\)\\)" nil t)
596 (add-to-list 'manpath 596 (add-to-list 'manpath
597 (if (match-beginning 1) 597 (if (match-beginning 1)
598 (match-string 1) 598 (match-string 1)
599 (cons (match-string 2) 599 (cons (match-string 2)
600 (match-string 3))))) 600 (match-string 3)))))
601 manpath)) 601 manpath))
602 )) 602 ))
603 (setq path (cdr path))) 603 (setq path (cdr path)))
1523 1523
1524 (defun woman-dired-define-keys () 1524 (defun woman-dired-define-keys ()
1525 "Define dired keys to run WoMan according to `woman-dired-keys'." 1525 "Define dired keys to run WoMan according to `woman-dired-keys'."
1526 (if woman-dired-keys 1526 (if woman-dired-keys
1527 (if (listp woman-dired-keys) 1527 (if (listp woman-dired-keys)
1528 (mapcar 'woman-dired-define-key woman-dired-keys) 1528 (mapc 'woman-dired-define-key woman-dired-keys)
1529 (woman-dired-define-key-maybe "w") 1529 (woman-dired-define-key-maybe "w")
1530 (woman-dired-define-key-maybe "W"))) 1530 (woman-dired-define-key-maybe "W")))
1531 (define-key-after (lookup-key dired-mode-map [menu-bar immediate]) 1531 (define-key-after (lookup-key dired-mode-map [menu-bar immediate])
1532 [woman] '("Read Man Page (WoMan)" . woman-dired-find-file) 'view)) 1532 [woman] '("Read Man Page (WoMan)" . woman-dired-find-file) 'view))
1533 1533