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

[Frode Vatvedt Fjeld]

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

Modified Files:
	movitz-mode.el 
Log Message:
Have in-movitz-package-p be somewhat more clever.

Date: Sat Apr 30 23:19:43 2005
Author: ffjeld

Index: movitz/movitz-mode.el
diff -u movitz/movitz-mode.el:1.8 movitz/movitz-mode.el:1.9
--- movitz/movitz-mode.el:1.8	Tue Nov 30 15:16:18 2004
+++ movitz/movitz-mode.el	Sat Apr 30 23:19:42 2005
@@ -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.8 2004/11/30 14:16:18 ffjeld Exp $
+;;;; $Id: movitz-mode.el,v 1.9 2005/04/30 21:19:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -33,8 +33,10 @@
   (or (and (< 6 (length fi:package))
 	   (string= "MUERTE." (upcase (substring fi:package 0 7))))
       (member (upcase fi:package)
-	      '("MUERTE" "X86" "X86-PC"))))
-
+	      '("MUERTE" "X86" "X86-PC"))
+      (member "MUERTE"
+	      (fi:eval-in-lisp
+	       "(cl:mapcar #'cl:package-name (cl:package-use-list \"%s\"))" (upcase fi:package)))))
 
 (defun movitz-defun-name-and-type ()
   (interactive)