Changeset 259


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

Update.

Location:
trunk/lisp/nzwei
Files:
7 edited

Legend:

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

    r258 r259  
    196196                        (ARRAY-POP STRING))
    197197                    (GO REDIS))
     198                   ((= CHAR #\CLEAR-INPUT)
     199                    (STORE-ARRAY-LEADER 0 STRING 0)
     200                    (GO REDIS))
    198201                   ((= CHAR #/)
    199202                    (OR XCHAR
  • trunk/lisp/nzwei/dired.lisp

    r258 r259  
    175175
    176176(DEFCOM COM-DIRED-UNDELETE "Un-mark file(s) for deletion" ()
    177   (DIRED-MAP-OVER-LINES (IF (AND (NOT *NUMERIC-ARG-P*) (NEQ (BP-CHAR (POINT)) #/D))
     177  (DIRED-MAP-OVER-LINES (IF (AND (NOT *NUMERIC-ARG-P*)
     178                                 (NOT (MEMQ (BP-CHAR (POINT)) '(#/D #/P))))
    178179                            -1
    179180                            *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))
     
    392392    (FUNCALL ACTOR ':ADD-LINE LINE)
    393393    (INSERT-LINE-WITH-LEADER LINE AT-LINE)))
    394 
     394
  • trunk/lisp/nzwei/macros.lisp

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

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

    r258 r259  
    294294             (MOVE-BP POINT LINE CHAR-POS)
    295295             (FUNCALL (SELECTQ *MAJOR-MODE*
    296                         (LISP-MODE 'LISP-MARK-THING)
     296                        ((LISP-MODE ZTOP-MODE) 'LISP-MARK-THING)
    297297                        ((TEXT-MODE FUNDAMENTAL-MODE BOLIO-MODE) 'TEXT-MARK-THING)
    298298                        (OTHERWISE 'DEFAULT-MARK-THING))
Note: See TracChangeset for help on using the changeset viewer.