Commit 6b7b85b6 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/startup.el: Rename load-user-init-file

Remove redundant :groups.
(startup--load-user-init-file): Rename from load-user-init-file.
parent 478bbf7c
Pipeline #789 passed with stage
in 51 minutes and 23 seconds
......@@ -60,8 +60,7 @@ string or function value that this variable has."
(const :tag "Remember Mode notes buffer" remember-notes)
(function :tag "Function")
(const :tag "Lisp scratch buffer" t))
:version "23.1"
:group 'initialization)
:version "23.1")
(defvaralias 'inhibit-splash-screen 'inhibit-startup-screen)
(defvaralias 'inhibit-startup-message 'inhibit-startup-screen)
......@@ -71,8 +70,7 @@ string or function value that this variable has."
This is for use in your personal init file (but NOT site-start.el),
once you are familiar with the contents of the startup screen."
:type 'boolean
:group 'initialization)
:type 'boolean)
(defvar startup-screen-inhibit-startup-screen nil)
......@@ -101,18 +99,15 @@ instead:
Thus, someone else using a copy of your init file will see the
startup message unless he personally acts to inhibit it."
:type '(choice (const :tag "Don't inhibit")
(string :tag "Enter your user name, to inhibit"))
:group 'initialization)
(string :tag "Enter your user name, to inhibit")))
(defcustom inhibit-default-init nil
"Non-nil inhibits loading the `default' library."
:type 'boolean
:group 'initialization)
:type 'boolean)
(defcustom inhibit-startup-buffer-menu nil
"Non-nil inhibits display of buffer list when more than 2 files are loaded."
:type 'boolean
:group 'initialization)
:type 'boolean)
(defvar command-switch-alist nil
"Alist of command-line switches.
......@@ -336,8 +331,7 @@ is due to historical reasons, and does not reflect its purpose very well.)")
(defcustom initial-major-mode 'lisp-interaction-mode
"Major mode command symbol to use for the initial `*scratch*' buffer."
:type 'function
:group 'initialization)
:type 'function)
(defvar init-file-user nil
"Identity of user whose init file is or was read.
......@@ -376,7 +370,6 @@ it visible in the relevant context. However, actually customizing it
is not allowed, since it would not work anyway. The only way to set
this variable usefully is to set it while building and dumping Emacs."
:type '(choice (const :tag "none" nil) string)
:group 'initialization
:initialize #'custom-initialize-default
:set (lambda (_variable _value)
(error "Customizing `site-run-file' does not work")))
......@@ -886,7 +879,7 @@ If STYLE is nil, display appropriately for the terminal."
(when standard-display-table
(aset standard-display-table char nil)))))))
(defun load-user-init-file
(defun startup--load-user-init-file
(filename-function &optional alternate-filename-function load-defaults)
"Load a user init-file.
FILENAME-FUNCTION is called with no arguments and should return
......@@ -1164,11 +1157,11 @@ please check its value")
;; Load the early init file, if found.
(lambda ()
;; We use an explicit .el extension here to force
;; load-user-init-file to set user-init-file to "early-init.el",
;; startup--load-user-init-file to set user-init-file to "early-init.el",
;; with the .el extension, if the file doesn't exist, not just
;; "early-init" without an extension, as it does for ".emacs".
......@@ -1308,7 +1301,7 @@ please check its value")
(load site-run-file t t)))
;; Load that user's init file, or the default one, or none.
(lambda ()
((eq system-type 'ms-dos)
......@@ -1481,8 +1474,7 @@ settings will be marked as \"CHANGED outside of Customize\"."
"Initial documentation displayed in *scratch* buffer at startup.
If this is nil, no message will be displayed."
:type '(choice (text :tag "Message")
(const :tag "none" nil))
:group 'initialization)
(const :tag "none" nil)))
......@@ -1636,13 +1628,13 @@ Each element in the list should be a list of strings or pairs
(defgroup fancy-splash-screen ()
;; FIXME: Do we really need this group with a single custom var?
"Fancy splash screen when Emacs starts."
:version "21.1"
:group 'initialization)
(defcustom fancy-splash-image nil
"The image to show in the splash screens, or nil for defaults."
:group 'fancy-splash-screen
:type '(choice (const :tag "Default" nil)
(file :tag "File")))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment