Subject: bug#13955: Subject: 24.3; (thing-at-point 'list) fails

From: Andreas Röhler <[email-masked]>
Date: Thu, 14 Mar 2013 16:26:48 +0100

patch attached
commit d9584f48eaae3b0827501de93058cb8cf584b9fb
Author: Andreas Roehler <[email-masked]>
Date:   Thu Mar 14 16:23:55 2013 +0100

    Fixes bug#13955
    
    Subject: 24.3; (thing-at-point 'list) fails
    
    TINYCHANGE

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 9526cb7..29ea1a2 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -209,11 +209,15 @@ The bounds of THING are determined by `bounds-of-thing-at-point'."
   "Return the bounds of the list at point.
 \[Internal function used by `bounds-of-thing-at-point'.]"
   (save-excursion
-    (let ((opoint (point))
-	  (beg (condition-case nil
-		   (progn (up-list -1)
-			  (point))
-		 (error nil))))
+    (let* ((opoint (point))
+           (pps (syntax-ppss))
+           (beg (progn
+                  (and (nth 8 pps)
+                       (goto-char (nth 8 pps)))
+                  (condition-case nil
+                      (progn (up-list -1)
+                             (point))
+                    (error nil)))))
       (condition-case nil
 	  (if beg
 	      (progn (forward-sexp)