procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tutorial-directory): New constant.

Browse source 
(fancy-splash-text): Tutorials now in tutorial-directory.
This commit is contained in:
Glenn Morris 2007-08-22 07:41:58 +00:00
parent 9ca6898a72
commit f51a80aff3
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/startup.el
View file

@ -308,6 +308,9 @@ from being initialized."
(defvar pure-space-overflow nil (defvar pure-space-overflow nil
"Non-nil if building Emacs overflowed pure space.") "Non-nil if building Emacs overflowed pure space.")
(defconst tutorial-directory (expand-file-name "tutorials" data-directory)
"Directory containing the Emacs TUTORIAL files.")
(defun normal-top-level-add-subdirs-to-load-path () (defun normal-top-level-add-subdirs-to-load-path ()
"Add all subdirectories of current directory to `load-path'. "Add all subdirectories of current directory to `load-path'.
More precisely, this uses only the subdirectories whose names More precisely, this uses only the subdirectories whose names
@ -1150,7 +1153,7 @@ regardless of the value of this variable."
en)) en))
(title (with-temp-buffer (title (with-temp-buffer
(insert-file-contents (insert-file-contents
(expand-file-name tut data-directory) (expand-file-name tut tutorial-directory)
nil 0 256) nil 0 256)
(search-forward ".") (search-forward ".")
(buffer-substring (point-min) (1- (point)))))) (buffer-substring (point-min) (1- (point))))))