[Emacs-diffs] /srv/bzr/emacs/trunk r105561: * lisp/net/quickurl.el: Documentation typo fixes.

[Deniz Dogan]

------------------------------------------------------------
revno: 105561
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Thu 2011-08-25 07:43:57 +0200
message:
  * lisp/net/quickurl.el: Documentation typo fixes.
modified:
  lisp/ChangeLog
  lisp/net/quickurl.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-25 05:37:55 +0000
+++ b/lisp/ChangeLog    2011-08-25 05:43:57 +0000
@@ -1,3 +1,7 @@
+2011-08-25  Deniz Dogan  <address@hidden>
+
+       * net/quickurl.el: Documentation typo fixes.
+
 2011-08-25  Chong Yidong  <address@hidden>
 
        * window.el (bury-buffer, quit-window): Use bury-buffer-internal.

=== modified file 'lisp/net/quickurl.el'
--- a/lisp/net/quickurl.el      2011-03-15 17:39:56 +0000
+++ b/lisp/net/quickurl.el      2011-08-25 05:43:57 +0000
@@ -1,4 +1,4 @@
-;;; quickurl.el --- insert an URL based on text at point in buffer
+;;; quickurl.el --- insert a URL based on text at point in buffer
 
 ;; Copyright (C) 1999-2011  Free Software Foundation, Inc.
 
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 ;;
-;; This package provides a simple method of inserting an URL based on the
+;; 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
 ;; to increase the information I provide people while reducing the ammount
 ;; of typing I need to do. No-doubt there are undiscovered Emacs packages
@@ -90,7 +90,7 @@
 ;; Customize options.
 
 (defgroup quickurl nil
-  "Insert an URL based on text at point in buffer."
+  "Insert a URL based on text at point in buffer."
   :version "21.1"
   :group  'abbrev
   :prefix "quickurl-")
@@ -194,14 +194,14 @@
 (defvar quickurl-list-last-buffer nil
   "`current-buffer' when `quickurl-list' was called.")
 
-;; Functions for working with an URL entry.
+;; Functions for working with a URL entry.
 
 (defun quickurl-url-commented-p (url)
   "Does the URL have a comment?"
   (listp (cdr url)))
 
 (defun quickurl-make-url (keyword url &optional comment)
-  "Create an URL from KEYWORD, URL and (optionaly) COMMENT."
+  "Create a URL from KEYWORD, URL and (optionaly) COMMENT."
   (if (and comment (not (zerop (length comment))))
       (list keyword url comment)
     (cons keyword url)))
@@ -230,7 +230,7 @@
     (setf (cdr ,url) ,store)))
 
 (defun quickurl-url-comment (url)
-  "Get the comment from an 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."
@@ -304,7 +304,7 @@
 
 ;;;###autoload
 (defun* quickurl (&optional lookup)
-  "Insert an URL based on LOOKUP.
+  "Insert a 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
@@ -323,7 +323,7 @@
 
 ;;;###autoload
 (defun quickurl-ask (lookup)
-  "Insert an URL, with `completing-read' prompt, based on LOOKUP."
+  "Insert a URL, with `completing-read' prompt, based on LOOKUP."
   (interactive
    (list
     (progn
@@ -335,7 +335,7 @@
       (quickurl-insert url))))
 
 (defun quickurl-grab-url ()
-  "Attempt to grab a word/url pair from point in the current buffer.
+  "Attempt to grab a word/URL pair from point in the current buffer.
 
 Point should be somewhere on the URL and the word is taken to be the thing
 that is returned from calling `quickurl-grab-lookup-function' once a
@@ -369,7 +369,7 @@
 (defun quickurl-add-url (word url comment)
   "Allow the user to interactively add a new URL associated with WORD.
 
-See `quickurl-grab-url' for details on how the default word/url combination
+See `quickurl-grab-url' for details on how the default word/URL combination
 is decided."
   (interactive (let ((word-url (quickurl-grab-url)))
                  (list (read-string "Word: "    (quickurl-url-keyword 
word-url))