Changeset 56


Ignore:
Timestamp:
Oct 27, 2003, 10:42:12 PM (18 years ago)
Author:
gb
Message:

Use asterisks in (more) special variable names.

Location:
trunk/ccl/hemlock/src
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/hemlock/src/bit-display.lisp

    r6 r56  
    4040    (do ((i 0 (1+ i))
    4141         (dl (cdr first) (cdr dl)))
    42         ((eq dl the-sentinel)
     42        ((eq dl *the-sentinel*)
    4343         (setf (window-old-lines window) (1- i)))
    4444      (dumb-line-redisplay hunk (car dl)))
    45     (setf (window-first-changed window) the-sentinel
     45    (setf (window-first-changed window) *the-sentinel*
    4646          (window-last-changed window) first)
    4747    (when (window-modeline-buffer window)
     
    133133          (last-changed (window-last-changed window)))
    134134      ;; Is there anything to do?
    135       (unless (eq first-changed the-sentinel)
     135      (unless (eq first-changed *the-sentinel*)
    136136        (when liftp (lift-cursor))
    137137        (if (and (eq first-changed last-changed)
     
    148148              (do-rewrites hunk rewrite)))
    149149        ;; Set the bounds so we know we displayed...
    150         (setf (window-first-changed window) the-sentinel
     150        (setf (window-first-changed window) *the-sentinel*
    151151              (window-last-changed window) (window-first-line window))))
    152152    ;;
  • trunk/ccl/hemlock/src/bit-screen.lisp

    r55 r56  
    757757         (hunk (make-bitmap-hunk
    758758                :font-family font-family
    759                 :end the-sentinel  :trashed t
     759                :end *the-sentinel*  :trashed t
    760760                :input-handler #'window-input-handler
    761761                :device device
     
    13251325         (hunk (make-bitmap-hunk
    13261326                :font-family *default-font-family*
    1327                 :end the-sentinel :trashed t
     1327                :end *the-sentinel* :trashed t
    13281328                :input-handler #'window-input-handler
    13291329                :device device :thumb-bar-p nil)))
  • trunk/ccl/hemlock/src/cursor.lisp

    r6 r56  
    3636;;; X position and number of times wrapped.
    3737
    38 (declaim (special the-sentinel))
     38(declaim (special *the-sentinel*))
    3939
    4040(eval-when (:compile-toplevel :execute)
     
    5353  `(cond
    5454    ;; No lines at all, fail.
    55     ((eq ,dis-lines the-sentinel) nil)
     55    ((eq ,dis-lines *the-sentinel*) nil)
    5656    ;; On the first line, offset is already set, so just set dis-line and
    5757    ;; ypos and fall through.
     
    6060    ;; Look farther down.
    6161    ((do ((l (cdr ,dis-lines) (cdr l)))
    62          ((eq l the-sentinel))
     62         ((eq l *the-sentinel*))
    6363       (when (eq (dis-line-line (car l)) ,line)
    6464         (setq ,dis-line l  ,ypos (dis-line-position (car l)) ,offset 0)
     
    403403                (if (eq (dis-line-line (car dl)) (dis-line-line (car prev)))
    404404                    (dis-line-end (car prev)) 0)))
    405         ((eq dl the-sentinel)
     405        ((eq dl *the-sentinel*)
    406406         (copy-mark (window-display-end window) :temporary))
    407407      (when (= (dis-line-position (car dl)) y)
  • trunk/ccl/hemlock/src/display.lisp

    r6 r56  
    239239  (maybe-update-window-image window)
    240240  (prog1
    241       (not (eq (window-first-changed window) the-sentinel))
     241      (not (eq (window-first-changed window) *the-sentinel*))
    242242    (funcall (device-smart-redisplay (device-hunk-device (window-hunk window)))
    243243             window)))
     
    280280  (setup-for-recentering-redisplay window)
    281281  (prog1
    282       (not (eq (window-first-changed window) the-sentinel))
     282      (not (eq (window-first-changed window) *the-sentinel*))
    283283    (funcall (device-smart-redisplay (device-hunk-device (window-hunk window)))
    284284             window)))
  • trunk/ccl/hemlock/src/window.lisp

    r6 r56  
    7979          (last (window-last-line window))
    8080          (free (window-spare-lines window)))
    81       (unless (eq (cdr first) the-sentinel)
    82         (shiftf (cdr last) free (cdr first) the-sentinel))
     81      (unless (eq (cdr first) *the-sentinel*)
     82        (shiftf (cdr last) free (cdr first) *the-sentinel*))
    8383      (dolist (dl free)
    8484        (setf (dis-line-line dl) nil  (dis-line-old-chars dl) nil))
     
    8686    ;;
    8787    ;; Set the last line and first&last changed so we know there's nothing there.
    88     (setf (window-last-line window) the-sentinel
    89           (window-first-changed window) the-sentinel
    90           (window-last-changed window) the-sentinel)
     88    (setf (window-last-line window) *the-sentinel*
     89          (window-first-changed window) *the-sentinel*
     90          (window-last-changed window) *the-sentinel*)
    9191    ;;
    9292    ;; Make sure the window gets updated, and set the buffer.
     
    504504  (setf (bitmap-hunk-changed-handler hunk) #'window-changed)
    505505  (let ((buffer (line-buffer (mark-line start)))
    506         (first (cons dummy-line the-sentinel))
     506        (first (cons dummy-line *the-sentinel*))
    507507        (width (bitmap-hunk-char-width hunk))
    508508        (height (bitmap-hunk-char-height hunk)))
     
    522522            :width width
    523523            :first-line first
    524             :last-line the-sentinel
    525             :first-changed the-sentinel
     524            :last-line *the-sentinel*
     525            :first-changed *the-sentinel*
    526526            :last-changed first
    527527            :tick -1)))
     
    565565    ;;
    566566    ;; Nuke all the lines in the window image.
    567     (unless (eq (cdr (window-first-line window)) the-sentinel)
     567    (unless (eq (cdr (window-first-line window)) *the-sentinel*)
    568568      (shiftf (cdr (window-last-line window))
    569569              (window-spare-lines window)
    570570              (cdr (window-first-line window))
    571               the-sentinel))
     571              *the-sentinel*))
    572572    (setf (bitmap-hunk-start hunk) (cdr (window-first-line window)))
    573573    ;;
     
    633633  (check-type start mark)
    634634  (let ((buffer (line-buffer (mark-line start)))
    635         (first (cons dummy-line the-sentinel)))
     635        (first (cons dummy-line *the-sentinel*)))
    636636    (unless buffer (error "Window start is not in a buffer."))
    637637    (setf (window-display-start window) (copy-mark start :right-inserting)
     
    643643          (window-width window) width
    644644          (window-first-line window) first
    645           (window-last-line window) the-sentinel
    646           (window-first-changed window) the-sentinel
     645          (window-last-line window) *the-sentinel*
     646          (window-first-changed window) *the-sentinel*
    647647          (window-last-changed window) first
    648648          (window-tick window) -1)
     
    665665(defun change-window-image-height (window new-height)
    666666  ;; Nuke all the lines in the window image.
    667   (unless (eq (cdr (window-first-line window)) the-sentinel)
     667  (unless (eq (cdr (window-first-line window)) *the-sentinel*)
    668668    (shiftf (cdr (window-last-line window))
    669669            (window-spare-lines window)
    670670            (cdr (window-first-line window))
    671             the-sentinel))
     671            *the-sentinel*))
    672672  ;; Add some new spare lines if needed.
    673673  (let* ((res (window-spare-lines window))
  • trunk/ccl/hemlock/src/winimage.lisp

    r6 r56  
    1717(in-package :hemlock-internals)
    1818
    19 (defvar the-sentinel
     19(defvar *the-sentinel*
    2020  (list (make-window-dis-line ""))
    2121  "This dis-line, which has several interesting properties, is used to end
    2222  lists of dis-lines.")
    23 (setf (dis-line-line (car the-sentinel))
     23(setf (dis-line-line (car *the-sentinel*))
    2424      (make-line :number most-positive-fixnum :chars ""))
    25 (setf (dis-line-position (car the-sentinel)) most-positive-fixnum)
    26 (setf (dis-line-old-chars (car the-sentinel)) :unique-thing)
     25(setf (dis-line-position (car *the-sentinel*)) most-positive-fixnum)
     26(setf (dis-line-old-chars (car *the-sentinel*)) :unique-thing)
    2727
    2828
     
    5757;;; Offset - The charpos within Line to continue at.
    5858;;; Current - The dis-line which caused Maybe-Change-Window to choke; it
    59 ;;;  may be the-sentinel, it may not be the dummy line at head of the
     59;;;  may be *the-sentinel*, it may not be the dummy line at head of the
    6060;;;  window's dis-lines.  This is the dis-line at which Maybe-Change-Window
    6161;;;  turns over control, it should not be one whose image it built.
     
    6969        (cc (car current))
    7070        (old-line (dis-line-line cc))
    71         ;; Can't use current, since might be the-sentinel.
     71        ;; Can't use current, since might be *the-sentinel*.
    7272        (pos (1+ (dis-line-position (car trail))))
    7373        ;; Are we on an extension line?
     
    7878        (height (window-height window))
    7979        (spare-lines (window-spare-lines window))
    80         ;; Make the-sentinel in this buffer so we don't delete it.
    81         (buffer (setf (line-%buffer (dis-line-line (car the-sentinel)))
     80        ;; Make *the-sentinel* in this buffer so we don't delete it.
     81        (buffer (setf (line-%buffer (dis-line-line (car *the-sentinel*)))
    8282                      (window-buffer window)))
    8383        (start offset) new-num)
     
    8585        ;;    If we have run off the bottom or run out of lines then we are
    8686        ;; done.  At this point Trail is the last line displayed and Current is
    87         ;; whatever comes after it, possibly the-sentinel.
     87        ;; whatever comes after it, possibly *the-sentinel*.
    8888        ;;    We always say that last-changed is the last line so that we
    8989        ;; don't have to max in the old last-changed.
     
    9595          ;; deleted or another line was inserted after it then it's
    9696          ;; cdr would be something else.
    97           (when (eq (cdr last) the-sentinel)
    98             (shiftf (cdr last) spare-lines (cdr trail) the-sentinel))
     97          (when (eq (cdr last) *the-sentinel*)
     98            (shiftf (cdr last) spare-lines (cdr trail) *the-sentinel*))
    9999          (setf (window-last-line window) trail))
    100100        (setf (window-spare-lines window) spare-lines)
     
    120120     ;; If the line-number of the old line is less than the line-number
    121121     ;; of the line we want to display then the old line must be off the top
    122      ;; of the screen - delete it.  The-Sentinel fails this test because
     122     ;; of the screen - delete it.  *The-Sentinel* fails this test because
    123123     ;; it's line-number is most-positive-fixnum.
    124124     ((< (line-number old-line) new-num)
     
    296296             ;; beginning of the line then we don't need to.
    297297             (unless (zerop (mark-charpos (window-old-start window)))
    298                (unless (eq current the-sentinel)
     298               (unless (eq current *the-sentinel*)
    299299                 (setf (dis-line-old-chars (car current)) :another-unique-thing)))
    300300             (let ((start-charpos (mark-charpos display-start)))
     
    316316        ;; We found a suspect line.
    317317        ;; See if anything needs to be updated, if we bugged out, punt.
    318         (when (and (eq current the-sentinel)
     318        (when (and (eq current *the-sentinel*)
    319319                   (= (dis-line-position (car trail))
    320320                      (1- (window-height window))))
     
    327327        ;;
    328328        ;; We hit the end of the buffer. If lines need to be deleted bug out.
    329         (unless (eq current the-sentinel)
     329        (unless (eq current *the-sentinel*)
    330330          (maybe-change-window window changed line 0 trail current width))
    331331        (return nil))))
Note: See TracChangeset for help on using the changeset viewer.