From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 21 Mar 2004 15:29:42 +0000 (+0000)
Subject: (cfengine-mode): Set parse-sexp-ignore-comments.
X-Git-Tag: ttn-vms-21-2-B4~7189
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7da2617c057bbfaa1e2c6b71fe8129008cb5c6a;p=emacs.git

(cfengine-mode): Set parse-sexp-ignore-comments.
---

diff --git a/lisp/progmodes/cfengine.el b/lisp/progmodes/cfengine.el
index 1f15184f552..62633fe2940 100644
--- a/lisp/progmodes/cfengine.el
+++ b/lisp/progmodes/cfengine.el
@@ -239,7 +239,11 @@ to the action header."
   (setq imenu-generic-expression cfengine-imenu-expression)
   (set (make-local-variable 'beginning-of-defun-function)
        #'cfengine-beginning-of-defun)
-  (set (make-local-variable 'end-of-defun-function) #'cfengine-end-of-defun))
+  (set (make-local-variable 'end-of-defun-function) #'cfengine-end-of-defun)
+  ;; Like Lisp mode.  Without this, we lose with, say,
+  ;; `backward-up-list' when there's an unbalanced quote in a
+  ;; preceding comment.
+  (set (make-local-variable 'parse-sexp-ignore-comments) t))
 
 (provide 'cfengine)