(goto-address-fontify): Use keymap property, not local-map.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e8b424cbf1b02e783ee4ce081c73e7c87d38785..a864949c18f11e9e440a6c0b8fc7cc7bc10b7a43 100644 (file)
--- 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 d5da380f2e51cb9aa799ec8de5051f089b464f0e..667439710c59998c108cef86e0bd1299f7a0ecd2 100644 (file)
--- 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)))))