(gnus-button-patch): New command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f54b8be..118bb42 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-art.el (gnus-article-treat-types): Do treatment of
        text/x-verbatim parts.
+       (gnus-button-patch): New command.
 
        * ietf-drums.el (ietf-drums-parse-address): Attempt parsing
        addresses that contain invalid characters.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 105e60e..ca3d860 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7094,6 +7094,15 @@ specified by `gnus-button-alist'."
      (group
       (gnus-button-fetch-group url)))))
 
+(defun gnus-button-patch (library line)
+  "Visit an Emacs Lisp library LIBRARY on line LINE."
+  (interactive)
+  (let ((file (locate-library library)))
+    (unless file
+      (error "Couldn't find library %s" library))
+    (find-file file)
+    (goto-line (string-to-number line))))
+
 (defun gnus-button-handle-man (url)
   "Fetch a man page."
   (gnus-message 9 "`%s' `%s'" gnus-button-man-handler url)