From: kaoru <kaoru>
Date: Sun, 30 May 2004 20:16:40 +0000 (+0000)
Subject: Tabify.
X-Git-Tag: riece-1_0_1~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=98265362ed8f61d34a7102ff8260362181968e52;p=elisp%2Friece.git

Tabify.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 9715bd1..a02d74e 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -219,7 +219,7 @@ All normal editing commands are turned off."
   (kill-all-local-variables)
   (buffer-disable-undo)
   (setq major-mode 'riece-addon-list-mode
-        mode-name "AddOns"
+	mode-name "AddOns"
 	mode-line-buffer-identification
 	(riece-mode-line-buffer-identification '("Riece: %12b"))
 	truncate-lines t
@@ -344,7 +344,7 @@ Useful keys:
 	    (delete-char 1)
 	    (insert "-")
 	    (put-text-property point (point) 'riece-addon addon))))))
-    
+
 (provide 'riece-addon)
 
 ;;; riece-addon.el ends here
diff --git a/lisp/riece-coding.el b/lisp/riece-coding.el
index 6b0fa35..acb8880 100644
--- a/lisp/riece-coding.el
+++ b/lisp/riece-coding.el
@@ -31,7 +31,7 @@
   :tag "Coding"
   :prefix "riece-"
   :group 'riece)
-  
+
 (defcustom riece-default-coding-system
   (if (featurep 'mule)
       (cons 'ctext 'iso-2022-jp-2))
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index b142119..911dee8 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -660,7 +660,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
 	      (display-completion-list all))
 	  (delete-region (point) (- (point) (length current)))
 	  (insert completion))))))
-  
+
 (defun riece-command-open-server (server-name)
   (interactive
    (list (completing-read "Open server: " riece-server-alist)))
diff --git a/lisp/riece-complete.el b/lisp/riece-complete.el
index 7d945cd..2354a1e 100644
--- a/lisp/riece-complete.el
+++ b/lisp/riece-complete.el
@@ -55,7 +55,7 @@
 ;;; stolen (and renamed) from crm.el.
 (defvar riece-completing-read-multiple-separator ",")
 (defvar riece-completing-read-multiple-table nil)
-  
+
 (defun riece-completing-read-multiple-1 (string predicate flag)
   "Function used by `riece-completing-read-multiple'.
 The value of STRING is the string to be completed.
diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index fb01aa0..25ac9d3 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -40,7 +40,7 @@
 (defvar riece-update-buffer-functions nil
   "Functions to redisplay the buffer.
 Local to the buffer in `riece-buffer-list'.")
-  
+
 (defvar riece-update-indicator-functions
   '(riece-update-status-indicators
     riece-update-channel-indicator
diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index a7fbdd7..61a33f0 100644
--- a/lisp/riece-doctor.el
+++ b/lisp/riece-doctor.el
@@ -93,13 +93,13 @@
 		(doctor-mode))
 	      (setq riece-doctor-patients (cons user riece-doctor-patients))
 	      (riece-doctor-reply
-	       (car targets)	   
+	       (car targets)
 	       (format
 		"%s: I am the psychotherapist.  \
 Please, describe your problems."
 		user)))
 	  (if (string-match riece-doctor-bye-regexp message)
-	      (let ((pointer (riece-identity-member user 
+	      (let ((pointer (riece-identity-member user
 						    riece-doctor-patients t)))
 		(when pointer
 		  (kill-buffer (riece-doctor-buffer-name user))
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 7393c2e..72e8067 100644
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -79,8 +79,8 @@
 (defun riece-kill-all-overlays ()
   "Delete all overlays in the current buffer."
   (let* ((overlay-lists (overlay-lists))
-         (buffer-read-only nil)
-         (overlays (delq nil (nconc (car overlay-lists) (cdr overlay-lists)))))
+	 (buffer-read-only nil)
+	 (overlays (delq nil (nconc (car overlay-lists) (cdr overlay-lists)))))
     (while overlays
       (delete-overlay (car overlays))
       (setq overlays (cdr overlays)))))
diff --git a/lisp/riece-guess.el b/lisp/riece-guess.el
index c9dba35..a4df612 100644
--- a/lisp/riece-guess.el
+++ b/lisp/riece-guess.el
@@ -110,7 +110,7 @@ merge the results."
   (define-key riece-channel-list-mode-map
     "g" nil)
   (setq riece-guess-enabled nil))
-  
+
 (provide 'riece-guess)
 
 ;;; riece-guess.el ends here
diff --git a/lisp/riece-kakasi.el b/lisp/riece-kakasi.el
index 58c6999..62f3e1f 100644
--- a/lisp/riece-kakasi.el
+++ b/lisp/riece-kakasi.el
@@ -48,7 +48,7 @@
       (accept-process-output riece-kakasi-process))
     (prog1 (buffer-substring (point-min) (1- (point)))
       (delete-region (point-min) (point)))))
-  
+
 (defun riece-kakasi-message-filter (message)
   (if riece-kakasi-enabled
       (riece-message-set-text message
diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el
index e1c6908..523e6f2 100644
--- a/lisp/riece-layout.el
+++ b/lisp/riece-layout.el
@@ -72,7 +72,7 @@ happen unconditionally."
       (if (or force
 	      (riece-reconfigure-windows-predicate))
 	  (apply (car layout) (cdr layout))))))
-  
+
 (defun riece-set-window-points ()
   (if (get-buffer-window riece-user-list-buffer)
       (with-current-buffer riece-user-list-buffer
diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index cc13625..776de9d 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -80,7 +80,7 @@
   "Where to look for add-on files."
   :type 'directory
   :group 'riece-options)
-  
+
 (defcustom riece-variables-file
   (expand-file-name "init" riece-directory)
   "Where to look for variables."
@@ -159,7 +159,7 @@ way is to put Riece variables on .emacs or file loaded from there."
 	 (args (list spec)))
     (widget-put widget :args args)
     widget))
-  
+
 (defcustom riece-server-alist nil
   "An alist mapping server names to plist."
   :type 'riece-server-spec
diff --git a/lisp/riece-url.el b/lisp/riece-url.el
index 58909ba..3e72b79 100644
--- a/lisp/riece-url.el
+++ b/lisp/riece-url.el
@@ -74,7 +74,7 @@
   (mapcar (lambda (url)
 	    (vector url (list 'browse-url url)))
 	  riece-urls))
-	    
+
 (defvar riece-dialogue-mode-map)
 
 (defun riece-url-requires ()
@@ -100,7 +100,7 @@
 (defun riece-url-disable ()
   (define-key riece-dialogue-mode-map "U" nil)
   (setq riece-url-enabled nil))
-  
+
 (provide 'riece-url)
 
 ;;; riece-url.el ends here
diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 119cabe..9cbd135 100644
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -82,8 +82,8 @@
 (defun riece-kill-all-overlays ()
   "Delete all extents in the current buffer."
   (map-extents (lambda (extent ignore)
-                 (delete-extent extent)
-                 nil)))
+		 (delete-extent extent)
+		 nil)))
 
 ;;; stolen (and renamed) from nnheaderxm.el.
 (defun riece-xemacs-generate-timer-name (&optional prefix)
diff --git a/lisp/riece.el b/lisp/riece.el
index 43239ae..da4adab 100644
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -385,7 +385,7 @@ For a list of the generic commands type \\[riece-command-generic] ? RET.
      "^[]{}'`"))
 
   (run-hooks 'riece-command-mode-hook))
-  
+
 (defun riece-dialogue-mode ()
   "Major mode for displaying the IRC dialogue.
 All normal editing commands are turned off.
@@ -441,7 +441,7 @@ All normal editing commands are turned off."
   (kill-all-local-variables)
   (buffer-disable-undo)
   (setq major-mode 'riece-channel-list-mode
-        mode-name "Channels"
+	mode-name "Channels"
 	mode-line-buffer-identification
 	(riece-mode-line-buffer-identification '("Riece: "))
 	truncate-lines t
@@ -460,7 +460,7 @@ Instead, these commands are available:
   (kill-all-local-variables)
   (buffer-disable-undo)
   (setq major-mode 'riece-user-list-mode
-        mode-name "Users"
+	mode-name "Users"
 	mode-line-buffer-identification
 	(riece-mode-line-buffer-identification
 	 '("Riece: " riece-long-channel-indicator " "))
@@ -485,7 +485,7 @@ Instead, these commands are available:
 		    (eq major-mode (nth 2 (car alist))))
 	  (funcall (nth 2 (car alist))))
 	(setq alist (cdr alist))))))
-      
+
 (provide 'riece)
 
 ;;; riece.el ends here