Changeset 8055

Timestamp:

Jan 11, 2008, 8:48:15 PM (12 years ago)

Author:

gz

Message:

Minor tweaks to completion mode. It's still mostly bogus, but at least don't call undefined functions, and don't override non-mode bindings

Location:

branches/event-ide/ccl/cocoa-ide/hemlock/src

Files:

• bindings.lisp (modified) (1 diff)
• completion.lisp (modified) (3 diffs)
• main.lisp (modified) (1 diff)

branches/event-ide/ccl/cocoa-ide/hemlock/src/bindings.lisp

@@ -928 +928 @@
 (bind-key "Completion Self Insert" #k"linefeed" :mode "Completion")
 
-(bind-key "Completion Complete Word" #k"end")
-(bind-key "Completion Rotate Completions" #k"meta-end")
-
-
+(bind-key "Completion Complete Word" #k"end" :mode "Completion")
+(bind-key "Completion Rotate Completions" #k"meta-end" :mode "Completion")
 
 

branches/event-ide/ccl/cocoa-ide/hemlock/src/completion.lisp

@@ -195 +195 @@
   "Toggles Completion Mode in the current buffer."
   (declare (ignore p))
-  (setf (buffer-minor-mode (current-buffer) "Completion")
-        (not (buffer-minor-mode (current-buffer) "Completion"))))
+  (let ((buffer (current-buffer)))
+    (setf (buffer-minor-mode buffer "Completion")
+          (not (buffer-minor-mode buffer "Completion")))
+    (let ((fields (buffer-modeline-fields buffer)))
+      (if (buffer-minor-mode buffer "Completion")
+        (unless (member *completion-modeline-field* fields)
+          (hi::set-buffer-modeline-fields buffer
+                                          (append fields
+                                                  (list *completion-modeline-field*))))
+        (when (member *completion-modeline-field* fields)
+          (hi::set-buffer-modeline-fields buffer
+                                          (remove *completion-modeline-field*
+                                                  fields)))))))
 
 
@@ -502 +513 @@
           (or (find-completion prefix prefix-length) ""))
     (unless (eq old *completion-mode-possibility*)
-      (update-modeline-field *echo-area-buffer* *echo-area-window*
-                             *completion-modeline-field*))))
+      (hi::note-modeline-change (current-buffer)))))
 
 (defun clear-completion-display ()
   (unless (= (length (the simple-string *completion-mode-possibility*)) 0)
     (setq *completion-mode-possibility* "")
-    (update-modeline-field *echo-area-buffer* *echo-area-window*
-                           *completion-modeline-field*)))
-
-
+    (hi::note-modeline-change (current-buffer))))
+
+#|
 ;;; COMPLETION-REDISPLAY-FUN erases any completion displayed in the status line.
 ;;;
@@ -518 +527 @@
   (unless (eq (last-command-type) :completion-self-insert)
     (clear-completion-display)))
-;;;
 (add-hook redisplay-hook #'completion-redisplay-fun)
+|#

branches/event-ide/ccl/cocoa-ide/hemlock/src/main.lisp

@@ -101 +101 @@
 ;;; Completion.Lisp, but it is compiled and loaded after this file.
 ;;;
-(declaim (special hemlock::*completion-mode-possibility*))
-;;; Hack for now until completion mode is added.
-(defvar hemlock::*completion-mode-possibility* "")
-;;;
 (make-modeline-field
  :name :completion :width 40
  :function #'(lambda (buffer)
+               (declare (special hemlock::*completion-mode-possibility*))
                (declare (ignore buffer))
                hemlock::*completion-mode-possibility*))