Following links in *Help* do not add files to file-name-history

[Slawomir Nowaczyk]

Hello,

Following link to source file in *Help* buffers (like C-h f lambda TAB
RET) visits the file correctly, but does not add visited file to the
file-name-history.

I think it should.

The following patch seems to work for me:

********************************************************************************

--- EmacsCVS/lisp/help-mode.el      2006-08-11 12:45:35.727585600 +0200
+++ Emacs/lisp/help-mode.el  2006-10-12 12:31:13.512827200 +0200
@@ -157,6 +157,7 @@
                   (let ((location
                          (find-function-search-for-symbol fun nil file)))
                     (pop-to-buffer (car location))
+                     (add-to-history 'file-name-history (buffer-file-name (car 
location)))
                     (if (cdr location)
                         (goto-char (cdr location))
                       (message "Unable to find location in file"))))
@@ -169,6 +170,7 @@
                     (setq file (help-C-file-name var 'var)))
                   (let ((location (find-variable-noselect var file)))
                     (pop-to-buffer (car location))
+                     (add-to-history 'file-name-history (buffer-file-name (car 
location)))
                     (if (cdr location)
                       (goto-char (cdr location))
                       (message "Unable to find location in file"))))
@@ -183,6 +185,7 @@
                   (let ((location
                          (find-function-search-for-symbol fun 'defface file)))
                     (pop-to-buffer (car location))
+                     (add-to-history 'file-name-history (buffer-file-name (car 
location)))
                     (if (cdr location)
                         (goto-char (cdr location))
                       (message "Unable to find location in file"))))

********************************************************************************

-- 
 Best wishes,
   Slawomir Nowaczyk
     ( address@hidden )

There are 3 kinds of people:  those who can count & those who can't.