Mercurial > emacs

comparison lisp/emacs-lisp/derived.el @ 90203:187d6a1f84f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 485-492) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 92-94) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 22 Jul 2005 08:27:27 +0000
parents f9a65d7ebd29 92e5d9e433d3
children 2d92f5c9d6ae
comparison
equal deleted inserted replaced
90202:7597b4a23c3b 90203:187d6a1f84f7
94 (eval-when-compile (require 'cl)) 94 (eval-when-compile (require 'cl))
95 95
96 ;;; PRIVATE: defsubst must be defined before they are first used 96 ;;; PRIVATE: defsubst must be defined before they are first used
97 97
98 (defsubst derived-mode-hook-name (mode) 98 (defsubst derived-mode-hook-name (mode)
99 "Construct the mode hook name based on mode name MODE." 99 "Construct a mode-hook name based on a MODE name."
100 (intern (concat (symbol-name mode) "-hook"))) 100 (intern (concat (symbol-name mode) "-hook")))
101 101
102 (defsubst derived-mode-map-name (mode) 102 (defsubst derived-mode-map-name (mode)
103 "Construct a map name based on a MODE name." 103 "Construct a map name based on a MODE name."
104 (intern (concat (symbol-name mode) "-map"))) 104 (intern (concat (symbol-name mode) "-map")))
380 (old-table local-abbrev-table) 380 (old-table local-abbrev-table)
381 (new-table (eval table-name))) 381 (new-table (eval table-name)))
382 (derived-mode-merge-abbrev-tables old-table new-table) 382 (derived-mode-merge-abbrev-tables old-table new-table)
383 (setq local-abbrev-table new-table))) 383 (setq local-abbrev-table new-table)))
384 384
385 ;;;(defun derived-mode-run-setup-function (mode)
386 ;;; "Run the setup function if it exists."
387
388 ;;; (let ((fname (derived-mode-setup-function-name mode)))
389 ;;; (if (fboundp fname)
390 ;;; (funcall fname))))
391
392 (defun derived-mode-run-hooks (mode) 385 (defun derived-mode-run-hooks (mode)
393 "Run the mode hook for MODE." 386 "Run the mode hook for MODE."
394 (let ((hooks-name (derived-mode-hook-name mode))) 387 (let ((hooks-name (derived-mode-hook-name mode)))
395 (if (boundp hooks-name) 388 (if (boundp hooks-name)
396 (run-hooks hooks-name)))) 389 (run-hooks hooks-name))))
397 390
398 ;; Functions to merge maps and tables. 391 ;; Functions to merge maps and tables.
399 392
400 (defun derived-mode-merge-keymaps (old new) 393 (defun derived-mode-merge-keymaps (old new)
401 "Merge an OLD keymap into a NEW one. 394 "Merge an OLD keymap into a NEW one.