Index: emacs/lisp/emacs-lisp/derived.el
diff -c emacs/lisp/emacs-lisp/derived.el:1.9
emacs/lisp/emacs-lisp/derived.el:1.10
*** emacs/lisp/emacs-lisp/derived.el:1.9 Mon Jul 4 17:33:35 2005
--- emacs/lisp/emacs-lisp/derived.el Fri Jul 15 01:20:41 2005
***************
*** 96,102 ****
;;; PRIVATE: defsubst must be defined before they are first used
(defsubst derived-mode-hook-name (mode)
! "Construct the mode hook name based on mode name MODE."
(intern (concat (symbol-name mode) "-hook")))
(defsubst derived-mode-map-name (mode)
--- 96,102 ----
;;; PRIVATE: defsubst must be defined before they are first used
(defsubst derived-mode-hook-name (mode)
! "Construct a mode-hook name based on a MODE name."
(intern (concat (symbol-name mode) "-hook")))
(defsubst derived-mode-map-name (mode)
***************
*** 381,399 ****
(new-table (eval table-name)))
(derived-mode-merge-abbrev-tables old-table new-table)
(setq local-abbrev-table new-table)))
-
- ;;;(defun derived-mode-run-setup-function (mode)
- ;;; "Run the setup function if it exists."
-
- ;;; (let ((fname (derived-mode-setup-function-name mode)))
- ;;; (if (fboundp fname)
- ;;; (funcall fname))))
-
- (defun derived-mode-run-hooks (mode)
- "Run the mode hook for MODE."
- (let ((hooks-name (derived-mode-hook-name mode)))
- (if (boundp hooks-name)
- (run-hooks hooks-name))))
;; Functions to merge maps and tables.
--- 381,386 ----
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
