Changeset 4019 for dotfiles

Timestamp:

01/04/08 05:08:50 (5 years ago)

Author:

mrkn

Message:

dotfiles/emacs/mrkn/.emacs.d/backward-delete-word.el: support negative number argument.

Files:

• dotfiles/emacs/mrkn/.emacs.d/backward-delete-word.el (modified) (1 diff)

dotfiles/emacs/mrkn/.emacs.d/backward-delete-word.el

@@ -6 +6 @@
 arg, and killflag is set if n was explicitly specified."
   (interactive "*P")
-  (let ((here (point)))
-    (if (not n) (setq n 1))
-    (while (> n 0)
-      (re-search-backward "[ \t]")
-      (skip-chars-backward " \t")
-      (setq n (- n 1)))
+  (let ((re-search 're-search-backward)
+        (skip-chars 'skip-chars-backward)
+        (here (point)))
+    (if (not (integerp n)) (setq n 1))
+    (if (< n 0)
+        (while (< n 0)
+          (re-search-forward "[ \t]")
+          (skip-chars-forward " \t")
+          (setq n (+ n 1)))
+      (while (> n 0)
+        (re-search-backward "[ \t]")
+        (skip-chars-backward " \t")
+        (setq n (- n 1))))
     (if (/= (point) here)
         (if killflag