Mercurial > hg > xemacs-beta

comparison lisp/derived.el @ 2142:eb65d362090f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-06-18 15:48:38 by james] Put the args to derived-mode-merge-syntax-tables in the right order.
author james
date Fri, 18 Jun 2004 15:48:38 +0000
parents 9da6e6c569f7
children fd1acd2f457a
comparison
equal deleted inserted replaced
2141:6bca5896aab2 2142:eb65d362090f
222 (unless (keymap-parent ,map) 222 (unless (keymap-parent ,map)
223 (set-keymap-parents ,map (list (current-local-map)))) 223 (set-keymap-parents ,map (list (current-local-map))))
224 ,(when declare-syntax 224 ,(when declare-syntax
225 ;; XEmacs change: we do not have char-table-parent 225 ;; XEmacs change: we do not have char-table-parent
226 `(derived-mode-merge-syntax-tables 226 `(derived-mode-merge-syntax-tables
227 ,syntax (syntax-table))))) 227 (syntax-table) ,syntax))))
228 228
229 (use-local-map ,map) 229 (use-local-map ,map)
230 ,(when syntax `(set-syntax-table ,syntax)) 230 ,(when syntax `(set-syntax-table ,syntax))
231 ,(when abbrev `(setq local-abbrev-table ,abbrev)) 231 ,(when abbrev `(setq local-abbrev-table ,abbrev))
232 ; Splice in the body (if any). 232 ; Splice in the body (if any).