diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2006-11-24 10:33:22 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2006-11-24 10:33:22 +0000 |
commit | ebb6f1e78d7b64a471f7da54f2e9e4e140554662 (patch) | |
tree | d422572e6e8c76fa2becb8ff4a449719440f2b05 /lisp/net | |
parent | a02004a0e70d2aa594ba7961c5538765b5775373 (diff) | |
download | emacs-ebb6f1e78d7b64a471f7da54f2e9e4e140554662.tar.gz |
(rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Diffstat (limited to 'lisp/net')
-rw-r--r-- | lisp/net/rcirc.el | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index a639afeecf8..20305f2dacf 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -15,7 +15,7 @@ ;; This file is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License @@ -137,7 +137,7 @@ Used as the first arg to `format-time-string'." (defcustom rcirc-buffer-maximum-lines nil "*The maximum size in lines for rcirc buffers. Channel buffers are truncated from the top to be no greater than this -number. If zero or nil, no truncating is done." +number. If zero or nil, no truncating is done." :type '(choice (const :tag "No truncation" nil) (integer :tag "Number of lines")) :group 'rcirc) @@ -341,12 +341,12 @@ If ARG is non-nil, prompt for a server to connect to." (when (string= rcirc-default-server (process-name p)) (setq connected p))) (if (not connected) - (rcirc-connect rcirc-default-server rcirc-default-port + (rcirc-connect rcirc-default-server rcirc-default-port rcirc-default-nick rcirc-default-user-name rcirc-default-user-full-name (rcirc-startup-channels rcirc-default-server)) (switch-to-buffer (process-buffer connected)) - (message "Connected to %s" + (message "Connected to %s" (process-contact (get-buffer-process (current-buffer)) :host)))))) ;;;###autoload @@ -569,7 +569,7 @@ With no argument or nil as argument, use the current buffer." (defun rcirc-nick (process) "Return PROCESS nick." - (with-rcirc-process-buffer process + (with-rcirc-process-buffer process (or rcirc-nick rcirc-default-nick))) (defun rcirc-buffer-nick (&optional buffer) @@ -970,7 +970,7 @@ Create the buffer if it doesn't exist." (defvar rcirc-multiline-minor-mode-map (make-sparse-keymap) "Keymap for multiline mode in rcirc.") -(define-key rcirc-multiline-minor-mode-map +(define-key rcirc-multiline-minor-mode-map (kbd "C-c C-c") 'rcirc-multiline-minor-submit) (define-key rcirc-multiline-minor-mode-map (kbd "C-x C-s") 'rcirc-multiline-minor-submit) @@ -1079,7 +1079,7 @@ is found by looking up RESPONSE in `rcirc-response-formats'." "%") ((or (eq key ?n) (eq key ?N)) ;; %n/%N -- nick - (let ((nick (concat (if (string= (with-rcirc-process-buffer + (let ((nick (concat (if (string= (with-rcirc-process-buffer process rcirc-server) sender) @@ -1092,7 +1092,7 @@ is found by looking up RESPONSE in `rcirc-response-formats'." (cond ((string= sender (rcirc-nick process)) 'rcirc-my-nick) ((and rcirc-bright-nicks - (string-match + (string-match (regexp-opt rcirc-bright-nicks) sender)) 'rcirc-bright-nick) @@ -1206,7 +1206,7 @@ record activity." (let ((text-start (make-marker))) (set-marker text-start - (or (next-single-property-change fill-start + (or (next-single-property-change fill-start 'rcirc-text) rcirc-prompt-end-marker)) ;; squeeze spaces out of text before rcirc-text @@ -1402,7 +1402,7 @@ if NICK is also on `rcirc-ignore-list-automatic'." (append global-mode-string '(rcirc-activity-string)))) (add-hook 'window-configuration-change-hook 'rcirc-window-configuration-change)) - (setq global-mode-string + (setq global-mode-string (delete 'rcirc-activity-string global-mode-string)) (remove-hook 'window-configuration-change-hook 'rcirc-window-configuration-change))) @@ -1461,7 +1461,7 @@ show the buffer." (interactive "P") (let* ((pair (rcirc-split-activity rcirc-activity)) (lopri (car pair)) - (hipri (cdr pair))) + (hipri (cdr pair))) (if (or (and (not arg) hipri) (and arg lopri)) (progn @@ -1476,10 +1476,10 @@ show the buffer." (message "No more IRC activity. Go back to work.") (funcall rcirc-switch-to-buffer-function rcirc-last-non-irc-buffer) (setq rcirc-last-non-irc-buffer nil)) - (message (concat + (message (concat "No IRC activity." (when lopri - (concat + (concat " Type C-u " (key-description (this-command-keys)) " for low priority activity.")))))))) @@ -1669,7 +1669,7 @@ Also, clear the overlay arrow if the current buffer is now hidden." (if (null message) (progn (setq target (completing-read "Message nick: " - (with-rcirc-server-buffer + (with-rcirc-server-buffer rcirc-nick-table))) (when (> (length target) 0) (setq message (read-string (format "Message %s: " target))) @@ -1775,7 +1775,7 @@ With a prefix arg, prompt for new topic." "Kick NICK from current channel." (interactive (list (concat (completing-read "Kick nick: " - (rcirc-channel-nicks + (rcirc-channel-nicks (rcirc-buffer-process) rcirc-target)) (read-from-minibuffer "Kick reason: ")))) @@ -1812,7 +1812,7 @@ nicks when no NICK is given. When listing ignored nicks, the ones added to the list automatically are marked with an asterisk." (interactive "sToggle ignoring of nick: ") (setq rcirc-ignore-list (rcirc-add-or-remove rcirc-ignore-list nick)) - (rcirc-print process nil "IGNORE" target + (rcirc-print process nil "IGNORE" target (mapconcat (lambda (nick) (concat nick @@ -1824,14 +1824,14 @@ ones added to the list automatically are marked with an asterisk." "Manage the bright nick list." (interactive "sToggle emphasis of nick: ") (setq rcirc-bright-nicks (rcirc-add-or-remove rcirc-bright-nicks nick)) - (rcirc-print process nil "BRIGHT" target + (rcirc-print process nil "BRIGHT" target (mapconcat 'identity rcirc-bright-nicks " "))) (defun-rcirc-command dim (nick) "Manage the dim nick list." (interactive "sToggle deemphasis of nick: ") (setq rcirc-dim-nicks (rcirc-add-or-remove rcirc-dim-nicks nick)) - (rcirc-print process nil "DIM" target + (rcirc-print process nil "DIM" target (mapconcat 'identity rcirc-dim-nicks " "))) (defun-rcirc-command keyword (keyword) @@ -1840,7 +1840,7 @@ Mark KEYWORD, unmark KEYWORD if already marked, or list marked keywords when no KEYWORD is given." (interactive "sToggle highlighting of keyword: ") (setq rcirc-keywords (rcirc-add-or-remove rcirc-keywords keyword)) - (rcirc-print process nil "KEYWORD" target + (rcirc-print process nil "KEYWORD" target (mapconcat 'identity rcirc-keywords " "))) @@ -1865,8 +1865,8 @@ keywords when no KEYWORD is given." (defvar rcirc-url-regexp (rx-to-string `(and word-boundary - (or (and - (or (and (or "http" "https" "ftp" "file" "gopher" "news" + (or (and + (or (and (or "http" "https" "ftp" "file" "gopher" "news" "telnet" "wais" "mailto") "://") "www.") @@ -1876,7 +1876,7 @@ keywords when no KEYWORD is given." (and (1+ (char "-a-zA-Z0-9_.")) (or ".com" ".net" ".org") word-boundary)) - (optional + (optional (and "/" (1+ (char "-a-zA-Z0-9_=!?#$\@~`%&*+|\\/:;.,{}[]()")) (char "-a-zA-Z0-9_=#$\@~`%&*+|\\/:;{}[]()"))))) @@ -1957,11 +1957,11 @@ in this buffer.") (defun rcirc-markup-my-nick (process sender response channel-buffer) (with-syntax-table rcirc-nick-syntax-table - (while (re-search-forward (concat "\\b" + (while (re-search-forward (concat "\\b" (regexp-quote (rcirc-nick process)) "\\b") nil t) - (rcirc-add-face (match-beginning 0) (match-end 0) + (rcirc-add-face (match-beginning 0) (match-end 0) 'rcirc-nick-in-message) (when (string= response "PRIVMSG") (rcirc-add-face (point-min) (point-max) 'rcirc-nick-in-message-full-line) @@ -2409,7 +2409,7 @@ Passwords are stored in `rcirc-authinfo' (which see)." (defface rcirc-nick-in-message-full-line '((t (:bold t))) "The face used emphasize the entire message when your nick is mentioned." - :group 'rcirc-faces) + :group 'rcirc-faces) (defface rcirc-prompt ; comint-highlight-prompt '((((min-colors 88) (background dark)) (:foreground "cyan1")) |