[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9596acc: fix link to source code in help window
From: |
Ivan Kanis |
Subject: |
[Emacs-diffs] master 9596acc: fix link to source code in help window |
Date: |
Sun, 09 Aug 2015 09:36:52 +0000 |
branch: master
commit 9596accf506e66153d9a24828d530543edd8f4b8
Author: Ivan Kanis <address@hidden>
Commit: Ivan Kanis <address@hidden>
fix link to source code in help window
* lisp/help-fns.el (find-lisp-object-file-name): remove code that
will never work due to Glenn Morris change a6d63d9 on Apr 20 2013
'No longer include timestamp in header of .elc files'. Add code
that will return .el source file in load-path.
---
lisp/help-fns.el | 14 +-------------
1 files changed, 1 insertions(+), 13 deletions(-)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 1c7a68a..0836c7f 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -275,19 +275,7 @@ suitable file is found, return nil."
lib-name)
file-name))
;; The next three forms are from `find-source-lisp-file'.
- (elc-file (locate-file
- (concat file-name
- (if (string-match "\\.el\\'" file-name)
- "c"
- ".elc"))
- load-path nil 'readable))
- (str (when elc-file
- (with-temp-buffer
- (insert-file-contents-literally elc-file nil 0 256)
- (buffer-string))))
- (src-file (and str
- (string-match ";;; from file \\(.*\\.el\\)" str)
- (match-string 1 str))))
+ (src-file (locate-library file-name t nil 'readable)))
(and src-file (file-readable-p src-file) src-file))))))
(defun help-fns--key-bindings (function)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9596acc: fix link to source code in help window,
Ivan Kanis <=