LINUX環境構築/CentOS4.0/emacs設定

pukiwiki_cat .emacs
;; \uffff\u30e6\uffff\u832f\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff\uffff
;;(set-language-environment "Japanese")
;;(set-default-coding-systems 'euc-jp-unix)
;;(set-terminal-coding-system 'euc-jp-unix)
;;(set-keyboard-coding-system 'euc-jp-unix)
;;(set-buffer-file-coding-system 'euc-jp-unix)
;; Emacs \uffff\uffff XEmacs \uffff\uffff\uffff\u6028\uffff
(cond
 ;; XEmacs 21
 ((string-match "XEmacs" emacs-version)
  (load (expand-file-name "~/.lisp/xemacs.el"))
 )
 ;; Emacs 21.3　＜＝＝これです
 ((string-match "^21" emacs-version)
  ;; \uffff\u3083\uffff\u0441\uffff Emacs \uffff\uffff\uffff load-path \uffff\u8350\uffff\u7d4e\uffff\uffff\uffff\uffff\uffff
  (setq load-path (append '("/usr/share/emacs/21.3/lisp") load-path))
  (setq load-path (append '("~/.lisp") load-path))
;  (load (expand-file-name "~/.lisp/.emacs_ext.el"))
;;  (load (expand-file-name "~/.lisp/_my-font-lock.el"))
;  (load (expand-file-name "~/.lisp/_my-cc-mode.el"))
  (load "~/.lisp/.emacs-color.el")
;  (setq yc-rK-trans-key [?\C-\;])
  (setq yc-rK-trans-key "\C-\\")
;; ---> disable for avy ( because of not install yc.el [canna] )
;  (load "yc")
;  (global-yc-mode 1)
;; <--- disable for avy
  (setq yc-enable-hankaku nil)
  (setq canna-hostname "canna")
  (setq default-tab-width 4)
  (setq tab-width 4)
  (setq c-default-indent 4)
  (setq c-basic-offset 4)
  (display-time)
;  (load (expand-file-name "~/.lisp/_my-tcl-mode.el"))
  (load (expand-file-name "~/.lisp/_my-tcl-mode2.el"))
; dabbrev-highlight
;  (load (expand-file-name "~/.lisp/dabbrev-highlight.el"))
  (require 'dabbrev-highlight)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; C-*  ,  change spacial key bind
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; newline and auto indent
;
  (global-set-key "\C-m" 'reindent-then-newline-and-indent)
  (global-set-key "\C-j" 'newline)
;
; C-h,BS <-> Delete
;
; M-x load-library[enter]
; term/bobcat[enter]
;
;  (load-library "term/bobcat")
;
; C-h(help-for-help)  -> F1
;
  (global-set-key "\C-h" 'backward-delete-char-untabify)
;
; toggle-input-method (japanese<->English)  -> C-o
;
;  (global-set-key "\C-o" 'toggle-input-method)
;  (global-set-key "\C-co" 'toggle-input-method)

;; 対応するカッコ-コッカへジャンプ
;; カッコ上で "%" を押すと対応するカッコへジャンプする。
(define-key emacs-lisp-mode-map "%" 'match-paren)
(global-set-key "%" 'match-paren)
(defun match-paren (arg)

 "Go to the matching parenthesis if on parenthesis otherwise insert %."
 (interactive "p")
 (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))

*1
(t (self-insert-command (or arg 1)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; C-c *  ,  for user key bind
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; goto-line  -> C-c g
;
; M-x goto-line[enter]
; <line number>[enter]
;
;  (global-set-key "\C-x\C-g" 'goto-line)
  (global-set-key "\C-cg" 'goto-line)
;
; help-for-help  -> C-c h
; (instead of C-h C-h)
;
; M-x help-for-help[enter]
; <help-command>[enter]
;
  (global-set-key "\C-ch" 'help-for-help)
;
; openline  -> C-c o
; (instead of C-o)
;
; M-x openline[enter]
; <help-command>[enter]
;
  (global-set-key "\C-co" 'open-line)
;
; shall-mode  -> C-c s
;
; M-x shell[enter]
;
  (global-set-key "\C-cs" 'shell)
;
; compile  -> C-c m
;
; M-x shell[enter]
;
  (global-set-key "\C-cm" 'compile)
;
; compile-goto-error  -> C-c e
;
; M-x shell[enter]
;
  (global-set-key "\C-ce" 'compile-mouse-goto-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; for shell mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (add-hook 'comint-output-filter-functions
           'comint-watch-for-password-prompt)
  (autoload 'ansi-color-for-comint-mode-on "ansi-color"
          "Set `ansi-color-for-comint-mode' to t." t)
  (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
;  (load (expand-file-name "~/.lisp/shell-command.el"))
  (require 'shell-command)
  (shell-command-completion-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; for cursol
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;  scroll
;
  (setq scroll-conservatively 35
       scroll-margin 5
       scroll-step 1)
  (setq comint-scroll-show-maximum-oupput t)
;
;  speedup
;
; 10 \u9db8\u7e41\u6a3d
(defvar scroll-speedup-count 10)
;; 10 \u9de6\uffff\u6089\u8b26\uffff\u874b\u8a52\u3041\uffff\u86a3 1+1 \uffff 2 \u57aa\u6802
;; \u6923\u5420
(defvar scroll-speedup-rate 1)
;; 800ms \u501a\u578b\u8667\u946a\u5eb7\u8eb0\u8a7c\u754a
(defvar scroll-speedup-time 800)
;; \u5175\u3082\uffff\u5269
(defvar scroll-step-default 1)
(defvar scroll-step-count 1)
(defvar scroll-speedup-zero (current-time))
(defun scroll-speedup-setspeed ()
  (let* ((now (current-time))
         (min (- (car now)
                 (car scroll-speedup-zero)))
         (sec (- (car (cdr now))
                 (car (cdr scroll-speedup-zero))))
         (msec
          (/ (- (car (cdr (cdr now)))
                (car
                 (cdr (cdr scroll-speedup-zero))))
                     1000))
         (lag
          (+ (* 60000 min)
             (* 1000 sec) msec)))
    (if (> lag scroll-speedup-time)
        (progn
          (setq scroll-step-default 1)
          (setq scroll-step-count 1))
      (setq scroll-step-count
            (+ 1 scroll-step-count)))
    (setq scroll-speedup-zero (current-time))))
(defun scroll-speedup-next-line (arg)
  (if (= (% scroll-step-count
            scroll-speedup-count) 0)
      (setq scroll-step-default
            (+ scroll-speedup-rate
               scroll-step-default)))
  (if (string= arg 'next)
      (line-move scroll-step-default)
    (line-move (* -1 scroll-step-default))))
(defadvice next-line
  (around next-line-speedup activate)
  (if (and (string= last-command 'next-line)
           (interactive-p))
      (progn
        (scroll-speedup-setspeed)
        (condition-case err
            (scroll-speedup-next-line 'next)
          (error
           (if (and
                next-line-add-newlines
                (save-excursion
                  (end-of-line) (eobp)))
               (let ((abbrev-mode nil))
                 (end-of-line)
                 (insert "\n"))
             (line-move 1)))))
    (setq scroll-step-default 1)
    (setq scroll-step-count 1)
    ad-do-it))
(defadvice previous-line
  (around previous-line-speedup activate)
  (if (and
       (string= last-command 'previous-line)
       (interactive-p))
      (progn
        (scroll-speedup-setspeed)
        (scroll-speedup-next-line 'previous))
    (setq scroll-step-default 1)
    (setq scroll-step-count 1)
    ad-do-it))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; c-mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; hokan - define
;
;(load (expand-file-name "~/.lisp/shell-command.el"))
;(add-hook 'c-mode-common-hook
;          (function (lambda ()
;                      (require 'cpp-complt)
;                      (define-key c-mode-map [mouse-2]
;                        'cpp-complt-include-mouse-select)
;                      (define-key c-mode-map "#"
;                        'cpp-complt-instruction-completing)
;                      (define-key c-mode-map "\C-c#"
;                        'cpp-complt-ifdef-region)
;                      (cpp-complt-init))))
;(setq cpp-complt-standard-header-path
;      '(
;        "E:/cygwin/usr/include/"
;        ))
;
; C-t ***.c <-> ***.h
;
 )
)

pukiwiki_cat .bashrc
#
# .bashrc  Shin Fujimoto 23.06.1998
#
#echo 'Starting bash 2.01'            # 5/F0;~$K echo
#export emacs                         # emacs mode
#PS1='\h [\w] \$ '                    # prompt = HOSTNAME [ Current Dir ] $
#PS1='($PLEVEL)\h:`d1=${PWD##*/};cwd_up=${PWD%/*};d2=${cwd_up##*/}; echo "$d2/$d1"` > '
#PS1='($PLEVEL)[\t]\h:`d1=${PWD##*/};cwd_up=${PWD%/*};d2=${cwd_up##*/}; echo "$d2/$d1"`> '
PS1='($PLEVEL)\h:`d1=${PWD##*/};cwd_up=${PWD%/*};d2=${cwd_up##*/}; echo "$d2/$d1"`> '
HISTFILE=~/.bash_history             # %3%^%s%IMzNr%U%!%$%k = Homedir/.bash_history
HISTFILESIZE=100                     # %3%^%s%IMzNr%U%!%$%k$N%5%$%: ( 5/F0Cf )
HISTCONTROL=ignoreboth               # MzNr%U%!%$%k$N%5%$%:$,>.$5$/$J$k$*$^$8$J$$
HISTSIZE=100                         # %3%^%s%IMzNr%U%!%$%k$N%5%$%: ( =*N;8e )
FIGNORE=.aux:.log:.o:.obj:.AUX:.LOG:.O:.OBJ    # %U%!%$%kL>Jd40;~$KL5;k$9$k3HD%;R
#export SHELL=/fsw/bin/bash
export SHELL=/bin/bash
#export PAGER=less
if [ -x /usr/local/bin/lv -o -x /usr/bin/lv ]; then
       export PAGER=lv
else
       export PAGER=less
fi
export TMPDIR=/tmp
export ROOT=/
export TERMCAP=/etc/termcap
export PATH=$PATH:/lang/diab_linux/5.2.1.0/LINUX386/bin/:/ds/bin
export PATH=$PATH:/sbin/:/usr/sbin/
export LM_LICENSE_FILE=/lang/diab_linux/licenses/netlicense.dat
#avoid conflicts between SCIM and acroread/realplayer
export GTK_IM_MODULE=xim
if [ "$PLEVEL" ]; then
    PLEVEL=`expr $PLEVEL + 1`
else
    export PLEVEL=1
fi
## alias ( = %3%^%s%I$NJLL> ) %U%!%$%k = Homedir/.bash_aliases
if [ -f ~/.bash_aliases ] ; then
        . ~/.bash_aliases
fi
## end

pukiwiki_cat .bash_aliases
#############
### aliases
#############
alias als=alias
#if [ "$TERM" = "emacs" ]; then
    als ls='ls -F'
#else
#    als ls='ls -F --color'
#fi
als    MSG='view /var/adm/messages\!*'
alias  BKUP='view /var/log/backuplog'
alias  SYSLOG='view /var/log/syslog\!*'
alias  xt='ps aux | grep olwm'
alias
       ='clear'
#alias lock    'lockscreen'
alias  help='man'
#alias key     'man -k'
alias  lis='setenv IOFFICE /export/tools/ioffice_4.0j; setenv LM_LICENSE_FILE $IOFFICE/licenses/netlicense.dat; $IOFFICE/bin/lmstat -a'
#alias h       'history | more'
alias  h='history'
alias  ls='ls -F --color=tty'
#alias cd='set old=$cwd; chdir \!*; set targv=( $cwd " " ); set targv[2]=$targv[1]:h; set prompt="($plevel)$host$targv[2]:t/$targv[1]:t \\!> " '
alias  back='set back=$old; cd $back; unset back '
alias  lpq='echo -n $PRINTER": "; /usr/ucb/lpq'
alias  lpntx='setenv PRINTER nsntx;/ds/bin/enscript -B \!*'
alias  lpntx1='setenv PRINTER nsntx;/ds/bin/enscript -2rB \!*'
alias  show='more'
alias   la='ls -a'
alias   ll='ls -a -l'
alias  lg='ls -a -lg'
alias  cl='clear'
alias  rm='rm '
alias  cg='cc -g'
alias  lo='exit'
#als ll='ls -lF'
#als la='ls -aF'
#alias dir='ls -laF'
#als lla='ls -alF'
#als h='history'
als rm='rm -i'
als cp='cp -i'
als mv='mv -i'
als head='head -n 20'
als tail='tail -n 20'
#als up='cd ..'
#als tai='rsh -l taki tai'
#als which='type -path'
alias  mu='emacs'
alias  mule='emacs'
alias  edit='emacs -nw'
alias  diffy='diff -y -W 80'
alias  less='less -X'
# SSH alias
alias ssh2teena='ssh -l masami teena'
alias ssh2avy='ssh -l masami avy'
alias ssh2legacy='ssh -l masami legacy'
alias ssh2jack='ssh -l masami jack'
alias ssh2atami='ssh -l masami atami'
alias ssh2kusatsu='ssh -l masami kusatsu'
alias ssh2bert='ssh -l masami bert'
alias ssh2elmo='ssh -l masami elmo'
alias ssh2ernie='ssh -l masami ernie'
alias ssh2bbex16='ssh -l masami 172.31.6.16'