[AUCTeX-diffs] Changes to reftex/lisp/reftex-base.el,v

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    08/12/18 20:53:48

Index: reftex-base.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-base.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- reftex-base.el      30 Nov 2008 22:13:54 -0000      1.16
+++ reftex-base.el      18 Dec 2008 20:53:48 -0000      1.17
@@ -1538,9 +1538,12 @@
         "In unfinished selection process. Finish, or abort with 
\\[abort-recursive-edit]"))))
 
 (defun reftex-in-comment ()
+  "Return non-nil if point is in a comment."
   (save-excursion
-    (skip-chars-backward "^%\n\r")
-    (eq (preceding-char) ?%)))
+    (save-match-data
+      (let ((pos (point)))
+       (beginning-of-line)
+       (re-search-forward comment-start-skip pos t)))))
 
 (defun reftex-no-props (string)
   ;; Return STRING with all text properties removed