Mercurial > emacs

comparison lisp/startup.el @ 64651:af1c58687bdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* term/apollo.el (terminal-init-apollo): New function containing all former top level forms in the file. * term/bobcat.el (terminal-init-bobcat): * term/cygwin.el (terminal-init-cygwin): * term/iris-ansi.el (terminal-init-iris-ansi): * term/linux.el (terminal-init-linux): * term/news.el (terminal-init-news): * term/rxvt.el (terminal-init-rxvt): * term/sun.el (terminal-init-sun): * term/tvi970.el (terminal-init-tvi970): * term/vt100.el (terminal-init-vt100): * term/vt102.el (terminal-init-vt102): * term/vt125.el (terminal-init-vt125): * term/vt200.el (terminal-init-vt200): * term/vt201.el (terminal-init-vt201): * term/vt220.el (terminal-init-vt220): * term/vt240.el (terminal-init-vt240): * term/vt300.el (terminal-init-vt300): * term/vt320.el (terminal-init-vt320): * term/vt400.el (terminal-init-vt400): * term/vt420.el (terminal-init-vt420): * term/wyse50.el (terminal-init-wyse50): * term/xterm.el (terminal-init-xterm): Likewise. * term/README: Describe the terminal-init-* functionality. * startup.el (command-line): After loading the terminal initialization file call the corresponding terminal initialization function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 27 Jul 2005 18:02:08 +0000
parents 4e0e85061ae3
children 41bb365f41c4 890cc78a5a24
comparison
equal deleted inserted replaced
64650:82d9ac62ed1d 64651:af1c58687bdd
982 (not (load (concat term-file-prefix term) t t))) 982 (not (load (concat term-file-prefix term) t t)))
983 ;; Strip off last hyphen and what follows, then try again 983 ;; Strip off last hyphen and what follows, then try again
984 (setq term 984 (setq term
985 (if (setq hyphend (string-match "[-_][^-_]+$" term)) 985 (if (setq hyphend (string-match "[-_][^-_]+$" term))
986 (substring term 0 hyphend) 986 (substring term 0 hyphend)
987 nil))))) 987 nil)))
988 (when term
989 ;; The terminal file has been loaded, now call the terminal
990 ;; specific initialization function.
991 (let ((term-init-func (intern (concat "terminal-init-" term))))
992 (when (fboundp term-init-func)
993 (funcall term-init-func))))))
988 994
989 ;; Update the out-of-memory error message based on user's key bindings 995 ;; Update the out-of-memory error message based on user's key bindings
990 ;; for save-some-buffers. 996 ;; for save-some-buffers.
991 (setq memory-signal-data 997 (setq memory-signal-data
992 (list 'error 998 (list 'error