From 1626a4d516125deca5eb8d0f7a63b6d48d6ab63d Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Mon, 4 Apr 2011 22:46:22 -0500 Subject: [PATCH] Run debian-startup and set debian-emacs-flavor Emacs runs debian-startup and sets debian-emacs-flavor. * Emacs runs debian-startup during the startup process unless site-run-file is false. * The global variable debian-emacs-flavor is bound to 'emacs. Author: Rob Browning --- lisp/startup.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 32051c232ca..6ee20ccf597 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -434,6 +434,10 @@ Warning Warning!!! Pure space overflow !!!Warning Warning :type 'directory :initialize #'custom-initialize-delay) +(defconst debian-emacs-flavor 'emacs + "A symbol representing the particular debian flavor of emacs running. +Something like 'emacs, 'xemacs21, etc.") + (defun normal-top-level-add-subdirs-to-load-path () "Recursively add all subdirectories of `default-directory' to `load-path'. More precisely, this uses only the subdirectories whose names @@ -1129,8 +1133,21 @@ please check its value") ;; be loaded from site-run-file and wants to test if -q was given ;; should check init-file-user instead, since that is already set. ;; See cus-edit.el for an example. - (if site-run-file - (load site-run-file t t)) + + ;; Original upstream startup + ;; (if site-run-file + ;; (load site-run-file t t)) + ;; + + ;; Debian startup + (if site-run-file + (progn + ;; Load all the debian package snippets. + ;; It's in here because we want -q to kill it too. + (if (load "debian-startup" t t nil) + (debian-startup debian-emacs-flavor)) + ;; Now the normal site file... + (load site-run-file t t))) ;; Sites should not disable this. Only individuals should disable ;; the startup screen. -- 2.30.2