From 6081889eb5223289095eec80fea59e036bbe0392 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 28 Aug 2006 15:40:21 +0000 Subject: * 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. --- lisp/ChangeLog | 8 ++++++++ lisp/ibuffer.el | 4 ++-- 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 + + * 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 * 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. -- cgit v1.2.1