Changes between Version 37 and Version 38 of Emacs


Ignore:
Timestamp:
2011/04/14 23:40:55 (10 years ago)
Author:
munepi
Comment:

site-start.el を更新

Legend:

Unmodified
Added
Removed
Modified
  • Emacs

    v37 v38  
    5656==== site-start.el ==== 
    5757 
    58 from site-start.el.emacs24 of emacs24-24.0.50-3.20110128vl6.x86_64 
     58from site-start.el.emacs24 of emacs24-24.0.50-8.20110413vl6 
    5959{{{ 
    6060;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
    6161;;; GNU Emacs EMACS_VERSION default settings for Vine Linux 
    6262;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
     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") 
    6368 
    6469(defcustom emacs-ime (getenv "EMACS_IME") 
     
    6873    (setq emacs-ime "ibus-el")) 
    6974 
     75(defconst vine-default-major-version VINE_DEFAULT_MAJOR_VERSION "\ 
     76Major version number of this version of vine-default. 
     77This variable equals the major version number of Vine Linux that is running.") 
     78 
     79(defconst vine-default-minor-version 0 "\ 
     80Minor version number of this version of vine-default. 
     81This 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)) "\ 
     84The version of vine-default.") 
     85 
    7086(defcustom vine-default t 
    7187  "A boolean for all Vine Linux default settings" 
     
    85101  "List of functions to be called at vine-default-setup") 
    86102 
    87 (defvar after-vine-default-setup-hook nil  
    88   "This hook is obsolete! Please do not use this hook.  
    89    List of functions to be called at the end of vine-default-setup") 
     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") 
    90106 
    91107(defun vine-default-setup () 
     
    100116      (require 'vine-default-faces)) 
    101117    (run-hooks 'vine-default-setup-hook) 
    102     (run-hooks 'after-vine-default-setup-hook);; obsolete 
     118    ;; (run-hooks 'after-vine-default-setup-hook); obsolete 
    103119    ) 
    104120  ) 
     
    109125  (shell-command  
    110126   "/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  ) 
    111138 
    112139;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;