v37 | v38 | |
---|---|---|
56 | 56 | ==== site-start.el ==== |
57 | 57 | |
58 | from site-start.el.emacs24 of emacs24-24.0.50- |
|
58 | from site-start.el.emacs24 of emacs24-24.0.50-8.20110413vl6 | |
59 | 59 | {{{ |
60 | 60 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
61 | 61 | ;;; GNU Emacs EMACS_VERSION default settings for Vine Linux |
62 | 62 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
63 | ||
64 | (setq emacs-build-system | |
65 | (concat emacs-build-system ", modified for Vine Linux")) | |
66 | ||
67 | (setq report-emacs-bug-address "Vine@vinelinux.org") | |
63 | 68 | |
64 | 69 | (defcustom emacs-ime (getenv "EMACS_IME") |
… | … | |
68 | 73 | (setq emacs-ime "ibus-el")) |
69 | 74 | |
75 | (defconst vine-default-major-version VINE_DEFAULT_MAJOR_VERSION "\ | |
76 | Major version number of this version of vine-default. | |
77 | This variable equals the major version number of Vine Linux that is running.") | |
78 | ||
79 | (defconst vine-default-minor-version 0 "\ | |
80 | Minor version number of this version of vine-default. | |
81 | This variable is the system number for vine-default-major-version.") | |
82 | ||
83 | (defconst vine-default-version (+ vine-default-major-version (/ (float vine-default-minor-version) 10)) "\ | |
84 | The version of vine-default.") | |
85 | ||
70 | 86 | (defcustom vine-default t |
71 | 87 | "A boolean for all Vine Linux default settings" |
… | … | |
85 | 101 | "List of functions to be called at vine-default-setup") |
86 | 102 | |
87 | ||
88 | ||
89 | ||
103 | ;; (defvar after-vine-default-setup-hook nil | |
104 | ;; "This hook is obsolete! Please do not use this hook. | |
105 | ;; List of functions to be called at the end of vine-default-setup") | |
90 | 106 | |
91 | 107 | (defun vine-default-setup () |
… | … | |
100 | 116 | (require 'vine-default-faces)) |
101 | 117 | (run-hooks 'vine-default-setup-hook) |
102 | |
|
118 | ;; (run-hooks 'after-vine-default-setup-hook); obsolete | |
103 | 119 | ) |
104 | 120 | ) |
… | … | |
109 | 125 | (shell-command |
110 | 126 | "/usr/lib/emacsen-common/show-vine-default.sh EMACS_VERSION")) |
127 | ||
128 | (defun drop-vine-default-from-load-path (regex) | |
129 | "A function to drop a path matching to REGEX from load-path" | |
130 | (setq load-path | |
131 | (let (list) | |
132 | (dolist (x (reverse load-path) list) | |
133 | (unless (string-match regex x) | |
134 | (setq list (cons x list)))) | |
135 | ) | |
136 | ) | |
137 | ) | |
111 | 138 | |
112 | 139 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |