From 34a008d93cafcf62a7d55df454c622063c48c97c Mon Sep 17 00:00:00 2001
From: "Aaron S. Hawley" <aaron.s.hawley@gmail.com>
Date: Fri, 25 May 2012 19:40:47 -0700
Subject: * lisp/thingatpt.el (forward-same-syntax): Handle no ARG case.

Fixes: debbugs:11560
---
 lisp/thingatpt.el | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lisp/thingatpt.el')

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))))
-- 
cgit v1.2.3