[PATCH] Fix some errors and compiler warnings.

Tue Apr 27 12:11:59 CEST 2010

---
 vimpulse-misc-keybindings.el   |    2 +-
 vimpulse-operator.el           |    4 ++--
 vimpulse-text-object-system.el |    4 ++--
 vimpulse-visual-mode.el        |    6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/vimpulse-misc-keybindings.el b/vimpulse-misc-keybindings.el
index 55f1f47..761b466 100644
--- a/vimpulse-misc-keybindings.el
+++ b/vimpulse-misc-keybindings.el
@@ -541,7 +541,7 @@ Search backwards if a match isn't found."
       (error (progn
                (setq dabbrev--last-abbreviation abbrev
                      dabbrev--last-expansion expansion
-                     dabbrev--last-abbred-location location)
+                     dabbrev--last-abbrev-location location)
                (setq dabbrev--last-direction 1)
                (dabbrev-expand nil) nil)))))
 
diff --git a/vimpulse-operator.el b/vimpulse-operator.el
index 3fd15db..36325c2 100644
--- a/vimpulse-operator.el
+++ b/vimpulse-operator.el
@@ -755,8 +755,8 @@ BEG and END are the range of text. If you specify LENGTH,
 they are ignored.
 
 This function respects `viper-change-notification-threshold'."
-  (let* ((beg (or beg ((apply 'min (vimpulse-visual-range))) 1))
-         (end (or end ((apply 'max (vimpulse-visual-range)) 1)))
+  (let* ((beg (or beg (apply 'min (vimpulse-visual-range)) 1))
+         (end (or end (apply 'max (vimpulse-visual-range)) 1))
          (height (or vimpulse-visual-height 1))
          (width (or vimpulse-visual-width 1))
          (type (or type vimpulse-this-motion-type))
diff --git a/vimpulse-text-object-system.el b/vimpulse-text-object-system.el
index 88b2fc1..b988e8a 100644
--- a/vimpulse-text-object-system.el
+++ b/vimpulse-text-object-system.el
@@ -52,8 +52,8 @@ to handle a negative value, which specifies reverse direction."
       (cond
        ((eq :keys keyword)
         (setq keys (vimpulse-unquote (pop body))))
-       ((eq :maps keyword)
-        (setq maps (vimpulse-unquote (pop body))))
+       ((eq :map keyword)
+        (setq map (vimpulse-unquote (pop body))))
        ((eq :type keyword)
         (setq type (vimpulse-unquote (pop body))))
        (t
diff --git a/vimpulse-visual-mode.el b/vimpulse-visual-mode.el
index ae55cb2..e7e871d 100644
--- a/vimpulse-visual-mode.el
+++ b/vimpulse-visual-mode.el
@@ -599,7 +599,7 @@ With negative ARG, removes highlighting."
    ((and (numberp arg) (> 1 arg))
     (when (viper-overlay-live-p vimpulse-visual-overlay)
       (vimpulse-delete-overlay vimpulse-visual-overlay))
-    (mapcar 'vimpulse-delete-overlay vimpulse-visual-block-overlays)
+    (mapc 'vimpulse-delete-overlay vimpulse-visual-block-overlays)
     (setq vimpulse-visual-block-overlays nil)
     ;; Clean up unreferenced overlays
     (dolist (overlay (vimpulse-overlays-at (point)))
@@ -619,7 +619,7 @@ With negative ARG, removes highlighting."
     (let ((beg (vimpulse-visual-beginning))
           (end (vimpulse-visual-end)))
       ;; Remove any block highlighting
-      (mapcar 'vimpulse-delete-overlay vimpulse-visual-block-overlays)
+      (mapc 'vimpulse-delete-overlay vimpulse-visual-block-overlays)
       (setq vimpulse-visual-block-overlays nil)
       ;; Reuse overlay if possible
       (if (viper-overlay-live-p vimpulse-visual-overlay)
@@ -742,7 +742,7 @@ Adapted from: `rm-highlight-rectangle' in rect-mark.el."
             (setq new (cons overlay new)))))
         (forward-line 1))
       ;; Trim old trailing overlays
-      (mapcar 'vimpulse-delete-overlay old)
+      (mapc 'vimpulse-delete-overlay old)
       (setq vimpulse-visual-block-overlays (nreverse new)))))
 
 (defun vimpulse-visual-pre-command ()
-- 
1.7.0.83.g241b9.dirty


--u3/rZRmxL6MmkK24--

