Changeset 11891


Ignore:
Timestamp:
Apr 4, 2009, 7:28:46 PM (10 years ago)
Author:
rme
Message:

VALID-SPOT: always return T when at the beginning of the buffer, which
is never in a quoted context.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/lispmode.lisp

    r11733 r11891  
    511511  false otherwise.  If Forwardp is true, we use the next character, otherwise
    512512  we use the previous."
    513   (multiple-value-bind (region line)
    514                        (find-ignore-region mark forwardp)
    515     (and line (not region))))
     513  (if (and (not forwardp)
     514           (null (previous-character mark)))
     515    t                         ;beginning of buffer always a valid spot
     516    (multiple-value-bind (region line)
     517        (find-ignore-region mark forwardp)
     518      (and line (not region)))))
    516519
    517520
     
    856859(defindent "do-headers-lines" 1)
    857860(defindent "frob" 1) ;cover silly FLET and MACROLET names for Rob and Bill.
     861(defindent "modifying-buffer" 1)
    858862
    859863;;; Common Lisp forms.
Note: See TracChangeset for help on using the changeset viewer.