[PATCH] Re: looking at customize screws up C indenting

scheme.el mucks with the local syntax table. This patch works for me. Note that the patch is mostly whitespace changes. 2001-12-03 Jan Vroonhof <jan.vroonhof(a)ntlworld.com&gt; * scheme.el ((not scheme-mode-syntax-table)): Don't trash current symbol table, use with-syntax-table Index: scheme.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/scheme.el,v retrieving revision 1.3 diff -u -u -r1.3 scheme.el --- scheme.el 1999/07/09 07:51:02 1.3 +++ scheme.el 2001/12/03 22:43:59 ＠＠ -47,55 +47,55 ＠＠ (if (not scheme-mode-syntax-table) (let ((i 0)) (setq scheme-mode-syntax-table (make-syntax-table)) - (set-syntax-table scheme-mode-syntax-table) + (with-syntax-table scheme-mode-syntax-table - ;; Default is atom-constituent. - (while (< i 256) - (modify-syntax-entry i "_ ") - (setq i (1+ i))) - - ;; Word components. - (setq i ?0) - (while (<= i ?9) - (modify-syntax-entry i "w ") - (setq i (1+ i))) - (setq i ?A) - (while (<= i ?Z) - (modify-syntax-entry i "w ") - (setq i (1+ i))) - (setq i ?a) - (while (<= i ?z) - (modify-syntax-entry i "w ") - (setq i (1+ i))) - - ;; Whitespace - (modify-syntax-entry ?\t " ") - (modify-syntax-entry ?\n "> ") - (modify-syntax-entry ?\f " ") - (modify-syntax-entry ?\r " ") - (modify-syntax-entry ? " ") - - ;; These characters are delimiters but otherwise undefined. - ;; Brackets and braces balance for editing convenience. - (modify-syntax-entry ?\[ "(] ") - (modify-syntax-entry ?\] ")[ ") - (modify-syntax-entry ?{ "(} ") - (modify-syntax-entry ?} "){ ") - (modify-syntax-entry ?\| " 23") - - ;; Other atom delimiters - (modify-syntax-entry ?\( "() ") - (modify-syntax-entry ?\) ")( ") - (modify-syntax-entry ?\; "< ") - (modify-syntax-entry ?\" "\" ") - (modify-syntax-entry ?' " p") - (modify-syntax-entry ?` " p") - - ;; Special characters - (modify-syntax-entry ?, " p") - (modify-syntax-entry ?＠ "_ p") - (modify-syntax-entry ?# "_ p14") - (modify-syntax-entry ?\\ "\\ "))) + ;; Default is atom-constituent. + (while (< i 256) + (modify-syntax-entry i "_ ") + (setq i (1+ i))) + + ;; Word components. + (setq i ?0) + (while (<= i ?9) + (modify-syntax-entry i "w ") + (setq i (1+ i))) + (setq i ?A) + (while (<= i ?Z) + (modify-syntax-entry i "w ") + (setq i (1+ i))) + (setq i ?a) + (while (<= i ?z) + (modify-syntax-entry i "w ") + (setq i (1+ i))) + + ;; Whitespace + (modify-syntax-entry ?\t " ") + (modify-syntax-entry ?\n "> ") + (modify-syntax-entry ?\f " ") + (modify-syntax-entry ?\r " ") + (modify-syntax-entry ? " ") + + ;; These characters are delimiters but otherwise undefined. + ;; Brackets and braces balance for editing convenience. + (modify-syntax-entry ?\[ "(] ") + (modify-syntax-entry ?\] ")[ ") + (modify-syntax-entry ?{ "(} ") + (modify-syntax-entry ?} "){ ") + (modify-syntax-entry ?\| " 23") + + ;; Other atom delimiters + (modify-syntax-entry ?\( "() ") + (modify-syntax-entry ?\) ")( ") + (modify-syntax-entry ?\; "< ") + (modify-syntax-entry ?\" "\" ") + (modify-syntax-entry ?' " p") + (modify-syntax-entry ?` " p") + + ;; Special characters + (modify-syntax-entry ?, " p") + (modify-syntax-entry ?＠ "_ p") + (modify-syntax-entry ?# "_ p14") + (modify-syntax-entry ?\\ "\\ "))))  (defvar scheme-mode-abbrev-table nil "") (define-abbrev-table 'scheme-mode-abbrev-table ())