Tabify.
authorkaoru <kaoru>
Sun, 30 May 2004 20:16:40 +0000 (20:16 +0000)
committerkaoru <kaoru>
Sun, 30 May 2004 20:16:40 +0000 (20:16 +0000)
14 files changed:
lisp/riece-addon.el
lisp/riece-coding.el
lisp/riece-commands.el
lisp/riece-complete.el
lisp/riece-display.el
lisp/riece-doctor.el
lisp/riece-emacs.el
lisp/riece-guess.el
lisp/riece-kakasi.el
lisp/riece-layout.el
lisp/riece-options.el
lisp/riece-url.el
lisp/riece-xemacs.el
lisp/riece.el

index 9715bd1..a02d74e 100644 (file)
@@ -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
index 6b0fa35..acb8880 100644 (file)
@@ -31,7 +31,7 @@
   :tag "Coding"
   :prefix "riece-"
   :group 'riece)
-  
+
 (defcustom riece-default-coding-system
   (if (featurep 'mule)
       (cons 'ctext 'iso-2022-jp-2))
index b142119..911dee8 100644 (file)
@@ -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)))
index 7d945cd..2354a1e 100644 (file)
@@ -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.
index fb01aa0..25ac9d3 100644 (file)
@@ -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
index a7fbdd7..61a33f0 100644 (file)
                (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))
index 7393c2e..72e8067 100644 (file)
@@ -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)))))
index c9dba35..a4df612 100644 (file)
@@ -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
index 58c6999..62f3e1f 100644 (file)
@@ -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
index e1c6908..523e6f2 100644 (file)
@@ -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
index cc13625..776de9d 100644 (file)
@@ -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
index 58909ba..3e72b79 100644 (file)
@@ -74,7 +74,7 @@
   (mapcar (lambda (url)
            (vector url (list 'browse-url url)))
          riece-urls))
-           
+
 (defvar riece-dialogue-mode-map)
 
 (defun riece-url-requires ()
 (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
index 119cabe..9cbd135 100644 (file)
@@ -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)
index 43239ae..da4adab 100644 (file)
@@ -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