>From f1c79d3eefca6a7a8a73e78b2467e53c8e26c1fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=A0t=C4=9Bp=C3=A1n=20N=C4=9Bmec?= Date: Tue, 27 Apr 2010 12:11:59 +0200 Subject: [PATCH] Fix some errors and compiler warnings. --- 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