# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1157239735 0
# Node ID 5dd4533a9a7ef3bb6ab7f9c8dad81b051d9a9a04
# Parent  396706df4954ef0b6b096652e539e1ee903398da
(Man-topic-history): New variable.
(man): Use it.

diff -r 396706df4954 -r 5dd4533a9a7e lisp/man.el
--- 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))))