Mercurial > emacs
changeset 72564:976ef29e497e
* woman.el (woman-follow): New function, based on `man-follow'.
(woman-mode-map): Use it.
* ibuffer.el (ibuffer-do-sort-by-recency): Perform full update
since ibuffer-do-sort-by-recency does not define a sorter.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 28 Aug 2006 15:40:21 +0000 |
| parents | b35915fd7ce7 |
| children | 186382a0d1cc |
| files | lisp/ChangeLog lisp/ibuffer.el lisp/woman.el |
| diffstat | 3 files changed, 22 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Aug 28 12:03:22 2006 +0000 +++ b/lisp/ChangeLog Mon Aug 28 15:40:21 2006 +0000 @@ -1,3 +1,11 @@ +2006-08-28 Chong Yidong <cyd@stupidchicken.com> + + * woman.el (woman-follow): New function, based on `man-follow'. + (woman-mode-map): Use it. + + * ibuffer.el (ibuffer-do-sort-by-recency): Perform full update + since ibuffer-do-sort-by-recency does not define a sorter. + 2006-08-28 Kim F. Storm <storm@cua.dk> * find-dired.el (find-dired): Use shell-quote-argument to properly
--- a/lisp/ibuffer.el Mon Aug 28 12:03:22 2006 +0000 +++ b/lisp/ibuffer.el Mon Aug 28 15:40:21 2006 +0000 @@ -1972,12 +1972,12 @@ (not (eq ibuffer-buf buf)))))) ;; This function is a special case; it's not defined by -;; `ibuffer-define-sorter'. +;; `define-ibuffer-sorter'. (defun ibuffer-do-sort-by-recency () "Sort the buffers by last view time." (interactive) (setq ibuffer-sorting-mode 'recency) - (ibuffer-redisplay t)) + (ibuffer-update nil t)) (defun ibuffer-update-format () (when (null ibuffer-current-format)
--- a/lisp/woman.el Mon Aug 28 12:03:22 2006 +0000 +++ b/lisp/woman.el Mon Aug 28 15:40:21 2006 +0000 @@ -1750,7 +1750,18 @@ (define-key woman-mode-map [M-mouse-2] 'woman-follow-word) ;; We don't need to call `man' when we are in `woman-mode'. - (define-key woman-mode-map [remap man] 'woman)) + (define-key woman-mode-map [remap man] 'woman) + (define-key woman-mode-map [remap man-follow] 'woman-follow)) + +(defun woman-follow (topic) + "Get a Un*x manual page of the item under point and put it in a buffer." + (interactive (list (Man-default-man-entry))) + (if (or (not topic) + (string= topic "")) + (error "No item under point") + (woman (if (string-match Man-reference-regexp topic) + (substring topic 0 (match-end 1)) + topic)))) (defun woman-follow-word (event) "Run WoMan with word under mouse as topic.