Browse Source

use smart-revert.el

pull/1/head
10sr 12 years ago
parent
commit
f4e425a91e
1 changed files with 8 additions and 20 deletions
  1. +8
    -20
      emacs.el

+ 8
- 20
emacs.el View File

@@ -852,6 +852,13 @@ drill-instructor.el"
(require 'git-command nil t)
(define-key ctl-x-map "g" 'git-command))

(and (dllib-if-unfound
"https://raw.github.com/10sr/emacs-lisp/master/smart-revert.el"
t)
(require 'smart-revert nil t)
(smart-revert-on)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; term mode

@@ -1269,7 +1276,7 @@ drill-instructor.el"
(define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)
(let ((file "._Icon\015"))
(when nil (file-readable-p file)
(delete-file file)))))
(delete-file file)))))

(and (dllib-if-unfound "https://raw.github.com/10sr/emacs-lisp/master/pack.el"
t)
@@ -1782,8 +1789,6 @@ when SEC is nil, stop auto save if enabled."
;; (redisplay t)
(redraw-display)
;; (run-hooks 'window-configuration-change-hook)
(my-revert-buffer-if-needed)
;; (revert-buffer t t)
(keyboard-quit)
(insert "insert me")
(run-hooks 'after-keyboard-quit-hook))
@@ -1817,23 +1822,6 @@ this is test, does not rename files"
(message file))
(message "not visiting file."))))

(defvar my-revert-buffer-if-needed-last-buffer nil)

(defun my-revert-buffer-if-needed ()
""
(interactive)
(unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))
(setq my-revert-buffer-if-needed-last-buffer (current-buffer))
(when (or (and (eq major-mode 'dired-mode)
(dired-directory-changed-p default-directory))
(not (verify-visited-file-modtime (current-buffer))))
(revert-buffer t t)
(message "%s reverted." (buffer-name))
)))

(add-hook 'post-command-hook ; 'window-configuration-change-hook
'my-revert-buffer-if-needed)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize
(define-key my-prefix-map (kbd "C-w") 'my-window-organizer)


Loading…
Cancel
Save