fix buffer-file-changed-functions

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