mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

(derived-mode-merge-syntax-tables): Use inheritance.

Browse Source
This commit is contained in:
Karl Heuer 1996-02-21 21:33:12 +00:00
parent fa66096961
commit 5dee7dae09
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/derived.el
View File

@ -331,11 +331,7 @@ be automatic inheritance."
(defun derived-mode-merge-syntax-tables (old new) (defun derived-mode-merge-syntax-tables (old new)
"Merge an old syntax table into a new one. "Merge an old syntax table into a new one.
Where the new table already has an entry, nothing is copied from the old one." Where the new table already has an entry, nothing is copied from the old one."
(map-char-table (set-char-table-parent new old))
(function (lambda (key value)
(or (char-table-range new key)
(set-char-table-range new key value))))
old))
;; Merge an old abbrev table into a new one. ;; Merge an old abbrev table into a new one.
;; This function requires internal knowledge of how abbrev tables work, ;; This function requires internal knowledge of how abbrev tables work,