Changes between Version 37 and Version 38 of Emacs

Timestamp:

2011/04/14 23:40:55 (15 years ago)

Author:

munepi

Comment:

site-start.el を更新

Emacs

@@ -56 +56 @@
 ==== site-start.el ====
 
-from site-start.el.emacs24 of emacs24-24.0.50-3.20110128vl6.x86_64
+from site-start.el.emacs24 of emacs24-24.0.50-8.20110413vl6
 {{{
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; GNU Emacs EMACS_VERSION default settings for Vine Linux
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(setq emacs-build-system 
+      (concat emacs-build-system ", modified for Vine Linux"))
+
+(setq report-emacs-bug-address "Vine@vinelinux.org")
 
 (defcustom emacs-ime (getenv "EMACS_IME")
@@ -68 +73 @@
     (setq emacs-ime "ibus-el"))
 
+(defconst vine-default-major-version VINE_DEFAULT_MAJOR_VERSION "\
+Major version number of this version of vine-default.
+This variable equals the major version number of Vine Linux that is running.")
+
+(defconst vine-default-minor-version 0 "\
+Minor version number of this version of vine-default.
+This variable is the system number for vine-default-major-version.")
+
+(defconst vine-default-version (+ vine-default-major-version (/ (float vine-default-minor-version) 10)) "\
+The version of vine-default.")
+
 (defcustom vine-default t
   "A boolean for all Vine Linux default settings"
@@ -85 +101 @@
   "List of functions to be called at vine-default-setup")
 
-(defvar after-vine-default-setup-hook nil 
-  "This hook is obsolete! Please do not use this hook. 
-   List of functions to be called at the end of vine-default-setup")
+;; (defvar after-vine-default-setup-hook nil 
+;;   "This hook is obsolete! Please do not use this hook. 
+;;    List of functions to be called at the end of vine-default-setup")
 
 (defun vine-default-setup ()
@@ -100 +116 @@
       (require 'vine-default-faces))
     (run-hooks 'vine-default-setup-hook)
-    (run-hooks 'after-vine-default-setup-hook);; obsolete
+    ;; (run-hooks 'after-vine-default-setup-hook); obsolete
     )
   )
@@ -109 +125 @@
   (shell-command 
    "/usr/lib/emacsen-common/show-vine-default.sh EMACS_VERSION"))
+
+(defun drop-vine-default-from-load-path (regex)
+  "A function to drop a path matching to REGEX from load-path"
+  (setq load-path
+        (let (list)
+          (dolist (x (reverse load-path) list)
+            (unless (string-match regex x)
+              (setq list (cons x list))))
+          )
+        )
+  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;