[Mit-cadr-cvs] r380 - trunk/lisp/zwei

[ggilley at common-lisp.net]

Author: ggilley
Date: Sat Dec  1 09:47:53 2012
New Revision: 380

Log:
get up and down arrows working for dired

Modified:
   trunk/lisp/zwei/dired.lisp

Modified: trunk/lisp/zwei/dired.lisp
==============================================================================
--- trunk/lisp/zwei/dired.lisp	Fri Nov 30 23:24:34 2012	(r379)
+++ trunk/lisp/zwei/dired.lisp	Sat Dec  1 09:47:53 2012	(r380)
@@ -29,6 +29,8 @@
 	      (LET ((PATHNAME (BUFFER-PATHNAME *INTERVAL*)))
 		(AND PATHNAME (SETQ *DIRED-PATHNAME-NAME* (STRING PATHNAME))))))
   (SET-COMTAB *MODE-COMTAB* '(#\SP COM-DOWN-REAL-LINE
+			      #\HAND-DOWN COM-DOWN-REAL-LINE
+			      #\HAND-UP COM-UP-REAL-LINE
 			      #/! COM-DIRED-NEXT-UNDUMPED
 			      #/$ COM-DIRED-COMPLEMENT-NO-REAP-FLAG
 			      #/. COM-DIRED-CHANGE-FILE-PROPERTIES