Changeset 14253 for trunk/source/cocoa-ide/hemlock/src/views.lisp

Timestamp:

Sep 11, 2010, 5:18:11 PM (9 years ago)

Author:

rme

Message:

In update-echo-area-after-command: The cancel-message slot in a hemlock-view
object is just a string. Since loud-message is a format-like thingy, use
use "~a" so that a #\~ in the cancel-message string doesn't trip us up.

File:

• trunk/source/cocoa-ide/hemlock/src/views.lisp (modified) (1 diff)

trunk/source/cocoa-ide/hemlock/src/views.lisp

@@ -218 +218 @@
       (let ((msg (shiftf (hemlock-cancel-message view) nil)))
         (if msg
-          (loud-message msg)
+          (loud-message "~a" msg)
           ;; Echo command in progress if there is one, unless in a recursive parse
           (unless eps