Mercurial > emacs
comparison lisp/startup.el @ 82800:f25aaee01664
(tutorial-directory): Set with eval-at-startup so it gets the right
value in an installed Emacs.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 24 Aug 2007 02:57:42 +0000 |
| parents | 3a5502138995 |
| children | 27d11c1d4e46 b83d0dadb2a7 |
comparison
equal
deleted
inserted
replaced
| 82799:5a87629042db | 82800:f25aaee01664 |
|---|---|
| 306 (defvar default-frame-background-mode) | 306 (defvar default-frame-background-mode) |
| 307 | 307 |
| 308 (defvar pure-space-overflow nil | 308 (defvar pure-space-overflow nil |
| 309 "Non-nil if building Emacs overflowed pure space.") | 309 "Non-nil if building Emacs overflowed pure space.") |
| 310 | 310 |
| 311 (defconst tutorial-directory (expand-file-name "tutorials" data-directory) | 311 (defvar tutorial-directory nil |
| 312 "Directory containing the Emacs TUTORIAL files.") | 312 "Directory containing the Emacs TUTORIAL files.") |
| 313 | |
| 314 ;; Get correct value in a dumped, installed Emacs. | |
| 315 (eval-at-startup | |
| 316 (setq tutorial-directory (file-name-as-directory | |
| 317 (expand-file-name "tutorials" data-directory)))) | |
| 313 | 318 |
| 314 (defun normal-top-level-add-subdirs-to-load-path () | 319 (defun normal-top-level-add-subdirs-to-load-path () |
| 315 "Add all subdirectories of current directory to `load-path'. | 320 "Add all subdirectories of current directory to `load-path'. |
| 316 More precisely, this uses only the subdirectories whose names | 321 More precisely, this uses only the subdirectories whose names |
| 317 start with letters or digits; it excludes any subdirectory named `RCS' | 322 start with letters or digits; it excludes any subdirectory named `RCS' |