Mercurial > hg > xemacs-beta
comparison lisp/prim/startup.el @ 110:fe104dbd9147 r20-1b7
Import from CVS: tag r20-1b7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:19:45 +0200 |
| parents | 360340f9fd5f |
| children | 8619ce7e4c50 |
comparison
equal
deleted
inserted
replaced
| 109:e183fc049578 | 110:fe104dbd9147 |
|---|---|
| 881 "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n" | 881 "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n" |
| 882 "Type " (key advertised-undo) " to undo changes (`C-' means use the Control key).\n" | 882 "Type " (key advertised-undo) " to undo changes (`C-' means use the Control key).\n" |
| 883 "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\n" | 883 "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\n" |
| 884 "Type " (key help-with-tutorial) " for a tutorial on using XEmacs.\n" | 884 "Type " (key help-with-tutorial) " for a tutorial on using XEmacs.\n" |
| 885 "Type " (key info) " to enter Info, " | 885 "Type " (key info) " to enter Info, " |
| 886 "which you can use to read online documentation.\n\n" | 886 "which you can use to read online documentation.\n" |
| 887 (face (bold red) ( "\ | 887 (face (bold red) ( "\ |
| 888 For tips and answers to frequently asked questions, see the XEmacs FAQ. | 888 For tips and answers to frequently asked questions, see the XEmacs FAQ. |
| 889 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) | 889 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) |
| 890 | 890 |
| 891 (defun startup-splash-frame () | 891 (defun startup-splash-frame () |
| 1206 (if lisp | 1206 (if lisp |
| 1207 (list lisp) | 1207 (list lisp) |
| 1208 ) | 1208 ) |
| 1209 )) | 1209 )) |
| 1210 | 1210 |
| 1211 ;; 1997/03/06 by Jeff Miller <jmiller@bayserve.net> | |
| 1212 ;; initialize 'site-directory'. This is the site-lisp dir used by | |
| 1213 ;; XEmacs | |
| 1214 (if site-lisp | |
| 1215 (setq site-directory (file-name-as-directory site-lisp)) | |
| 1216 ) | |
| 1211 ;; If running from the build directory, always prefer the exec-directory | 1217 ;; If running from the build directory, always prefer the exec-directory |
| 1212 ;; that is here over to the one that came from paths.h. | 1218 ;; that is here over to the one that came from paths.h. |
| 1213 (when (or (and (null exec-directory) lib-src) | 1219 (when (or (and (null exec-directory) lib-src) |
| 1214 (and (string= lib-src (expand-file-name "lib-src" root)) | 1220 (and (string= lib-src (expand-file-name "lib-src" root)) |
| 1215 (not (string= exec-directory lib-src)))) | 1221 (not (string= exec-directory lib-src)))) |