[Emacs-diffs] Changes to emacs/lisp/derived.el

[Richard M. Stallman]

Index: emacs/lisp/derived.el
diff -c emacs/lisp/derived.el:1.33 emacs/lisp/derived.el:1.34
*** emacs/lisp/derived.el:1.33  Wed Sep 11 18:04:40 2002
--- emacs/lisp/derived.el       Wed Sep 11 23:22:40 2002
***************
*** 215,231 ****
                   `(let ((parent (char-table-parent ,syntax)))
                      (unless (and parent
                                   (not (eq parent (standard-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)))))
  
          (use-local-map ,map)
          ,(when syntax `(set-syntax-table ,syntax))
--- 215,221 ----
                   `(let ((parent (char-table-parent ,syntax)))
                      (unless (and parent
                                   (not (eq parent (standard-syntax-table))))
!                       (set-char-table-parent ,syntax (syntax-table)))))))
  
          (use-local-map ,map)
          ,(when syntax `(set-syntax-table ,syntax))