[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-mode.el
From: |
Bill Wohler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-mode.el |
Date: |
Fri, 28 Oct 2005 17:27:14 -0400 |
Index: emacs/lisp/help-mode.el
diff -c emacs/lisp/help-mode.el:1.38 emacs/lisp/help-mode.el:1.39
*** emacs/lisp/help-mode.el:1.38 Sat Aug 6 22:13:43 2005
--- emacs/lisp/help-mode.el Fri Oct 28 21:27:13 2005
***************
*** 126,132 ****
(define-button-type 'help-info
:supertype 'help-xref
'help-function #'info
! 'help-echo (purecopy"mouse-2, RET: read this Info node"))
(define-button-type 'help-customize-variable
:supertype 'help-xref
--- 126,137 ----
(define-button-type 'help-info
:supertype 'help-xref
'help-function #'info
! 'help-echo (purecopy "mouse-2, RET: read this Info node"))
!
! (define-button-type 'help-url
! :supertype 'help-xref
! 'help-function #'browse-url
! 'help-echo (purecopy "mouse-2, RET: view this URL in a browser"))
(define-button-type 'help-customize-variable
:supertype 'help-xref
***************
*** 257,262 ****
--- 262,271 ----
(purecopy "\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+`\\([^']+\\)'")
"Regexp matching doc string references to an Info node.")
+ (defconst help-xref-url-regexp
+ (purecopy "\\<[Uu][Rr][Ll][ \t\n]+`\\([^']+\\)'")
+ "Regexp matching doc string references to a URL.")
+
;;;###autoload
(defun help-setup-xref (item interactive-p)
"Invoked from commands using the \"*Help*\" buffer to install some xref
info.
***************
*** 338,343 ****
--- 347,357 ----
(unless (string-match "^([^)]+)" data)
(setq data (concat "(emacs)" data))))
(help-xref-button 2 'help-info data))))
+ ;; URLs
+ (save-excursion
+ (while (re-search-forward help-xref-url-regexp nil t)
+ (let ((data (match-string 1)))
+ (help-xref-button 1 'help-url data))))
;; Mule related keywords. Do this before trying
;; `help-xref-symbol-regexp' because some of Mule
;; keywords have variable or function definitions.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/help-mode.el,
Bill Wohler <=