[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp help-mode.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp help-mode.el |
Date: |
Fri, 11 Sep 2009 03:39:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/11 03:39:48
Modified files:
lisp : help-mode.el
Log message:
(help-function-cmacro): New button.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/help-mode.el?cvsroot=emacs&r1=1.67&r2=1.68
Patches:
Index: help-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-mode.el,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -b -r1.67 -r1.68
--- help-mode.el 30 Mar 2009 01:15:08 -0000 1.67
+++ help-mode.el 11 Sep 2009 03:39:48 -0000 1.68
@@ -202,6 +202,22 @@
(message "Unable to find location in file"))))
'help-echo (purecopy "mouse-2, RET: find function's definition"))
+(define-button-type 'help-function-cmacro
+ :supertype 'help-xref
+ 'help-function (lambda (fun file)
+ (setq file (locate-library file t))
+ (if (and file (file-readable-p file))
+ (progn
+ (pop-to-buffer (find-file-noselect file))
+ (goto-char (point-min))
+ (if (re-search-forward
+ (format "^[ \t]*(define-compiler-macro[ \t]+%s"
+ (regexp-quote (symbol-name fun))) nil t)
+ (forward-line 0)
+ (message "Unable to find location in file")))
+ (message "Unable to find file")))
+ 'help-echo (purecopy "mouse-2, RET: find function's compiler macro"))
+
(define-button-type 'help-variable-def
:supertype 'help-xref
'help-function (lambda (var &optional file)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp help-mode.el,
Glenn Morris <=