[movitz-cvs] CVS update: movitz/movitz-mode.el

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv24617

Modified Files:
	movitz-mode.el 
Log Message:
Don't check for movitz-package in movitz-compile-file.

Date: Wed May 19 10:56:46 2004
Author: ffjeld

Index: movitz/movitz-mode.el
diff -u movitz/movitz-mode.el:1.3 movitz/movitz-mode.el:1.4
--- movitz/movitz-mode.el:1.3	Mon Feb  2 08:31:23 2004
+++ movitz/movitz-mode.el	Wed May 19 10:56:46 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Sep 27 18:12:17 2001
 ;;;;                
-;;;; $Id: movitz-mode.el,v 1.3 2004/02/02 13:31:23 ffjeld Exp $
+;;;; $Id: movitz-mode.el,v 1.4 2004/05/19 14:56:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -113,12 +113,11 @@
 
 (defun movitz-compile-file ()
   (interactive)
-  (when (in-movitz-package-p)
-    (save-some-buffers)
-    (message "Movitz compiling \"%s\"..." (buffer-file-name))
-    (fi:eval-in-lisp "(movitz:movitz-compile-file \"%s\")" (buffer-file-name))
-    (message "Movitz compiling \"%s\"...done."
-	     (buffer-file-name))))
+  (save-some-buffers)
+  (message "Movitz compiling \"%s\"..." (buffer-file-name))
+  (fi:eval-in-lisp "(movitz:movitz-compile-file \"%s\")" (buffer-file-name))
+  (message "Movitz compiling \"%s\"...done."
+	   (buffer-file-name)))
 
 (defun movitz-eval-in-acl (string msg)
   (fi::note-background-request nil)
@@ -284,6 +283,11 @@
 	    (when (in-movitz-package-p)
 	      (message "Switching to Movitz keymap.")
 	      (use-local-map (make-movitz-common-lisp-mode-map)))))
+
+(defun movitz-mode ()
+  "Switch on Movitz-mode."
+  (interactive)
+  (use-local-map (make-movitz-common-lisp-mode-map)))
 
 (let ((tag 'fi:common-lisp-indent-hook))
   (put 'compiler-values tag '(like with-open-file))