martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(quickurl): Doc fix.

Browse Source
This commit is contained in:
Richard M. Stallman
1999-09-03 00:57:50 +00:00
parent 056e4a0add
commit e123e0249d
1 changed files with 10 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/quickurl.el
View File

@@ -27,13 +27,11 @@
;;; Commentary:
;;
;; This package provides a simple method of inserting an URL based on the
;; text at point in the current buffer. This is part of an on-going
;; effort to increase the information I provide people while reducing the
;; ammount of typing I need to do (see also handyurl.el which is available
;; from <URL:http://www.hagbard.demon.co.uk/archives/handyurl.el>), no-doubt
;; there are undiscovered Emacs packages out there that do all of this and
;; do it better, feel free to point me to them, in the mean time I'm having
;; fun playing with Emacs Lisp.
;; text at point in the current buffer. This is part of an on-going effort
;; to increase the information I provide people while reducing the ammount
;; of typing I need to do. No-doubt there are undiscovered Emacs packages
;; out there that do all of this and do it better, feel free to point me to
;; them, in the mean time I'm having fun playing with Emacs Lisp.
;;
;; The URLs are stored in an external file as a list of either cons cells,
;; or lists. A cons cell entry looks like this:
@@ -69,7 +67,7 @@
;; backward compatibility with existing URL lists.
;;
;; The name and location of the file is up to you, the default name used by
;; the `quickurl' is stored in `quickurl-url-file'.
;; `quickurl' is stored in `quickurl-url-file'.
;;
;; quickurl is always available from:
;;
@@ -81,10 +79,6 @@
;; o The quickurl-browse-url* functions pretty much duplicate their non
;; browsing friends. It would feel better if a more generic solution could
;; be found.
;;
;; o Merge quickurl.el and handyurl.el to provide a fuller URL management
;; facility that would allow for the pulling, inserting and browsing of
;; URLs.
;;; Code:
@@ -107,7 +101,7 @@
;; `caddr' is a function in cl and so might not always be available
;; (remembering the general rule that says cl functions should not be used,
;; only cl macros). So, to make use of `caddr' without forcing the load of
;; cl-seq we'll define out own.
;; cl-seq we'll define our own.
(eval-when (load eval)
(unless (fboundp 'caddr)
@@ -115,8 +109,6 @@
"Return the `car' of the `cddr' of L."
(car (cddr l)))))
;; Create a version constant.
;; Customize options.
(defgroup quickurl nil
@@ -315,8 +307,8 @@ Also display a `message' saying what the URL was unless SILENT is non-nil."
(defun* quickurl (&optional (lookup (funcall quickurl-grab-lookup-function)))
"Insert an URL based on LOOKUP.
If not supplied LOOKUP is taken to be the word at point in the
current buffer, this default action can be modifed via
If not supplied LOOKUP is taken to be the word at point in the current
buffer, this default action can be modifed via
`quickurl-grab-lookup-function'."
(interactive)
(when lookup
@@ -363,7 +355,7 @@ It is assumed that the URL is either \"unguarded\" or is wrapped inside an
(let ((word (funcall quickurl-grab-lookup-function)))
(when word
(quickurl-make-url
;; `thing-at-point' returns the word with properties. I don't
;; The grab function may return the word with properties. I don't
;; want the properties. I couldn't find a method of stripping
;; them from a "string" so this will have to do. If you know of
;; a better method of doing this I'd love to know.