# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1079882982 0
# Node ID 82f7cd1ab4eb59f1a67d91d4851b2cc1adef4345
# Parent  bdc0ecff8aecd491d664c2c06b5711d2f6aa39b4
(cfengine-mode): Set parse-sexp-ignore-comments.

diff -r bdc0ecff8aec -r 82f7cd1ab4eb lisp/progmodes/cfengine.el
--- a/lisp/progmodes/cfengine.el	Sun Mar 21 15:24:38 2004 +0000
+++ b/lisp/progmodes/cfengine.el	Sun Mar 21 15:29:42 2004 +0000
@@ -239,7 +239,11 @@
   (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)