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

[Dan Nicolaescu]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.370 emacs/lisp/startup.el:1.371
*** emacs/lisp/startup.el:1.370 Mon Jul 25 14:21:04 2005
--- emacs/lisp/startup.el       Wed Jul 27 18:02:07 2005
***************
*** 984,990 ****
          (setq term
                (if (setq hyphend (string-match "[-_][^-_]+$" term))
                    (substring term 0 hyphend)
!                 nil)))))
  
    ;; Update the out-of-memory error message based on user's key bindings
    ;; for save-some-buffers.
--- 984,996 ----
          (setq term
                (if (setq hyphend (string-match "[-_][^-_]+$" term))
                    (substring term 0 hyphend)
!                 nil)))
!       (when term
!       ;; The terminal file has been loaded, now call the terminal
!       ;; specific initialization function.
!       (let ((term-init-func (intern (concat "terminal-init-" term))))
!         (when (fboundp term-init-func)
!           (funcall term-init-func))))))
  
    ;; Update the out-of-memory error message based on user's key bindings
    ;; for save-some-buffers.