[Emacs-diffs] emacs/lisp help-mode.el

[Glenn Morris]

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)