(mouse-show-mark): Use temporary highlighting if possible instead of a pause.

[gnu-emacs] / lisp / medit.el

diff --git a/lisp/medit.el b/lisp/medit.el
index 3e8a5be059ae5039543f48c8f570c79206b8eea6..985c9b27344374ee5d692e77ddc4be0f16404958 100644 (file)
--- a/lisp/medit.el
+++ b/lisp/medit.el
@@ -47,7 +47,7 @@
        (forward-mim-object 1)
        (append-to-buffer medit-buffer start (point))
        (goto-char start)
-       (message (buffer-substring start (progn (end-of-line) (point)))))))
+       (message "%s" (buffer-substring start (progn (end-of-line) (point)))))))
 
 (defun medit-save-region (start end)
   "Mark the current region to be sent to back to MDL."