anchor.diff:        (when (string= path-name (file-path buffer))
           (return count)))))
   
  +(eval-when (:compile-toplevel :load-toplevel :execute)
  +  (defparameter *text-keys*
  +    (list ;; format: (key action &optional suppress-in-repl)
  +     (list *key-cut* 'on-cut t)
  +     (list *key-copy* 'on-copy)
  +     (list *key-paste* 'on-paste)
  +     (list *key-select-all* 'on-select-all t)
  +     (list *key-reformat* 'on-re-indent t)
  +     (list *key-macro-expand* 'on-macro-expand t)
  +     (list *key-copy-to-repl* 'on-copy-sexp-to-repl t)
  +     ;; code-complete was suppressed, even though an implementation existed...
  +     (list *key-code-complete* 'on-code-complete)
  +     ;; lookup should be suppressed unless (plaintextp txt)
  +     (list *key-lookup* 'on-lookup-definition))))
  +
   (defmethod initialize-instance :after ((txt buffer) &key)
     (setf (edit-ctrl txt) (ltk:textbox txt))
     (ltk:grid-forget (ltk::hscroll txt))  ; remove the horizontal scroll-bar
  
positive.code: (defmethod on-select-all ((txt ltk:text))
    (ltk::select-all txt))
  
  (defmethod on-code-complete ((text ltk:text) event)
    (code-complete text)
    (highlight text 'complete)
    (show-calltip text))
  
negative.code:                   (pathname-completions-to-string pathname-matches)))))))
        (error (ex) (ltk:do-msg ex)))))
  
  (defmethod on-code-complete ((listener listener))
    (case (complete-mode listener)
      (symbol
        (code-complete (inferior-win listener))
  