procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emulation/cua-base.el (cua-selection-mode): Make it toggle again.

Browse source
This commit is contained in:
Stefan Monnier 2011-04-25 15:17:17 -03:00
parent 69026abaa5
commit d090ed6c78
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/ChangeLog
View file

@ -1,10 +1,14 @@
2011-04-25 Stefan Monnier <monnier@iro.umontreal.ca>
* emulation/cua-base.el (cua-selection-mode): Make it toggle again.
2011-04-25 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-process-actions): Add POS argument. Delete
region between POS and (pos).
* net/tramp.el (tramp-process-actions): Add POS argument.
Delete region between POS and (pos).
* net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): Use
`nil' position in `tramp-process-actions' call.
* net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band):
Use `nil' position in `tramp-process-actions' call.
(tramp-maybe-open-connection): Call `tramp-process-actions' with pos.
* net/tramp-smb.el (tramp-smb-maybe-open-connection): Use `nil'

6
lisp/emulation/cua-base.el
View file

@ -1627,7 +1627,11 @@ shifted movement key, set `cua-highlight-region-shift-only'."
"Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings."
(interactive "P")
(setq-default cua-enable-cua-keys nil)
(cua-mode arg))
(if (not (called-interactively-p 'any))
(cua-mode arg)
;; Use call-interactive to turn a nil prefix arg into `toggle'.
(call-interactively 'cua-mode)
(customize-mark-as-set 'cua-enable-cua-keys)))
(defun cua-debug ()