From: Aaron S. Hawley <aaron.s.hawley@gmail.com>
Date: Sat, 26 May 2012 02:40:47 +0000 (-0700)
Subject: * lisp/thingatpt.el (forward-same-syntax): Handle no ARG case.
X-Git-Tag: emacs-24.2.90~471^2~6^2~103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34a008d93cafcf62a7d55df454c622063c48c97c;p=emacs.git

* lisp/thingatpt.el (forward-same-syntax): Handle no ARG case.

Fixes: debbugs:11560
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8dd6c7fd318..97c1e4b5320 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-05-26  Aaron S. Hawley  <aaron.s.hawley@gmail.com>
+
+	* thingatpt.el (forward-same-syntax): Handle no ARG case.  (Bug#11560)
+
 2012-05-26  Glenn Morris  <rgm@gnu.org>
 
 	* progmodes/cc-mode.el (auto-mode-alist): Fix typo.
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))))