diff options
| author | Christoph Scholtes | 2011-10-19 19:40:32 -0600 |
|---|---|---|
| committer | Christoph Scholtes | 2011-10-19 19:40:32 -0600 |
| commit | 10d5f5137767e2f594e3ffad402d274d3aae66b4 (patch) | |
| tree | 5245462470323ed74074b92100121e077747c732 /lisp/emulation | |
| parent | 6e317956b7dda5a9460937b5edc7a322c57c3804 (diff) | |
| download | emacs-10d5f5137767e2f594e3ffad402d274d3aae66b4.tar.gz emacs-10d5f5137767e2f594e3ffad402d274d3aae66b4.zip | |
* emulation/cua-base.el (cua-set-mark): Fix case of string.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 918402dc581..9a50352d507 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1121,7 +1121,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark." | |||
| 1121 | (pop-to-mark-command))) | 1121 | (pop-to-mark-command))) |
| 1122 | ((and cua-toggle-set-mark mark-active) | 1122 | ((and cua-toggle-set-mark mark-active) |
| 1123 | (cua--deactivate) | 1123 | (cua--deactivate) |
| 1124 | (message "Mark Cleared")) | 1124 | (message "Mark cleared")) |
| 1125 | (t | 1125 | (t |
| 1126 | (push-mark-command nil nil) | 1126 | (push-mark-command nil nil) |
| 1127 | (setq cua--explicit-region-start t) | 1127 | (setq cua--explicit-region-start t) |