Debug message fix

[sxemacs] / lisp / ffi / ffi-magic.el

diff --git a/lisp/ffi/ffi-magic.el b/lisp/ffi/ffi-magic.el
index 5068146..d10b77f 100644 (file)
--- a/lisp/ffi/ffi-magic.el
+++ b/lisp/ffi/ffi-magic.el
@@ -38,13 +38,13 @@
 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 ;;; Commentary:
-;; 
+;;
 ;;    Mimic file(1)'s basic usage.  At the moment, this is quite raw
 ;;    and single-minded.  It will only use the default magic db and
 ;;    doesn't allow use of any of file(1)'s options.
 ;;
-;;    (magic:file-type "~/.sxemacs/init.el")
-;;     => "Lisp/Scheme program text"
+;;    (magic:file-type (expand-file-name "about.el" lisp-directory))
+;;     => "Lisp/Scheme program, ISO-8859 text"
 
 ;;; Todo:
 ;;
@@ -101,7 +101,7 @@
 
   (let ((ftype (magic-file ffi-magic-shared (expand-file-name file))))
     (if (interactive-p)
-        (message ftype)
+       (message ftype)
       ftype)))
 
 (defun magic:error (&optional magic)