diff options
author | Yuuki Harano <masm+github@masm11.me> | 2021-11-11 00:39:53 +0900 |
---|---|---|
committer | Yuuki Harano <masm+github@masm11.me> | 2021-11-11 00:39:53 +0900 |
commit | 4dd1f56f29fc598a8339a345c2f8945250600602 (patch) | |
tree | af341efedffe027e533b1bcc0dbf270532e48285 /lisp/net/quickurl.el | |
parent | 4c49ec7f865bdad1629d2f125f71f4e506b258f2 (diff) | |
parent | 810fa21d26453f898de9747ece7205dfe6de9d08 (diff) | |
download | emacs-4dd1f56f29fc598a8339a345c2f8945250600602.tar.gz emacs-4dd1f56f29fc598a8339a345c2f8945250600602.tar.bz2 emacs-4dd1f56f29fc598a8339a345c2f8945250600602.zip |
Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs into feature/pgtk
Diffstat (limited to 'lisp/net/quickurl.el')
-rw-r--r-- | lisp/net/quickurl.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el index 2574c8cb63e..7f147fa0ded 100644 --- a/lisp/net/quickurl.el +++ b/lisp/net/quickurl.el @@ -24,19 +24,19 @@ ;;; Commentary: ;; ;; This package provides a simple method of inserting a URL based on the -;; text at point in the current buffer. This is part of an on-going effort +;; 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 amount -;; of typing I need to do. No-doubt there are undiscovered Emacs packages +;; 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: +;; or lists. A cons cell entry looks like this: ;; ;; (<Lookup> . <URL>) ;; ;; where <Lookup> is a string that acts as the keyword lookup and <URL> is -;; the URL associated with it. An example might be: +;; the URL associated with it. An example might be: ;; ;; ("GNU" . "https://www.gnu.org/") ;; @@ -45,8 +45,8 @@ ;; (<Lookup> <URL> <Comment>) ;; ;; where <Lookup> and <URL> are the same as with the cons cell and <Comment> -;; is any text you like that describes the URL. This description will be -;; used when presenting a list of URLS using `quickurl-list'. An example +;; is any text you like that describes the URL. This description will be +;; used when presenting a list of URLS using `quickurl-list'. An example ;; might be: ;; ;; ("FSF" "https://www.fsf.org/" "The Free Software Foundation") @@ -215,8 +215,8 @@ Note that this function is a setfable place." (defun quickurl-url-comment (url) "Get the comment from a URL. -If the URL has no comment an empty string is returned. Also note that this -function is a setfable place." +If the URL has no comment an empty string is returned. Also note +that this function is a setfable place." (declare (gv-setter (lambda (store) `(if (quickurl-url-commented-p ,url) @@ -284,7 +284,7 @@ It also restores point after the `read'." "Return URL associated with key LOOKUP. The lookup is done by looking in the alist `quickurl-urls' and the `cons' -for the URL is returned. The actual method used to look into the alist +for the URL is returned. The actual method used to look into the alist depends on the setting of the variable `quickurl-assoc-function'." (funcall quickurl-assoc-function lookup quickurl-urls)) |