diff lisp/faces.el @ 83358:07db5d4dfae1

Fix terminal initialization code. (Contributed by Dan Nicolaescu.) * lisp/faces.el (tty-create-frame-with-faces): Call terminal-init-*. Don't load the initialization file more than once. * lisp/startup.el (command-line): Don't load the terminal initialization file more than once. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-398

--- a/lisp/faces.el	Mon Sep 05 14:29:12 2005 +0000
+++ b/lisp/faces.el	Wed Sep 07 02:22:52 2005 +0000
@@ -1820,14 +1820,25 @@
 	  ;; User init file can set term-file-prefix to nil to prevent this.
 	  (unless (null term-file-prefix)
 	    (let ((term (cdr (assq 'tty-type parameters)))
-		  hyphend)
+		  hyphend
+		  term-init-func)
 	      (while (and term
+			  (not (fboundp 
+				(setq term-init-func (intern (concat "terminal-init-" term)))))
 			  (not (load (concat term-file-prefix term) t t)))
 		;; Strip off last hyphen and what follows, then try again
 		(setq term
 		      (if (setq hyphend (string-match "[-_][^-_]+$" term))
 			  (substring term 0 hyphend)
-			nil)))))
+			nil))
+		(setq term-init-func nil))
+	      (when term
+		;; The terminal file has been loaded, now call the terminal
+		;; specific initialization function.
+		(unless term-init-func 
+		  (setq term-init-func (intern (concat "terminal-init-" term)))
+		  (when (fboundp term-init-func)
+		    (funcall term-init-func))))))
 	  ;; Make sure the kill and yank functions do not touch the X clipboard.
 	  (modify-frame-parameters frame '((interprogram-cut-function . nil)))
 	  (modify-frame-parameters frame '((interprogram-paste-function . nil)))