Mercurial > hg > xemacs-beta

comparison lisp/prim/startup.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 318232e2a3f0
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
191 "Print the XEmacs usage message and exit." 191 "Print the XEmacs usage message and exit."
192 (let ((standard-output 'external-debugging-output)) 192 (let ((standard-output 'external-debugging-output))
193 (princ (concat "\n" (emacs-version) "\n\n")) 193 (princ (concat "\n" (emacs-version) "\n\n"))
194 (princ 194 (princ
195 (if (featurep 'x) 195 (if (featurep 'x)
196 (concat "XEmacs accepts all standard X Toolkit command line options.\n" 196 (concat (emacs-name)
197 " accepts all standard X Toolkit command line options.\n"
197 "In addition, the") 198 "In addition, the")
198 "The")) 199 "The"))
199 (princ " following options are accepted: 200 (princ " following options are accepted:
200 201
201 -t <device> Use TTY <device> instead of the terminal for input 202 -t <device> Use TTY <device> instead of the terminal for input
245 (funcall insert name " " arg) 246 (funcall insert name " " arg)
246 (funcall insert name)) 247 (funcall insert name))
247 (princ doc) 248 (princ doc)
248 (terpri)))) 249 (terpri))))
249 (setq l (cdr l)))) 250 (setq l (cdr l))))
250 (princ "\ 251 (princ (concat "\
251 +N <file> Start displaying <file> at line N. 252 +N <file> Start displaying <file> at line N.
252 253
253 Anything else is considered a file name, and is placed into a buffer for 254 Anything else is considered a file name, and is placed into a buffer for
254 editing. 255 editing.
255 256
256 XEmacs has an online tutorial and manuals. Type ^Ht (Control-h t) after 257 " (emacs-name) " has an online tutorial and manuals. Type ^Ht (Control-h t) after
257 starting XEmacs to run the tutorial. Type ^Hi to enter the manual browser. 258 starting XEmacs to run the tutorial. Type ^Hi to enter the manual browser.
258 Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n") 259 Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n")
259 260
260 (kill-emacs 0))) 261 (kill-emacs 0))))
261 262
262 (defun command-line-do-funcall (arg) 263 (defun command-line-do-funcall (arg)
263 "Invoke the named lisp function with no arguments. 264 "Invoke the named lisp function with no arguments.
264 <function>" 265 <function>"
265 (funcall (intern (pop command-line-args-left)))) 266 (funcall (intern (pop command-line-args-left))))