Browse Source

misc changes

pull/1/head
10sr 13 years ago
parent
commit
690bdf73b4
1 changed files with 20 additions and 18 deletions
  1. +20
    -18
      .emacs.el

+ 20
- 18
.emacs.el View File

@@ -175,7 +175,7 @@
;; (keyboard-translate ?\^h ?\^?) ; scimにはC-hを送りたい
;; (keyboard-translate ?\b ?\^h) ; dont translate backspace

(global-set-key (kbd "C-m") 'newline-and-indent)
(global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)
(global-set-key (kbd "C-o")
;; (lambda ()
;; (interactive)
@@ -381,21 +381,22 @@
(display-time-mode 0)
(display-time-mode 1))

;; current directory
(let ((ls (member 'mode-line-buffer-identification
mode-line-format)))
(setcdr ls
(cons '(:eval (concat " ("
(abbreviate-file-name default-directory)
")"))
(cdr ls))))

(let ((ls (member 'mode-line-buffer-identification
mode-line-format)))
(setcdr ls
(cons '(:eval (concat " "
my-buffer-file-last-modified-time))
(cdr ls))))
;; ;; current directory
;; (let ((ls (member 'mode-line-buffer-identification
;; mode-line-format)))
;; (setcdr ls
;; (cons '(:eval (concat " ("
;; (abbreviate-file-name default-directory)
;; ")"))
;; (cdr ls))))

;; ;; display last modified time
;; (let ((ls (member 'mode-line-buffer-identification
;; mode-line-format)))
;; (setcdr ls
;; (cons '(:eval (concat " "
;; my-buffer-file-last-modified-time))
;; (cdr ls))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; file handling
@@ -615,8 +616,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(add-hook 'sh-mode-hook
(lambda ()
(define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))
(defun my-execute-shell-command-curre
nt-line ()
(defun my-execute-shell-command-current-line ()
""
(interactive)
(shell-command (buffer-substring-no-properties (point-at-bol)
@@ -1578,6 +1578,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
'message))))
(cond ((active-minibuffer-window) nil)
((not buffer-file-name) (funcall fun "%ssaving... this buffer doesn't visit any file." cm) nil)
((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)
(buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)
((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)
((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)
@@ -1657,6 +1658,7 @@ when SEC is nil, stop auto save if enabled."
sgml-mode
c-mode
c++-mode))
(setq my-auto-indent-buffer-mode-list nil)
(defun my-indent-buffer ()
"indent whole buffer."
(interactive)


Loading…
Cancel
Save