diff options
| author | Dave Love <fx@gnu.org> | 2000-06-15 11:43:01 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-06-15 11:43:01 +0000 |
| commit | 28223a7ebc34af3c5b03fcd4b907cf426da2b469 (patch) | |
| tree | 94ead0311a442843ffa332df307555fdeca4ed7c | |
| parent | 8a33cf7b2129899072050b94c9dd8ee2d95c79ea (diff) | |
| download | emacs-28223a7ebc34af3c5b03fcd4b907cf426da2b469.tar.gz | |
(goto-address-fontify): Use keymap property, not local-map.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/goto-addr.el | 14 |
2 files changed, 12 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e8b424cbf1..a864949c18f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-06-15 Dave Love <fx@gnu.org> + + * net/goto-addr.el (goto-address-fontify): Use keymap property, + not local-map. + 2000-06-15 Kenichi Handa <handa@etl.go.jp> * international/mule.el (set-buffer-file-coding-system): Almost diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index d5da380f2e5..667439710c5 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -39,7 +39,7 @@ ;; ;; (add-hook 'mh-show-mode-hook 'goto-address) ;; -;; The mouse click method is bound to [mouse-2] on highlighted URL's or +;; The mouse click method is bound to [mouse-2] on highlighted URLs or ;; e-mail addresses only; it functions normally everywhere else. To bind ;; another mouse click to the function, add the following to your .emacs ;; (for example): @@ -75,18 +75,18 @@ ;;; I don't expect users to want fontify'ing without highlighting. (defcustom goto-address-fontify-p t - "*If t, URL's and e-mail addresses in buffer are fontified. + "*If t, URLs and e-mail addresses in buffer are fontified. But only if `goto-address-highlight-p' is also non-nil." :type 'boolean :group 'goto-address) (defcustom goto-address-highlight-p t - "*If t, URL's and e-mail addresses in buffer are highlighted." + "*If t, URLs and e-mail addresses in buffer are highlighted." :type 'boolean :group 'goto-address) (defcustom goto-address-fontify-maximum-size 30000 - "*Maximum size of file in which to fontify and/or highlight URL's." + "*Maximum size of file in which to fontify and/or highlight URLs." :type 'integer :group 'goto-address) @@ -129,7 +129,7 @@ But only if `goto-address-highlight-p' is also non-nil." :group 'goto-address) (defun goto-address-fontify () - "Fontify the URL's and e-mail addresses in the current buffer. + "Fontify the URLs and e-mail addresses in the current buffer. This function implements `goto-address-highlight-p' and `goto-address-fontify-p'." (save-excursion @@ -150,7 +150,7 @@ and `goto-address-fontify-p'." (overlay-put this-overlay 'help-echo "mouse-2: follow URL") (overlay-put this-overlay - 'local-map goto-address-highlight-keymap))) + 'keymap goto-address-highlight-keymap))) (goto-char (point-min)) (while (re-search-forward goto-address-mail-regexp nil t) (let* ((s (match-beginning 0)) @@ -163,7 +163,7 @@ and `goto-address-fontify-p'." (overlay-put this-overlay 'help-echo "mouse-2: follow URL") (overlay-put this-overlay - 'local-map goto-address-highlight-keymap))))) + 'keymap goto-address-highlight-keymap))))) (and (buffer-modified-p) (not modified) (set-buffer-modified-p nil))))) |