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

Fixes #37

diff --git a/lv.el b/lv.el
index ef67db7fcb21e2eb2cac588c8ede1a6e42eec0f9..65989bc6dcf4213892f6de9e78e42c1dbd36c37e 100644 (file)
--- 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))