Mercurial > emacs
changeset 38086:50acec1e0d30
(quickurl-url-file): Run through convert-standard-filename.
(quickurl-list-populate-buffer): Add help-echo to mouse-highlighted text.
(top level): Update Dave's URL.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:46:20 +0000 |
| parents | 4adf8e4eebfe |
| children | a7a0170d5939 |
| files | lisp/net/quickurl.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/quickurl.el Sun Jun 17 11:33:10 2001 +0000 +++ b/lisp/net/quickurl.el Sun Jun 17 11:46:20 2001 +0000 @@ -1,6 +1,6 @@ ;;; quickurl.el --- Insert an URL based on text at point in buffer. -;; Copyright (C) 1999,2000 Free Software Foundation, Inc. +;; Copyright (C) 1999,2000,2001 Free Software Foundation, Inc. ;; Author: Dave Pearson <davep@davep.org> ;; Maintainer: Dave Pearson <davep@davep.org> @@ -59,7 +59,7 @@ ;; (("GNU" . "http://www.gnu.org/") ;; ("FSF" "http://www.fsf.org/" "The Free Software Foundation") ;; ("emacs" . "http://www.emacs.org/") -;; ("hagbard" "http://www.hagbard.demon.co.uk" "Hagbard's World")) +;; ("davep" "http://www.davep.org/" "Dave's homepage")) ;; ;; In case you're wondering about the mixture of cons cells and lists, ;; quickurl started life using just the cons cells, there were no comments. @@ -105,7 +105,7 @@ :group 'abbrev :prefix "quickurl-") -(defcustom quickurl-url-file "~/.quickurls" +(defcustom quickurl-url-file (convert-standard-filename "~/.quickurls") "*File that contains the URL list." :type 'file :group 'quickurl) @@ -482,8 +482,9 @@ do (let ((start (point))) (insert (format fmt (quickurl-url-description url) (quickurl-url-url url))) - (put-text-property start (1- (point)) - 'mouse-face 'highlight))) + (add-text-properties start (1- (point)) + '(mouse-face highlight + help-echo "mouse-2: insert this URL")))) (setf (point) (point-min))))) (defun quickurl-list-add-url (word url comment)