Browse Source

fix buffer-file-changed-functions

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

+ 8
- 8
emacs.el View File

@@ -11,14 +11,14 @@

(require 'cl nil t)

(progn ; hook run when directory changed
(defvar buffer-file-changed-function nil "Hook run when buffer file changed.
(progn
(defvar buffer-file-changed-functions nil "Hook run when buffer file changed.
Each function is called with two args, the filename before changing and after changing.")
(declare-function run-buffer-file-change-function "emacs.el")
(declare-function run-buffer-file-changed-functions "emacs.el")
(add-hook 'post-command-hook
'run-buffer-file-changed-function)
'run-buffer-file-changed-functions)
(lexical-let (previous-file)
(defun run-buffer-file-changed-function ()
(defun run-buffer-file-changed-functions ()
""
(unless (and previous-file
(equal previous-file
@@ -28,8 +28,8 @@ Each function is called with two args, the filename before changing and after ch
(cfile (expand-file-name (or buffer-file-name
default-directory))))
(setq previous-file cfile)
(run-hook-with-args 'directory-changed-function pfile cfile)))))
;; (add-hook 'directory-changed-function
(run-hook-with-args 'buffer-file-changed-functions pfile cfile)))))
;; (add-hook 'buffer-file-changed-function
;; (lambda (pdir cdir)
;; (message "dir changed %s to %s !" pdir cdir)))
)
@@ -101,7 +101,7 @@ Return nil if library unfound and failed to download, otherwise the path where t
(symbol-name system-type)
"] "
(abbreviate-file-name (or buffer-file-name default-directory))))
(add-hook 'directory-changed-function
(add-hook 'buffer-file-changed-functions
(lambda (p c)
(my-set-terminal-title)))
(add-hook 'suspend-resume-hook


Loading…
Cancel
Save