aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2013-09-04 19:55:08 -0400
committerGlenn Morris2013-09-04 19:55:08 -0400
commit1c3ac2e53e3bb7e9278b360378731e3539b8256c (patch)
tree54beeb0dd18abf536256a7d4e4894c277ac5b412
parent0c90b9eed9ce554816c9ca55d3aa30d6203d1679 (diff)
downloademacs-1c3ac2e53e3bb7e9278b360378731e3539b8256c.tar.gz
emacs-1c3ac2e53e3bb7e9278b360378731e3539b8256c.zip
rul-generic-mode-syntax-table fix for recent cc-mode changes
* lisp/generic-x.el [rul-generic-mode]: Require cc-mode. (c++-mode-syntax-table): Declare. (rul-generic-mode-syntax-table): Init in the defvar.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/generic-x.el24
2 files changed, 20 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e8165a0a1e..dab13ce7e4d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12013-09-04 Glenn Morris <rgm@gnu.org>
2
3 * generic-x.el [rul-generic-mode]: Require cc-mode.
4 (c++-mode-syntax-table): Declare.
5 (rul-generic-mode-syntax-table): Init in the defvar.
6
12013-09-04 Stefan Monnier <monnier@iro.umontreal.ca> 72013-09-04 Stefan Monnier <monnier@iro.umontreal.ca>
2 8
3 * autorevert.el (auto-revert-notify-handler): Explicitly ignore 9 * autorevert.el (auto-revert-notify-handler): Explicitly ignore
diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index c964b53952e..e722333d49b 100644
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -1283,18 +1283,22 @@ like an INI file. You can add this hook to `find-file-hook'."
1283 "WIN32SMINOR") 1283 "WIN32SMINOR")
1284 "Function argument constants used in InstallShield 3 and 5.")) 1284 "Function argument constants used in InstallShield 3 and 5."))
1285 1285
1286(defvar rul-generic-mode-syntax-table nil 1286;; c++-mode-syntax-table used to be autoloaded, with an initial nil value.
1287;; This file did not load cc-mode, and therefore rul-generic-mode-syntax-table
1288;; would have different values according to whether or not cc-mode
1289;; happened to be loaded before this file was.
1290(require 'cc-mode)
1291(defvar c++-mode-syntax-table)
1292
1293(defvar rul-generic-mode-syntax-table
1294 (let ((table (make-syntax-table c++-mode-syntax-table)))
1295 (modify-syntax-entry ?\r "> b" table)
1296 (modify-syntax-entry ?\n "> b" table)
1297 (modify-syntax-entry ?/ ". 124b" table)
1298 (modify-syntax-entry ?* ". 23" table)
1299 table)
1287 "Syntax table to use in `rul-generic-mode' buffers.") 1300 "Syntax table to use in `rul-generic-mode' buffers.")
1288 1301
1289(setq rul-generic-mode-syntax-table
1290 (make-syntax-table c++-mode-syntax-table))
1291
1292(modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table)
1293(modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table)
1294
1295(modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table)
1296(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table)
1297
1298;; here manually instead 1302;; here manually instead
1299(defun generic-rul-mode-setup-function () 1303(defun generic-rul-mode-setup-function ()
1300 (make-local-variable 'parse-sexp-ignore-comments) 1304 (make-local-variable 'parse-sexp-ignore-comments)