From: Leo Liu <sdl.web@gmail.com>
Date: Thu, 2 May 2013 21:27:16 +0000 (+0800)
Subject: * progmodes/octave.el (octave-syntax-propertize-function): Include
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~321
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b4c8295e81157fa913674140dee1fc201c881642;p=emacs.git

* progmodes/octave.el (octave-syntax-propertize-function): Include
the case when ' is at line beginning.

Fixes: debbugs:14336
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5adfea1d07a..79fd3820074 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-02  Leo Liu  <sdl.web@gmail.com>
+
+	* progmodes/octave.el (octave-syntax-propertize-function): Include
+	the case when ' is at line beginning.  (Bug#14336)
+
 2013-05-02  Glenn Morris  <rgm@gnu.org>
 
 	* vc/vc-dir.el (vc-dir-mode): Don't autoload it for everyone.
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 4b02645e463..3252b16cbad 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -131,7 +131,7 @@ parenthetical grouping.")
   (octave-syntax-propertize-sqs end)
   (funcall (syntax-propertize-rules
             ;; Try to distinguish the string-quotes from the transpose-quotes.
-            ("[[({,; ]\\('\\)"
+            ("\\(?:^\\|[[({,; ]\\)\\('\\)"
              (1 (prog1 "\"'" (octave-syntax-propertize-sqs end)))))
            (point) end))