(Man-topic-history): New variable.

(man): Use it.

diff --git a/lisp/man.el b/lisp/man.el
index 77c089b9d8db8870fe9130d45b7ea690f03d03bb..2351853eeca3f73d1c88e85deeb98d3db4378eae 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -388,6 +388,8 @@ Otherwise, the value is whatever the function
 /\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 @@ all sections related to a subject, put something appropriate into the
                                (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))))