diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-18 09:15:08 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-18 09:15:08 -0400 |
| commit | cdca825560c4f97fba5ccd6ba87df5c881d1ffce (patch) | |
| tree | 9a1fea66dde67ca01e3cb06855db36c8c963a0f9 /lisp/winner.el | |
| parent | beb42340a12259ad3c810b553efe3603cc9b017b (diff) | |
| download | emacs-cdca825560c4f97fba5ccd6ba87df5c881d1ffce.tar.gz | |
* lisp/winner.el (winner-active-region): Use region-active-p, activate-mark
and deactivate-mark.
* lisp/simple.el (deactivate-mark): Don't inline it.
Fixes: debbugs:14225
Diffstat (limited to 'lisp/winner.el')
| -rw-r--r-- | lisp/winner.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index dfbd15b6676..f521ba0521b 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -45,10 +45,8 @@ (if (featurep 'xemacs) `(if ,store (zmacs-activate-region) (zmacs-deactivate-region)) - `(setq mark-active ,store))))) - (if (boundp 'mark-active) - mark-active - (region-active-p))) + `(if ,store (activate-mark) (deactivate-mark)))))) + (region-active-p)) (defalias 'winner-edges (if (featurep 'xemacs) 'window-pixel-edges 'window-edges)) |