From: Juri Linkov <juri@jurta.org>
Date: Sat, 2 Sep 2006 23:28:55 +0000 (+0000)
Subject: (Man-topic-history): New variable.
X-Git-Tag: emacs-pretest-22.0.90~787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea1f948dd8b81eca44d72882eeac20e7940ef3ca;p=emacs.git

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

diff --git a/lisp/man.el b/lisp/man.el
index 77c089b9d8d..2351853eeca 100644
--- 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))))