diff lisp/man.el @ 72619:5dd4533a9a7e

(Man-topic-history): New variable. (man): Use it.

--- a/lisp/man.el	Sat Sep 02 22:18:44 2006 +0000
+++ b/lisp/man.el	Sat Sep 02 23:28:55 2006 +0000
@@ -388,6 +388,8 @@
 /\e\\[[0-9][0-9]*m/ s///g"
   "Script for berkeley-like sed to nuke backspaces and ANSI codes from manpages.")
 
+(defvar Man-topic-history nil "Topic read history.")
+
 (defvar man-mode-syntax-table
   (let ((table (copy-syntax-table (standard-syntax-table))))
     (modify-syntax-entry ?. "w" table)
@@ -686,7 +688,7 @@
 				(if (string= default-entry "")
 				    ": "
 				  (format " (default %s): " default-entry)))
-			nil nil default-entry)))
+			nil 'Man-topic-history default-entry)))
 	   (if (string= input "")
 	       (error "No man args given")
 	     input))))