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

[Juanma Barranquero]

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 ----