comparison lisp/mouse.el @ 43610:0897162acd41

(mouse-show-mark): Use display-mouse-p, not display-graphic-p, to decide whether to move point or use the highlighting.

43609:9d5cae2b1268

  "List of keys which shall cause the mouse region to be deleted.")

(defun mouse-show-mark ()
  (if transient-mark-mode
      (delete-overlay mouse-drag-overlay)
    (if (not (display-graphic-p))
	(save-excursion
	  (goto-char (mark t))
	  (sit-for 1))
      (let ((inhibit-quit t)
	    (echo-keystrokes 0)

43610:0897162acd41

  "List of keys which shall cause the mouse region to be deleted.")

(defun mouse-show-mark ()
  (if transient-mark-mode
      (delete-overlay mouse-drag-overlay)
    (if (not (display-mouse-p))
	(save-excursion
	  (goto-char (mark t))
	  (sit-for 1))
      (let ((inhibit-quit t)
	    (echo-keystrokes 0)