cleaup: whitespace

autopair.el

@@ -27,7 +27,7 @@
 ;;
 ;; Another stab at making braces and quotes pair like in
 ;; TextMate:
-;; 
+;;
 ;; * Opening braces/quotes are autopaired;
 ;; * Closing braces/quotes are autoskipped;
 ;; * Backspacing an opening brace/quote autodeletes its adjacent pair.
@@ -97,7 +97,7 @@
 ;; wrap the selection region with the delimiters you're trying to
 ;; insert. This is done conditionally based of syntaxes of the two
 ;; ends of the selection region. It is compatible with `cua-mode's
-;; typing-deletes-selection behaviour. 
+;; typing-deletes-selection behaviour.
 ;;
 ;; If you find the paren-blinking annoying, turn `autopair-blink' to
 ;; nil.
@@ -217,7 +217,7 @@ It's a Common-lisp-style even-numbered property list, each pair
 of elements being of the form (TYPE , PAIRS). PAIRS is a mixed
 list whose elements are cons cells, which look like cells look
 like (OPENING . CLOSING). Autopair pairs these like
-parenthesis. 
+parenthesis.
 
 TYPE can be one of:
 
@@ -307,7 +307,7 @@ list, or call it from your handlers.")
 (defvar autopair-handle-wrap-action-fns '()
   "Autopair wrap handlers to run *instead* of the default handler.
 
-Each element is a function taking four arguments (ACTION, PAIR, 
+Each element is a function taking four arguments (ACTION, PAIR,
 POS-BEFORE and REGION-BEFORE), which are the three elements of the
 `autopair-wrap-action' variable, which see.
 
@@ -531,7 +531,7 @@ A list of four elements is returned:
          (beyond-autopair (autopair-original-binding fallback-keys)))
     (when autopair-autowrap
       (setq autopair-wrap-action (autopair-calculate-wrap-action)))
-    
+
     (setq this-original-command beyond-cua)
     ;; defer to "paredit-mode" if that is installed and running
     (when (and (featurep 'paredit)
@@ -618,7 +618,7 @@ returned) and uplisting stops there."
     (error nil)))
 
 ;; interactive commands and their associated predicates
-;; 
+;;
 (defun autopair-insert-or-skip-quote ()
   (interactive)
   (setq autopair-inserted (autopair-calculate-inserted))
@@ -631,7 +631,7 @@ returned) and uplisting stops there."
          (inside-string (and (eq where-sym :string)
                              (fourth orig-info)))
          (escaped-p (autopair-escaped-p syntax-info))
-         
+
          )
     (cond (;; decides whether to skip the quote...
            ;;
@@ -688,7 +688,7 @@ returned) and uplisting stops there."
 
 (defun autopair-in-unterminated-string-p (autopair-triplet)
   (and (eq autopair-inserted (fourth (third autopair-triplet)))
-       (condition-case nil (progn (scan-sexps (ninth (third autopair-triplet)) 1) nil) (error t))))     
+       (condition-case nil (progn (scan-sexps (ninth (third autopair-triplet)) 1) nil) (error t))))
 
 
 (defun autopair-insert-opening ()
@@ -793,12 +793,12 @@ by this command. Then place point after the first, indented.\n\n"
                             ;; `autopair-forward') returned an error.
                             ;; typically we don't want to autopair,
                             ;; unless one of the following occurs:
-                            ;; 
+                            ;;
                             (cond (;; 1. The error is *not* of type "containing
                                    ;;    expression ends prematurely", which means
                                    ;;    we're in the "too-many-openings" situation
                                    ;;    and thus want to autopair.
-                                   (not (string-match "prematurely" (second err)))  
+                                   (not (string-match "prematurely" (second err)))
                                    t)
                                   (;; 2. We stopped at a closing parenthesis. Do
                                    ;; autopair if we're in a mixed parens situation,
@@ -809,14 +809,14 @@ by this command. Then place point after the first, indented.\n\n"
                                    ;; also different from the expected. The second
                                    ;; `scan-lists' places point at the closing of the
                                    ;; last list we forwarded over.
-                                   ;; 
+                                   ;;
                                    (condition-case err
                                        (prog1
                                            (eq (char-after (scan-lists (point) -1 0))
                                                autopair-inserted)
                                          (goto-char (scan-lists (point) -1 -1)))
                                      (error t))
-                                   
+
                                    (or
                                     ;; mixed () ] for input (, yes autopair
                                     (not (eq expected-closing (char-after (third err))))
@@ -841,7 +841,7 @@ by this command. Then place point after the first, indented.\n\n"
 `autopair-wrap-action'. "
   (when (and autopair-wrap-action
              (notany #'null autopair-wrap-action))
-    
+
     (if autopair-handle-wrap-action-fns
         (condition-case err
             (mapc #'(lambda (fn)
@@ -852,7 +852,7 @@ by this command. Then place point after the first, indented.\n\n"
                    (autopair-mode -1))))
       (apply #'autopair-default-handle-wrap-action autopair-wrap-action))
     (setq autopair-wrap-action nil))
-  
+
   (when (and autopair-action
              (notany #'null autopair-action))
     (if autopair-handle-action-fns
@@ -987,7 +987,7 @@ by this command. Then place point after the first, indented.\n\n"
         (t
          t)))
 
-;; example latex paired-delimiter helper 
+;; example latex paired-delimiter helper
 ;;
 (defun autopair-latex-mode-paired-delimiter-action (action pair pos-before)
   "Pair or skip latex's \"paired delimiter\" syntax in math mode. Added AucText support, thanks Massimo Lauria"
@@ -1013,7 +1013,7 @@ by this command. Then place point after the first, indented.\n\n"
         (insert pair)
         (backward-char)))))
 
-;; Commands and predicates for the autopair-extra* feature 
+;; Commands and predicates for the autopair-extra* feature
 ;;
 
 (defun autopair-extra-insert-opening ()
@@ -1064,7 +1064,7 @@ by this command. Then place point after the first, indented.\n\n"
 
 ;; Commands and tex-mode specific handler functions for the "paired
 ;; delimiter" syntax class.
-;; 
+;;
 (defun autopair-insert-or-skip-paired-delimiter ()
   " insert or skip a character paired delimiter"
   (interactive)
@@ -1107,10 +1107,11 @@ by this command. Then place point after the first, indented.\n\n"
   (unless (autopair-should-autowrap) ad-do-it))
 
 (defadvice delete-selection-pre-hook (around autopair-override activate)
-  "Don't actually do anything if autopair is about to autowrap. "
+  "Don't actually do anything if autopair is  about to autowrap. "
   (unless (autopair-should-autowrap) ad-do-it))
 
 
+
 ;; hihi
 ;;
 (eval-when '(eval)