[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

Update of /project/clim-desktop/cvsroot/clim-desktop
In directory clnet:/tmp/cvs-serv21969

Modified Files:
	climacs.lisp 
Log Message:
Removed unnecessary Find File Arg command.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/06/01 23:00:09	1.11
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/06/02 09:25:09	1.12
@@ -4,10 +4,6 @@
   (let ((url (accept 'url :prompt "Browse URL")))
     (closure:visit url)))
 
-(define-command (com-find-file-arg :name t :command-table buffer-table)
-    ((file 'pathname))
-  (find-file file))
-
 (define-command (com-inspect-buffer :name "Inspect Buffer" :command-table base-table) ()
 		(clouseau:inspector (buffer (current-window))))