X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2776a6502b211c45e6b4e65549436d2d8527b6f3..9875d23d86c0668b1e697b67a394560d66c7826d:/lisp/desktop.el

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 360ff48339..bad0073fbb 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1413,8 +1413,8 @@ after that many seconds of idle time."
             (if (consp desktop-buffer-mark)
                 (progn
                   (move-marker (mark-marker) (car desktop-buffer-mark))
-                  ;; FIXME: Should we call (de)activate-mark instead?
-                  (setq mark-active (car (cdr desktop-buffer-mark))))
+                  (if (car (cdr desktop-buffer-mark))
+                      (activate-mark 'dont-touch-tmm)))
               (move-marker (mark-marker) desktop-buffer-mark)))
 	  ;; Never override file system if the file really is read-only marked.
 	  (when desktop-buffer-read-only (setq buffer-read-only desktop-buffer-read-only))