dgnushack.el (dgnushack-compile-file): Excluse dir in message output
authorKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 20 Jan 2015 00:13:15 +0000 (00:13 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 20 Jan 2015 00:13:15 +0000 (00:13 +0000)
lisp/dgnushack.el

index 46be876..d65d24b 100644 (file)
@@ -275,7 +275,7 @@ in `defcustom' forms."
 (if (featurep 'emacs)
     (defun dgnushack-compile-file (file)
       "Byte-compile FILE after reporting that it's being compiled."
 (if (featurep 'emacs)
     (defun dgnushack-compile-file (file)
       "Byte-compile FILE after reporting that it's being compiled."
-      (message "Compiling %s..." file)
+      (message "Compiling %s..." (file-name-nondirectory file))
       ;; The Emacs 25 version of it doesn't say much.
       (byte-compile-file file))
   (defalias 'dgnushack-compile-file 'byte-compile-file))
       ;; The Emacs 25 version of it doesn't say much.
       (byte-compile-file file))
   (defalias 'dgnushack-compile-file 'byte-compile-file))