Lines Matching +defs:normal +defs:top +defs:level +defs:add +defs:subdirs +defs:to +defs:load +defs:path
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
34 (setq top-level '(normal-top-level))
63 the startup message unless he personally acts to inhibit it."
65 (string :tag "Enter your user name, to inhibit"))
88 "List of functions to process unrecognized command-line arguments.
93 altering `command-line-args-left' to remove them.")
96 "Default directory to use for command line arguments.
159 that the option accepts, HANDLER is a function to call to handle the option.
161 and VALUE is the value which is given to that frame parameter
178 It also follows `emacs-startup-hook'. This hook exists for users to set,
179 so as to override the definitions made by the terminal-specific file.
188 This variable is used to define the proper function and keypad
189 keys for use under X. It is used in a fashion analogous to the
193 "Normal hook run to initialize window system display.
198 "Major mode command symbol to use for the initial `*scratch*' buffer."
205 meaning do not load any init file.
213 evaluates to the name of the directory where the `.emacs' file was
217 `site-start.el'. The only way to do that is to use `--no-site-file'.")
222 that need to be in place for the entire site, but which, due to their
223 higher incidence of change, don't make sense to load into Emacs's
224 dumped image. Thus, the run-time load order is: 1. file described in
234 This variable is defined for customization so as to make
236 is not allowed, since it would not work anyway. The only way to set
237 this variable usefully is to set it while building and dumping Emacs."
270 This is used after reading your `.emacs' file to initialize
274 Set this to nil if you want to prevent `auto-save-list-file-name'
289 (defvar normal-top-level-add-subdirs-inode-list nil)
298 (defun normal-top-level-add-subdirs-to-load-path ()
299 "Add all subdirectories of current directory to `load-path'.
320 (unless (member attrs normal-top-level-add-subdirs-inode-list)
321 (push attrs normal-top-level-add-subdirs-inode-list)
335 (normal-top-level-add-to-load-path (cdr (nreverse dirs)))))
337 ;; This function is called from a subdirs.el file.
339 ;; in which the subdirs.el file exists,
340 ;; and it adds to load-path the subdirs of that directory
342 (defun normal-top-level-add-to-load-path (dirs)
343 (let ((tail load-path)
346 ;;Don't go all the way to the nil terminator.
356 (defun normal-top-level ()
358 (message "Back to top level.")
361 ;; just to keep things predictable.
371 ;; Look in each dir in load-path for a subdirs.el file.
372 ;; If we find one, load it, which will add the appropriate subdirs
373 ;; of that dir into load-path,
376 (let ((tail load-path) dir)
380 (load (expand-file-name "subdirs.el") t t t))
382 (load (expand-file-name "leim-list.el") t t t))
384 ;; the end, because the subdirs.el files may add elements to the end
385 ;; of load-path and we want to take it into account.
392 ;; describes the directory linked to, not FOO itself.
415 ;; We are going to access the auto-save
436 ;; Don't do this if we failed to create the initial frame,
437 ;; for instance due to a dense colormap.
471 ;; Now we know the user's default font, so add it to the menu.
472 (if (fboundp 'font-menu-add-default)
473 (font-menu-add-default))
553 ;; Change any . or * characters in name to
554 ;; hyphens, so as to emulate behavior on X.
569 (string-to-number argval))
596 ;;! to it, then it would be better to eliminate the option.
600 ;; Set the default strings to display in mode line for
601 ;; end-of-line formats that aren't native to this platform.
617 (load (concat term-file-prefix
631 (mapconcat (lambda (obj) (prin1-to-string obj t))
635 (mapconcat (lambda (obj) (prin1-to-string obj t))
648 ;; Convert preloaded file names in load-history to absolute.
652 (locate-file "simple" load-path (get-load-suffixes)))
661 (setq load-history
669 load-history))))
671 ;; Convert the arguments to Emacs internal representation.
681 ;; Figure out which user's init file to load,
684 ;; If user has not done su, use current $HOME to find .emacs.
746 ;; Re-attach the program name to the front of the arg list.
782 (custom-reevaluate-setting 'normal-erase-is-backspace)
801 ;; to determine if the tool-bar has been disabled by the init files,
802 ;; and the frame needs to be resized.
819 (load site-run-file t t))
834 ;; for the current user, and always load .emacs
838 ;; set to something different.
871 ;; But default to .emacs if _emacs does not exist.
877 ;; This tells `load' to store the file name found
880 (load user-init-file-1 t t)
890 (load otherfile t t)
899 ;; `user-init-file' to the source version if that
918 ;; Users are supposed to be told their rights.
919 ;; (Plus how to get help and how to undo.)
922 (load "default" t t)))))))))
924 ;; Do this without a condition-case if the user wants to debug.
940 (mapconcat (lambda (s) (prin1-to-string s t)) (cdr error) ", "))
942 "To ensure normal operation, you should investigate and remove the\n"
944 "the `--debug-init' option to view a complete error backtrace.\n\n"))
948 (mapconcat 'prin1-to-string (cdr error) ", "))
950 (pop-to-buffer "*Messages*"))
970 ;; arrange to preserve the value that it set up.
978 ;; Init file changed to unibyte. Reset existing multibyte
988 ;; originally done before unibyte was set and is sensitive to
1003 ;; faces where M-x customize has been used to save changes for the
1061 ;; User init file can set term-file-prefix to nil to prevent this.
1069 (not (load (concat term-file-prefix term) t t)))
1109 ;; This buffer is for notes you don't want to save, and for Lisp evaluation.
1110 ;; If you want to create a file, visit that file with C-x C-f,
1146 "Emacs Tutorial\t\tLearn how to use Emacs efficiently"
1160 Getting New Versions\tHow to obtain the latest version of Emacs
1186 "A list of texts to show in the middle part of splash screens.
1211 "*The image to show in the splash screens, or nil for defaults."
1262 `(space :align-to (+ center (-0.5 . ,img)))))
1300 " to begin editing"
1364 This is an internal function used to turn off the splash screen after
1379 This is an internal function used to turn off the splash screen after
1399 (switch-to-buffer " GNU Emacs")
1411 ;; Temporarily bind special events to
1412 ;; fancy-splash-special-event-action so as to stop
1453 (pop-to-buffer (current-buffer))
1454 (switch-to-buffer "*About GNU Emacs*"))
1477 "Return the frame to use for the fancy splash screen.
1502 ;; by displaying a warning, that doesn't cause the normal
1503 ;; splash screen to be used.
1508 (defun normal-splash-screen (&optional hide-on-input)
1528 (insert "Welcome to GNU Emacs")
1537 "\nType \\[recenter] to begin editing"
1543 ;; The user can use the mouse to activate menus
1555 Emacs Tutorial Learn how to use Emacs efficiently
1560 Getting New Versions How to obtain the latest version of Emacs
1561 More Manuals / Ordering Manuals How to order printed manuals from the FSF
1570 ;; use precomputed string to save lots of time.
1598 ;; Say how to use the menu bar with the keyboard.
1606 ;; Many users seem to have problems with these.
1622 of Emacs and modify it; type C-h C-c to see the conditions.
1628 of Emacs and modify it; type \\[describe-copying] to see the conditions.
1664 nil ;; (pop-to-buffer (current-buffer))
1666 (switch-to-buffer (current-buffer))
1669 (switch-to-buffer (current-buffer))
1671 (error (pop-to-buffer (current-buffer))))))
1675 (switch-to-buffer "GNU Emacs")
1693 "Display splash screen according to display.
1695 normal otherwise.
1700 (normal-splash-screen hide-on-input)))
1705 ;; t if the init file says to inhibit the echo area startup message.
1725 (prin1-to-string
1734 ;; use-fancy-splash-screens-p. This can cause image.el to be
1737 ;; use-fancy-splash-screens-p is called here simply to get the
1763 ;; if foo is intended to be found in DIR.
1766 ;; ;; at the front of `load-path' in the order they appear on the
1768 ;; ;; in the order they appear, so we need this variable to hold them,
1770 ;; extra-load-path
1772 ;; To DTRT we keep track of the splice point and modify `load-path'
1779 (append '(("--funcall") ("--load") ("--insert") ("--kill")
1788 ;; Add the long X options to longopts.
1804 ;; Convert long options to ordinary options
1835 "-e")) ; what the source used to say
1850 (t (setq load-path (cons tem load-path)
1851 splice load-path))))
1853 ((member argi '("-l" "-load"))
1857 ;; otherwise let `load' search for it.
1861 (load file nil t)))
1863 ;; This is used to handle -script. It's not clear
1864 ;; we need to document it.
1870 (load file-ex nil t t)))
1882 ;; don't load Desktop in their .emacs. If desktop.el
1889 (setq line (string-to-number argi)))
1892 (setq line (string-to-number (match-string 1 argi))
1893 column (string-to-number (match-string 2 argi))))
1901 ;; An explicit option to specify visiting a file.
1915 (move-to-column (1- column)))
1945 (move-to-column (1- column)))
1948 ;; to command-line options can cause the last visible frame
1949 ;; to be deleted. In this case, kill emacs to avoid an
1967 ;; If there are no switches to process, we might as well
1968 ;; run this hook now, and there may be some need to do it
1975 ;; It's important to notice the user settings before we
1982 ;; If there are no switches to process, we might as well
1983 ;; run this hook now, and there may be some need to do it
1990 ;; Do this now to avoid an annoying delay if the user
2012 "Collapse multiple slashes to one, to handle non-Emacs file names."
2016 ;; However, /// at the beginning is supposed to mean just /, not //.