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.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
