diff --git a/emacs.el b/emacs.el index cb16d7a..a582e83 100644 --- a/emacs.el +++ b/emacs.el @@ -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