# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1156779621 0
# Node ID 976ef29e497ed2911f5c28fad38cce79ffe41076
# Parent  b35915fd7ce73205e1336f83ef1864b6700b32d7
	* 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.

diff -r b35915fd7ce7 -r 976ef29e497e lisp/ChangeLog
--- 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
diff -r b35915fd7ce7 -r 976ef29e497e lisp/ibuffer.el
--- 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)
diff -r b35915fd7ce7 -r 976ef29e497e lisp/woman.el
--- 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.