update vine-default-{base,faces}.el at changeset 2293

git-svn-id: http://trac.vinelinux.org/repos/projects/specs@2300 ec354946-7b23-47d6-9f5a-488ba84defc7

e/emacs/vine-default-base.el

@@ -1,13 +1,10 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  -*- coding: utf-8-unix -*-
 ;;  FSF Emacs 23 用 Vine Linux 基本設定
-;;    Munehiro Yamamoto <munepi@cg8.so-net.ne.jp>
+;;    Munehiro Yamamoto <munepi@vinelinux.org>
 ;;	$Id: vine-default-base.el,v 1.4 2010/01/04 11:21:29 munepi Exp $
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; ;;; 言語環境の指定
-;; (set-language-environment "Japanese")
-
 ;;; emacsclient サーバを起動
 ;(server-start)
 
@@ -22,8 +19,8 @@
 ;;; 画面最下行で[↓]を押したときのスクロール数
 ;(setq scroll-step 1)
 
-;;; ツールバーを消す
-(tool-bar-mode 0)
+;; ;;; ツールバーを消す
+;; (tool-bar-mode 0)
 
 ;;; cursor の blink を止める
 (blink-cursor-mode 0)
@@ -130,8 +127,8 @@
       (require 'ps-mule)
       (defalias 'ps-mule-header-string-charsets 'ignore)))
 
-;;; バッファの最後でnewlineで新規行を追加するのを禁止する
-(setq next-line-add-newlines 0)
+;; ;;; バッファの最後では next-line で新規行を追加しない
+;; (setq next-line-add-newlines nil); default: nil
 
 ;;; mark 領域に色付け
 ;(setq transient-mark-mode 1)

e/emacs/vine-default-faces.el

@@ -1,42 +1,42 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  -*- coding: utf-8-unix -*-
 ;;  FSF Emacs 23 用 Vine Linux フォント/カラー設定
-;;    Munehiro Yamamoto <munepi@cg8.so-net.ne.jp>
+;;    Munehiro Yamamoto <munepi@vinelinux.org>
 ;;	$Id: vine-default-faces.el,v 1.11 2009/07/25 14:04:04 munepi Exp $	
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(if (and window-system
-	 (string-match "^23\." emacs-version))
-    (progn
-      (setq desktop-gnome-interface-monospace-font-name 
-	    (replace-regexp-in-string "\n" "" 
-		(shell-command-to-string 
-		   "bash -c \'gconftool-2 --get /desktop/gnome/interface/monospace_font_name 2> /dev/null\'")))
-      (if (null desktop-gnome-interface-monospace-font-name)
-	  (setq desktop-gnome-interface-monospace-font-name "Monospace 10"));; default
+;; (if (and window-system
+;; 	 (string-match "^23\." emacs-version))
+;;     (progn
+;;       (setq desktop-gnome-interface-monospace-font-name 
+;; 	    (replace-regexp-in-string "\n" "" 
+;; 		(shell-command-to-string 
+;; 		   "bash -c \'gconftool-2 --get /desktop/gnome/interface/monospace_font_name 2> /dev/null\'")))
+;;       (if (null desktop-gnome-interface-monospace-font-name)
+;; 	  (setq desktop-gnome-interface-monospace-font-name "Monospace 10"));; default
 
-      (set-frame-font desktop-gnome-interface-monospace-font-name)
+;;       (set-frame-font desktop-gnome-interface-monospace-font-name)
 
-      (unless (assoc 'font default-frame-alist)
-	(add-to-list 'default-frame-alist 
-		     '(font . desktop-gnome-interface-monospace-font-name))
-	(setcdr (assoc 'font default-frame-alist) 
-		desktop-gnome-interface-monospace-font-name))
+;;       (unless (assoc 'font default-frame-alist)
+;; 	(add-to-list 'default-frame-alist 
+;; 		     '(font . desktop-gnome-interface-monospace-font-name))
+;; 	(setcdr (assoc 'font default-frame-alist) 
+;; 		desktop-gnome-interface-monospace-font-name))
 
-      ;; (set-fontset-font (frame-parameter nil 'font)
-      ;; 			'japanese-jisx0208
-      ;; 			'("VLゴシック regular" . "iso10646-1"))
-      ;; (set-fontset-font (frame-parameter nil 'font)
-      ;; 			'katakana-jisx0201
-      ;; 			'("VLゴシック regular" . "iso10646-1"))
-      ;; (set-fontset-font (frame-parameter nil 'font)
-      ;; 			'japanese-jisx0213-1
-      ;; 			'("VLゴシック regular" . "iso10646-1"))
-      ;; (set-fontset-font (frame-parameter nil 'font)
-      ;; 			'japanese-jisx0213-2
-      ;; 			'("VLゴシック regular" . "iso10646-1"))
-      )
-  )
+;;       ;; (set-fontset-font (frame-parameter nil 'font)
+;;       ;; 			'japanese-jisx0208
+;;       ;; 			'("VLゴシック regular" . "iso10646-1"))
+;;       ;; (set-fontset-font (frame-parameter nil 'font)
+;;       ;; 			'katakana-jisx0201
+;;       ;; 			'("VLゴシック regular" . "iso10646-1"))
+;;       ;; (set-fontset-font (frame-parameter nil 'font)
+;;       ;; 			'japanese-jisx0213-1
+;;       ;; 			'("VLゴシック regular" . "iso10646-1"))
+;;       ;; (set-fontset-font (frame-parameter nil 'font)
+;;       ;; 			'japanese-jisx0213-2
+;;       ;; 			'("VLゴシック regular" . "iso10646-1"))
+;;       )
+;;   )
 
 (if (string-match "^22\." emacs-version)
   (progn
@@ -64,20 +64,6 @@
     )
   )
 
-;; ;; フォントカラーと背景色
-;; (if window-system
-;;     (progn 
-;;       (set-face-background 'default "#333366")
-;;       (set-face-foreground 'default "white")
-;;       (set-face-background 'mode-line "grey94") 
-;;       (set-cursor-color "white")
-;;       )
-;;   (progn
-;;     (set-face-background 'default "000000")
-;;     (set-face-foreground 'default "ffffff")
-;;     )
-;;   )
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (provide 'vine-default-faces)