diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-06-20 17:10:40 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-06-20 17:10:40 -0400 |
| commit | 55d4eba2d0e650d811250c31f3801f6835bd088a (patch) | |
| tree | 853399bcf33d1eaf8af363beae58bdd1aa7c01f3 /lisp/emacs-lisp/smie.el | |
| parent | 81e5c6fc89e277237cf290927fe339b53ad47b80 (diff) | |
| download | emacs-55d4eba2d0e650d811250c31f3801f6835bd088a.tar.gz emacs-55d4eba2d0e650d811250c31f3801f6835bd088a.tar.bz2 emacs-55d4eba2d0e650d811250c31f3801f6835bd088a.zip | |
* lisp/emacs-lisp/smie.el (smie-config--guess): Fix typo.
(smie-config-guess): Use smie-config-local so the rules are obeyed.
Fixes: debbugs:17818
Diffstat (limited to 'lisp/emacs-lisp/smie.el')
| -rw-r--r-- | lisp/emacs-lisp/smie.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el index 1a6011e712a..1819daa3df0 100644 --- a/lisp/emacs-lisp/smie.el +++ b/lisp/emacs-lisp/smie.el @@ -2138,7 +2138,7 @@ position corresponding to each rule." nil (push (cons (+ offset (nth 2 sig)) sig) rules) ;; Adjust the rest of the data. - (pcase-dolist ((and cotrace `(,count ,toffset ,trace)) + (pcase-dolist ((and cotrace `(,count ,toffset . ,trace)) cotraces) (setf (nth 1 cotrace) (- toffset offset)) (dolist (sig trace) @@ -2167,15 +2167,14 @@ To save the result for future sessions, use `smie-config-save'." (cond ((null config) (message "Nothing to change")) ((null smie-config--buffer-local) - (message "Local rules set") - (setq smie-config--buffer-local config)) + (smie-config-local config) + (message "Local rules set")) ((y-or-n-p "Replace existing local config? ") (message "Local rules replaced") - (setq smie-config--buffer-local config)) + (smie-config-local config)) ((y-or-n-p "Merge with existing local config? ") (message "Local rules adjusted") - (setq smie-config--buffer-local - (append config smie-config--buffer-local))) + (smie-config-local (append config smie-config--buffer-local))) (t (message "Rules guessed: %S" config))))) |