Changeset 259

Show
Ignore:
Timestamp:
08/18/11 08:25:16 (3 years ago)
Author:
rjs
Message:

Update.

Location:
trunk/lisp/nzwei
Files:
7 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/nzwei/coms.lisp

    r258 r259  
    194194                    (OR (ZEROP (ARRAY-LEADER STRING 0)) 
    195195                        (ARRAY-POP STRING)) 
     196                    (GO REDIS)) 
     197                   ((= CHAR #\CLEAR-INPUT) 
     198                    (STORE-ARRAY-LEADER 0 STRING 0) 
    196199                    (GO REDIS)) 
    197200                   ((= CHAR #/) 
  • trunk/lisp/nzwei/dired.lisp

    r258 r259  
    174174 
    175175(DEFCOM COM-DIRED-UNDELETE "Un-mark file(s) for deletion" () 
    176   (DIRED-MAP-OVER-LINES (IF (AND (NOT *NUMERIC-ARG-P*) (NEQ (BP-CHAR (POINT)) #/D)) 
     176  (DIRED-MAP-OVER-LINES (IF (AND (NOT *NUMERIC-ARG-P*) 
     177                                 (NOT (MEMQ (BP-CHAR (POINT)) '(#/D #/P)))) 
    177178                            -1 
    178179                            *NUMERIC-ARG*) 
  • trunk/lisp/nzwei/displa.lisp

    r258 r259  
    216216           (TOP-INDEX (BP-INDEX START-BP)) 
    217217           (LAST-BP (INTERVAL-LAST-BP INTERVAL)) 
    218            (INITIAL-DEGREE DEGREE)) 
     218           (INITIAL-DEGREE DEGREE) 
     219           ;; Bind *INTERVAL* in case we decide to call any primitives, e.g. inside the 
     220           ;; special-blinker which blinks matching parens.  This is an implicit argument. 
     221           (*INTERVAL* INTERVAL)) 
    219222      ;; :POINT recentering is a conditional sort of :ABSOLUTE recentering. 
    220223      ;; So decide here whether :ABSOLUTE recentering should be done. 
  • trunk/lisp/nzwei/font.lisp

    r258 r259  
    3737         (TYPEIN-LINE "Font ID: ") 
    3838         (DO ((CH)) (NIL) 
    39              (SETQ CH (TYPEIN-LINE-ACTIVATE (FUNCALL *TYPEIN-WINDOW* ':MOUSE-OR-KBD-TYI))) 
     39             (SETQ CH (TYPEIN-LINE-ACTIVATE (FUNCALL STANDARD-INPUT ':MOUSE-OR-KBD-TYI))) 
    4040             (COND ((OR (= CH #/G) (= CH #/g)) 
    4141                    (BARF)) 
     
    390390    (FUNCALL ACTOR ':ADD-LINE LINE) 
    391391    (INSERT-LINE-WITH-LEADER LINE AT-LINE))) 
    392  
     392 
  • trunk/lisp/nzwei/macros.lisp

    r258 r259  
    309309;;; (DEFCOM COM-foo "Documentation." OPTIONS-LIST . BODY) 
    310310;;; Note: unlike EINE, there is no lambda-list. 
    311 ;;; Options are:  (M) -- This command always preserves MARK. 
     311;;; Options are:  (KM) -- This command always preserves MARK. 
    312312 
    313313(DEFMACRO DEFCOM (FN DOC OPTIONS . DEF) 
     
    362362  (LET ((CLEN (STRING-LENGTH COMMAND))) 
    363363    (LET ((STR (SUBSTRING COMMAND 
    364                           (COND ((STRING-EQUAL "COM-MOUSE-" 0 0 12 12) 12) 
     364                          (COND ((STRING-EQUAL "COM-MOUSE-" COMMAND 0 0 12 12) 12) 
    365365                                ((STRING-EQUAL "COM-" COMMAND 0 0 4 4) 4) 
    366366                                ((STRING-EQUAL "*" COMMAND 0 0 1 1) 1) 
  • trunk/lisp/nzwei/modes.lisp

    r258 r259  
    627627                  (SETQ CP (OR (STRING-SEARCH-CHAR #\SP LINE (1+ CHAR-POS)) LEN) 
    628628                        POS (+ POS (STRING-WIDTH LINE CHAR-POS CP SHEET))) 
    629                   (AND (> POS *FILL-COLUMN*) 
    630                        (RETURN (AND (> CHAR-POS 0) (CREATE-BP LINE CHAR-POS)))))) 
     629                  (AND (> POS *FILL-COLUMN*) (> CHAR-POS 0) 
     630                       (RETURN (CREATE-BP LINE CHAR-POS))))) 
    631631       (WITH-BP (PT (POINT) ':MOVES) ;Save point 
    632632         (MOVE-BP (POINT) BP) 
  • trunk/lisp/nzwei/mouse.lisp

    r258 r259  
    292292             (MOVE-BP POINT LINE CHAR-POS) 
    293293             (FUNCALL (SELECTQ *MAJOR-MODE* 
    294                         (LISP-MODE 'LISP-MARK-THING) 
     294                        ((LISP-MODE ZTOP-MODE) 'LISP-MARK-THING) 
    295295                        ((TEXT-MODE FUNDAMENTAL-MODE BOLIO-MODE) 'TEXT-MARK-THING) 
    296296                        (OTHERWISE 'DEFAULT-MARK-THING))