diff options
Diffstat (limited to 'lisp/erc/erc-pcomplete.el')
| -rw-r--r-- | lisp/erc/erc-pcomplete.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el index 55405498f1e..fe01e1d76e6 100644 --- a/lisp/erc/erc-pcomplete.el +++ b/lisp/erc/erc-pcomplete.el @@ -188,14 +188,14 @@ for use on `completion-at-point-function'." ;;; Functions that provide possible completions. (defun pcomplete-erc-commands () - "Returns a list of strings of the defined user commands." + "Return a list of strings of the defined user commands." (let ((case-fold-search nil)) (mapcar (lambda (x) (concat "/" (downcase (substring (symbol-name x) 8)))) (apropos-internal "erc-cmd-[A-Z]+")))) (defun pcomplete-erc-ops () - "Returns a list of nicks with ops." + "Return a list of nicks with ops." (let (ops) (maphash (lambda (nick cdata) (if (and (cdr cdata) @@ -205,7 +205,7 @@ for use on `completion-at-point-function'." ops)) (defun pcomplete-erc-not-ops () - "Returns a list of nicks without ops." + "Return a list of nicks without ops." (let (not-ops) (maphash (lambda (nick cdata) (if (and (cdr cdata) @@ -216,7 +216,7 @@ for use on `completion-at-point-function'." (defun pcomplete-erc-nicks (&optional postfix ignore-self) - "Returns a list of nicks in the current channel. + "Return a list of nicks in the current channel. Optional argument POSTFIX is something to append to the nickname. If optional argument IGNORE-SELF is non-nil, don't return the current nick." (let ((users (if erc-pcomplete-order-nickname-completions @@ -235,7 +235,7 @@ If optional argument IGNORE-SELF is non-nil, don't return the current nick." (nreverse nicks))) (defun pcomplete-erc-all-nicks (&optional postfix) - "Returns a list of all nicks on the current server." + "Return a list of all nicks on the current server." (let (nicks) (erc-with-server-buffer (maphash (lambda (_nick user) @@ -246,20 +246,20 @@ If optional argument IGNORE-SELF is non-nil, don't return the current nick." nicks)) (defun pcomplete-erc-channels () - "Returns a list of channels associated with the current server." + "Return a list of channels associated with the current server." (mapcar (lambda (buf) (with-current-buffer buf (erc-default-target))) (erc-channel-list erc-server-process))) ;;; Functions for parsing (defun pcomplete-erc-command-name () - "Returns the command name of the first argument." + "Return the command name of the first argument." (if (eq (elt (pcomplete-arg 'first) 0) ?/) (upcase (substring (pcomplete-arg 'first) 1)) "SAY")) (defun pcomplete-erc-parse-arguments () - "Returns a list of parsed whitespace-separated arguments. + "Return a list of parsed whitespace-separated arguments. These are the words from the beginning of the line after the prompt up to where point is right now." (let* ((start erc-input-marker) |