diff lisp/net/rcirc.el @ 74146:c3bc7f03ff41

(rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.

--- a/lisp/net/rcirc.el	Fri Nov 24 10:31:26 2006 +0000
+++ b/lisp/net/rcirc.el	Fri Nov 24 10:33:22 2006 +0000
@@ -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 @@
 (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 @@
 	(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 @@
 
 (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 @@
 
 (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 @@
 		   "%")
 		  ((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 @@
 				     (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 @@
 
 	    (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 @@
 		   (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 @@
   (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 @@
 	    (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 @@
   (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 @@
   "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 @@
 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 @@
   "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 @@
 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 @@
 (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 @@
 	     (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 @@
 
 (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 @@
 (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"))