[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Following links in *Help* do not add files to file-name-history
From: |
Slawomir Nowaczyk |
Subject: |
Following links in *Help* do not add files to file-name-history |
Date: |
Thu, 12 Oct 2006 12:33:53 +0200 |
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.
- Following links in *Help* do not add files to file-name-history,
Slawomir Nowaczyk <=