summaryrefslogtreecommitdiff
path: root/lisp/thingatpt.el
diff options
context:
space:
mode:
authorAaron S. Hawley <aaron.s.hawley@gmail.com>2012-05-25 19:40:47 -0700
committerGlenn Morris <rgm@gnu.org>2012-05-25 19:40:47 -0700
commit34a008d93cafcf62a7d55df454c622063c48c97c (patch)
tree12983eb24638319770bf9e59ac1320d9abf6d332 /lisp/thingatpt.el
parent0a3b289f4373a2d7aa6150695d706f9d573c3de1 (diff)
downloademacs-34a008d93cafcf62a7d55df454c622063c48c97c.tar.gz
* lisp/thingatpt.el (forward-same-syntax): Handle no ARG case.
Fixes: debbugs:11560
Diffstat (limited to 'lisp/thingatpt.el')
-rw-r--r--lisp/thingatpt.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 1600785c117..57bbdf9d94a 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -457,6 +457,7 @@ backwards ARG times if negative."
With prefix argument ARG, do it ARG times if positive, or move
backwards ARG times if negative."
(interactive "p")
+ (or arg (setq arg 1))
(while (< arg 0)
(skip-syntax-backward
(char-to-string (char-syntax (char-before))))