/[emacs]/emacs/lisp/derived.el
ViewVC logotype

Diff of /emacs/lisp/derived.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by monnier, Wed Sep 11 22:04:40 2002 UTC revision 1.34 by rms, Thu Sep 12 03:22:40 2002 UTC
# Line 215  been generated automatically, with a ref Line 215  been generated automatically, with a ref
215                     `(let ((parent (char-table-parent ,syntax)))                     `(let ((parent (char-table-parent ,syntax)))
216                        (unless (and parent                        (unless (and parent
217                                     (not (eq parent (standard-syntax-table))))                                     (not (eq parent (standard-syntax-table))))
218                          (set-char-table-parent ,syntax (syntax-table)))))                          (set-char-table-parent ,syntax (syntax-table)))))))
                 ,(when declare-abbrev  
                    `(when local-abbrev-table  
                       (mapatoms  
                        (lambda (symbol)  
                          (or (intern-soft (symbol-name symbol) ,abbrev)  
                              (define-abbrev ,abbrev  
                                (symbol-name symbol)  
                                (symbol-value symbol)  
                                (symbol-function symbol))))  
                        local-abbrev-table)))))  
219    
220            (use-local-map ,map)            (use-local-map ,map)
221            ,(when syntax `(set-syntax-table ,syntax))            ,(when syntax `(set-syntax-table ,syntax))

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26