lv.el (lv-message): Don't deactivate mark

Fixes #37
11 years ago · abb76e8a50
parent d04ef9bd18
commit abb76e8a50
1 changed files with 2 additions and 1 deletions
--- a/lv.el
+++ b/lv.el
@ -58,7 +58,8 @@
 (defun lv-message (format-string &rest args)
  "Set LV window contents to (`format' FORMAT-STRING ARGS)."
  (let ((ori (selected-window))
-        (str (apply #'format format-string args)))
+        (str (apply #'format format-string args))
+        deactivate-mark)
    (select-window (lv-window))
    (unless (string= (buffer-string) str)
      (delete-region (point-min) (point-max))