anchor.diff:              (remove x (get-bvar :modeline-status-list :buffer buffer)))
         (setf *modeline-status-list*
               (remove x *modeline-status-list*))))
  -
  -(defun posline (window)
  -  (cond
  -    ((<= (buffer-nlines (window-buffer window))
  -         (window-height window))
  -     "All")
  -    ((first-line-p (window-view-marker window))
  -     "Top")
  -    ((null (line-offset (copy-marker (window-view-marker window)
  -                                     :temporary)
  -                        (window-height window)))
  -     "Bot")
  -    (t
  -     (format nil "~2d%"
  -             (floor
  -              (* 100
  -                 (float (/ (marker-linum (window-view-marker window))
  -                           (buffer-nlines (window-buffer window))))))))))
   
   (defun modeline-read-only-p (window)
     (if (buffer-read-only-p (window-buffer window)) "%" "-"))
  
positive.code:             (let ((*print-case* :downcase)) (princ x)))
          (setf firstp t)))))
  
  (defun modeline-linum (window)
    (marker-linum (window-point-marker window)))
  
  (defun modeline-column (window)
    (point-column (window-point-marker window)))
  
  (defun modeline-string (window)
    (let* ((line-pos (posline window))
           (winwidth (window-width window))
           (str (with-output-to-string (out)
                  (dolist (x
                           (get-bvar :modeline-format
                                     :buffer (window-buffer window)
                                     :default *modeline-default-format*))
                    (if (or (symbolp x) (functionp x))
                        (princ (funcall x window) out)
                        (princ x out))))))
      (let ((n (- winwidth 7 (length str))))
        (if (minusp n)
            (format nil "~a ~a --" str line-pos)
            (format nil "~a~v,,,va ~a --"
                    str
                    n
                    (if (eq window (current-window)) #\- #\space)
                    #\space
                    line-pos)))))
  
negative.code:           modeline-name
            modeline-major-mode
            modeline-minor-modes
            modeline-string))
  
  (defvar *modeline-default-format*
    (list 'modeline-read-only-p
          'modeline-modified-p
          " "
          'modeline-name
          " ("
          'modeline-major-mode
          'modeline-minor-modes
          ") "))
  
  (defvar *modeline-status-list* nil)
  
  