mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* simple.el (set-mark): Revert last change.

Browse Source
This commit is contained in:
Chong Yidong 2009-07-18 04:37:52 +00:00
parent 9af167bc52
commit 0013b70f1d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2009-07-18 David De La Harpe Golden <david@harpegolden.net>
* simple.el (set-mark): Revert last change.
2009-07-17 Tassilo Horn <tassilo@member.fsf.org>
* doc-view.el (doc-view-initiate-display): Add yes-or-no-p if

8
lisp/simple.el
View File

@ -3534,12 +3534,8 @@ store it in a Lisp variable. Example:
(progn
(setq mark-active t)
(run-hooks 'activate-mark-hook)
(and select-active-regions
;; Only set the selection if we already own PRIMARY. The
;; initial selection grab happens in `activate-mark', but
;; it is necessary to update it here.
(x-selection-owner-p 'PRIMARY)
(x-set-selection 'PRIMARY (current-buffer)))
(when select-active-regions
(x-set-selection 'PRIMARY (current-buffer)))
(set-marker (mark-marker) pos (current-buffer)))
;; Normally we never clear mark-active except in Transient Mark mode.
;; But when we actually clear out the mark value too, we must