[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv29549

Modified Files:
	window-commands.lisp 
Log Message:
*numeric-argument-marker* is now equivalent to *numeric-argument-p*,
 so use that instead.


--- /project/climacs/cvsroot/climacs/window-commands.lisp	2007/12/15 10:17:11	1.14
+++ /project/climacs/cvsroot/climacs/window-commands.lisp	2007/12/19 11:02:22	1.15
@@ -51,7 +51,7 @@
     ((clone-current-view 'boolean :default nil))
   (split-window-maybe-cloning t clone-current-view))
 
-(set-key `(com-split-window-vertically ,*numeric-argument-p*)
+(set-key `(com-split-window-vertically ,*numeric-argument-marker*)
 	 'window-table
 	 '((#\x :control) (#\2)))
 
@@ -60,7 +60,7 @@
     ((clone-current-view 'boolean :default nil))
   (split-window-maybe-cloning nil clone-current-view))
 
-(set-key `(com-split-window-horizontally ,*numeric-argument-p*)
+(set-key `(com-split-window-horizontally ,*numeric-argument-marker*)
 	 'window-table
 	 '((#\x :control) (#\3)))