Changeset 698

Timestamp:

Mar 22, 2004, 9:35:59 AM (21 years ago)

Author:

Gary Byers

Message:

Major mode listed before others, always.

File:

• trunk/ccl/hemlock/src/modeline.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/modeline.lisp

@@ -134 +134 @@
                (let* ((m ()))
                  (dolist (mode (buffer-mode-objects buffer))
-                   (unless (hi::mode-object-hidden mode)
+                   (unless (or (hi::mode-object-major-p mode)
+                               (hi::mode-object-hidden mode))
                      (push (mode-object-name mode) m)))
-               (format nil "~A  " (nreverse m)))))
+               (format nil "~A  " (cons (hi::buffer-major-mode buffer)
+                                        (nreverse m))))))
 
 (make-modeline-field