Tabify.

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 9715bd1..a02d74e 100644 (file)
--- 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
   (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
        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))))))
            (delete-char 1)
            (insert "-")
            (put-text-property point (point) 'riece-addon addon))))))

-    
+

 (provide 'riece-addon)
 
 ;;; riece-addon.el ends here
 (provide 'riece-addon)
 
 ;;; riece-addon.el ends here

diff --git a/lisp/riece-coding.el b/lisp/riece-coding.el
index 6b0fa35..acb8880 100644 (file)
--- a/lisp/riece-coding.el
+++ b/lisp/riece-coding.el
@@ -31,7 +31,7 @@
   :tag "Coding"
   :prefix "riece-"
   :group 'riece)
   :tag "Coding"
   :prefix "riece-"
   :group 'riece)

-  
+

 (defcustom riece-default-coding-system
   (if (featurep 'mule)
       (cons 'ctext 'iso-2022-jp-2))
 (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 (file)
--- 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))))))
              (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)))
 (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 (file)
--- 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)
 ;;; 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.
 (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 (file)
--- 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-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
 (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 (file)
--- 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
                (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)
               (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))
                                                    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 (file)
--- 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))
 (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)))))
     (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 (file)
--- 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))
   (define-key riece-channel-list-mode-map
     "g" nil)
   (setq riece-guess-enabled nil))

-  
+

 (provide 'riece-guess)
 
 ;;; riece-guess.el ends here
 (provide 'riece-guess)
 
 ;;; riece-guess.el ends here

diff --git a/lisp/riece-kakasi.el b/lisp/riece-kakasi.el
index 58c6999..62f3e1f 100644 (file)
--- 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)))))
       (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
 (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 (file)
--- 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))))))
       (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
 (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 (file)
--- 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)
   "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."
 (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))
         (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
 (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 (file)
--- 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))
   (mapcar (lambda (url)
            (vector url (list 'browse-url url)))
          riece-urls))

-           
+

 (defvar riece-dialogue-mode-map)
 
 (defun riece-url-requires ()
 (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))
 (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
 (provide 'riece-url)
 
 ;;; riece-url.el ends here

diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 119cabe..9cbd135 100644 (file)
--- 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)
 (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)
 
 ;;; 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 (file)
--- 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))
      "^[]{}'`"))
 
   (run-hooks 'riece-command-mode-hook))

-  
+

 (defun riece-dialogue-mode ()
   "Major mode for displaying the IRC dialogue.
 All normal editing commands are turned off.
 (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
   (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
        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
   (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 " "))
        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))))))
                    (eq major-mode (nth 2 (car alist))))
          (funcall (nth 2 (car alist))))
        (setq alist (cdr alist))))))

-      
+

 (provide 'riece)
 
 ;;; riece.el ends here
 (provide 'riece)
 
 ;;; riece.el ends here