diff options
Diffstat (limited to 'lisp/erc/erc-backend.el')
| -rw-r--r-- | lisp/erc/erc-backend.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 3250d0fdfde..72a7f86da2f 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el @@ -481,13 +481,13 @@ Currently this is called by `erc-send-input'." (split-string (buffer-string) "\n")))) (defun erc-forward-word () - "Moves forward one word, ignoring any subword settings. If no -subword-mode is active, then this is (forward-word)." + "Move forward one word, ignoring any subword settings. +If no subword-mode is active, then this is (forward-word)." (skip-syntax-forward "^w") (> (skip-syntax-forward "w") 0)) (defun erc-word-at-arg-p (pos) - "Reports whether the char after a given POS has word syntax. + "Report whether the char after a given POS has word syntax. If POS is out of range, the value is nil." (let ((c (char-after pos))) (if c @@ -495,9 +495,9 @@ If POS is out of range, the value is nil." nil))) (defun erc-bounds-of-word-at-point () - "Returns the bounds of a word at point, or nil if we're not at -a word. If no subword-mode is active, then this -is (bounds-of-thing-at-point 'word)." + "Return the bounds of word at point, or nil if we're not at a word. +If no subword-mode is active, then this is +\(bounds-of-thing-at-point 'word)." (if (or (erc-word-at-arg-p (point)) (erc-word-at-arg-p (1- (point)))) (save-excursion @@ -596,7 +596,7 @@ We will store server variables in the buffer given by BUFFER." (erc-login)) )) (defun erc-server-reconnect () -"Reestablish the current IRC connection. + "Reestablish the current IRC connection. Make sure you are in an ERC buffer when running this." (let ((buffer (erc-server-buffer))) (unless (buffer-live-p buffer) @@ -765,8 +765,8 @@ This is determined via `erc-encoding-coding-alist' or (defun erc-decode-string-from-target (str target) "Decode STR as appropriate for TARGET. -This is indicated by `erc-encoding-coding-alist', defaulting to the value of -`erc-server-coding-system'." +This is indicated by `erc-encoding-coding-alist', defaulting to the +value of `erc-server-coding-system'." (unless (stringp str) (setq str "")) (let ((coding (erc-coding-system-for-target target))) @@ -1118,7 +1118,8 @@ NAME is the response name as sent by the server (see the IRC RFC for meanings). This creates: - - a hook variable `erc-server-NAME-functions' initialized to `erc-server-NAME'. + - a hook variable `erc-server-NAME-functions' initialized to + `erc-server-NAME'. - a function `erc-server-NAME' with body FN-BODY. If ALIASES is non-nil, each alias in ALIASES is `defalias'ed to |