Mercurial > hg > xemacs-beta
comparison lisp/prim/startup.el @ 32:e04119814345 r19-15b99
Import from CVS: tag r19-15b99
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:52:56 +0200 |
| parents | ec9a17fef872 |
| children | 1a767b41a199 |
comparison
equal
deleted
inserted
replaced
| 31:b9328a10c56c | 32:e04119814345 |
|---|---|
| 847 (round (/ (/ (- fill-area-width glyph-pixwidth) 2) avg-pixwidth))))) | 847 (round (/ (/ (- fill-area-width glyph-pixwidth) 2) avg-pixwidth))))) |
| 848 | 848 |
| 849 (defun startup-splash-frame-body () | 849 (defun startup-splash-frame-body () |
| 850 `("\n" ,(emacs-version) "\n" | 850 `("\n" ,(emacs-version) "\n" |
| 851 ,@(if (string-match "beta" emacs-version) | 851 ,@(if (string-match "beta" emacs-version) |
| 852 `( (face (bold blue) ( "This is an Experimental version of XEmacs." | 852 `( (face (bold blue) ( "This is an Experimental version of XEmacs. " |
| 853 "Type " (key describe-beta) | 853 " Type " (key describe-beta) |
| 854 " to see what this means.\n"))) | 854 " to see what this means.\n"))) |
| 855 `( "\n")) | 855 `( "\n")) |
| 856 (face bold-italic "\ | 856 (face bold-italic "\ |
| 857 Copyright (C) 1985-1997 Free Software Foundation, Inc. | 857 Copyright (C) 1985-1997 Free Software Foundation, Inc. |
| 858 Copyright (C) 1990-1994 Lucid, Inc. | 858 Copyright (C) 1990-1994 Lucid, Inc. |
| 891 "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n" | 891 "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n" |
| 892 "Type " (key advertised-undo) " to undo changes (`C-' means use the Control key).\n" | 892 "Type " (key advertised-undo) " to undo changes (`C-' means use the Control key).\n" |
| 893 "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\n" | 893 "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\n" |
| 894 "Type " (key help-with-tutorial) " for a tutorial on using XEmacs.\n" | 894 "Type " (key help-with-tutorial) " for a tutorial on using XEmacs.\n" |
| 895 "Type " (key info) " to enter Info, " | 895 "Type " (key info) " to enter Info, " |
| 896 "which you can use to read online documentation.\n\n" | 896 "which you can use to read online documentation.\n" |
| 897 (face (bold red) ( "\ | 897 (face (bold red) ( "\ |
| 898 For tips and answers to frequently asked questions, see the XEmacs FAQ. | 898 For tips and answers to frequently asked questions, see the XEmacs FAQ. |
| 899 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) | 899 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) |
| 900 | 900 |
| 901 (defun startup-splash-frame () | 901 (defun startup-splash-frame () |
| 1214 (if lisp | 1214 (if lisp |
| 1215 (list lisp) | 1215 (list lisp) |
| 1216 ) | 1216 ) |
| 1217 )) | 1217 )) |
| 1218 | 1218 |
| 1219 ;; 1997/03/06 by Jeff Miller <jmiller@bayserve.net> | |
| 1220 ;; initialize 'site-directory'. This is the site-lisp dir used by | |
| 1221 ;; XEmacs | |
| 1222 (if site-lisp | |
| 1223 (setq site-directory (file-name-as-directory site-lisp)) | |
| 1224 ) | |
| 1225 | |
| 1219 ;; If running from the build directory, always prefer the exec-directory | 1226 ;; If running from the build directory, always prefer the exec-directory |
| 1220 ;; that is here over the one that came from paths.h. | 1227 ;; that is here over the one that came from paths.h. |
| 1221 (if (or (and (null exec-directory) lib-src) | 1228 (if (or (and (null exec-directory) lib-src) |
| 1222 (and (equal lib-src (expand-file-name "lib-src" root)) | 1229 (and (equal lib-src (expand-file-name "lib-src" root)) |
| 1223 (not (equal exec-directory lib-src)))) | 1230 (not (equal exec-directory lib-src)))) |