diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-08-28 15:40:21 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-08-28 15:40:21 +0000 |
| commit | 6081889eb5223289095eec80fea59e036bbe0392 (patch) | |
| tree | 8b6056fa4f1e64ad3eafc8fdfed90a0a5a16dfe1 | |
| parent | 62d8e3d40e49e7da32c520b79b115878e910e89f (diff) | |
| download | emacs-6081889eb5223289095eec80fea59e036bbe0392.tar.gz | |
* 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.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/ibuffer.el | 4 | ||||
| -rw-r--r-- | lisp/woman.el | 13 |
3 files changed, 22 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 378eb276091..cdb21cb510d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 29767cee7f6..04672f6e29f 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1972,12 +1972,12 @@ the value of point at the beginning of the line for that buffer." (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) diff --git a/lisp/woman.el b/lisp/woman.el index 2392d0bfa4c..f4e01bcdd4e 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -1750,7 +1750,18 @@ Leave point at end of new text. Return length of inserted text." (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. |