diff options
| author | Juri Linkov <juri@jurta.org> | 2006-09-02 23:28:55 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2006-09-02 23:28:55 +0000 |
| commit | ea1f948dd8b81eca44d72882eeac20e7940ef3ca (patch) | |
| tree | f32796fbbdef9967436dcc3de88ae15212ef2fa8 /lisp/man.el | |
| parent | 864ac5d4d791115e144859e38bde5a1ffed87d92 (diff) | |
| download | emacs-ea1f948dd8b81eca44d72882eeac20e7940ef3ca.tar.gz emacs-ea1f948dd8b81eca44d72882eeac20e7940ef3ca.tar.bz2 emacs-ea1f948dd8b81eca44d72882eeac20e7940ef3ca.zip | |
(Man-topic-history): New variable.
(man): Use it.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)))) |