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

Remove uses of obsolete 'CUA' symbol property

Browse source 
* lisp/emulation/cua-base.el (cua-scroll-up, cua-scroll-down):
* lisp/progmodes/subword.el (subword-forward, subword-backward):
* lisp/obsolete/crisp.el (crisp-home, crisp-end):
Remove 'CUA' prop; not used any more.
This commit is contained in:
Stefan Monnier 2018-11-18 21:15:06 -05:00
parent 5d14080039
commit 450beba338
3 changed files with 3 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -39,7 +39,7 @@
;; C-v -> paste
;;
;; The tricky part is the handling of the C-x and C-c keys which
;; are normally used as prefix keys for most of emacs' built-in
;; are normally used as prefix keys for most of Emacs' built-in
;; commands. With CUA they still do!!!
;;
;; Only when the region is currently active (and highlighted since
@ -69,7 +69,7 @@
;; [C-space] to start the region and use unshifted movement keys to extend
;; it. To cancel the region, use [C-space] or [C-g].
;; If you prefer to use the standard emacs cut, copy, paste, and undo
;; If you prefer to use the standard Emacs cut, copy, paste, and undo
;; bindings, customize cua-enable-cua-keys to nil.
@ -138,7 +138,7 @@
;; cua-mode's superior rectangle support uses a true visual
;; representation of the selected rectangle, i.e. it highlights the
;; actual part of the buffer that is currently selected as part of the
;; rectangle. Unlike emacs' traditional rectangle commands, the
;; rectangle. Unlike Emacs' traditional rectangle commands, the
;; selected rectangle always as straight left and right edges, even
;; when those are in the middle of a TAB character or beyond the end
;; of the current line. And it does this without actually modifying
@ -1047,7 +1047,6 @@ If ARG is the atom `-', scroll downward by nearly full screen."
(scroll-up arg)
(end-of-buffer (goto-char (point-max)))))))
(put 'cua-scroll-up 'CUA 'move)
(put 'cua-scroll-up 'isearch-scroll t)
(defun cua-scroll-down (&optional arg)
@ -1068,7 +1067,6 @@ If ARG is the atom `-', scroll upward by nearly full screen."
(scroll-down arg)
(beginning-of-buffer (goto-char (point-min)))))))
(put 'cua-scroll-down 'CUA 'move)
(put 'cua-scroll-down 'isearch-scroll t)
;;; Cursor indications

4
lisp/obsolete/crisp.el
View file

@ -376,10 +376,6 @@ normal CRiSP binding) and when it is nil M-x will run
;;;###autoload
(defalias 'brief-mode 'crisp-mode)
;; Interaction with other packages.
(put 'crisp-home 'CUA 'move)
(put 'crisp-end 'CUA 'move)
(run-hooks 'crisp-load-hook)
(provide 'crisp)

4
lisp/progmodes/subword.el
View file

@ -145,8 +145,6 @@ Optional argument ARG is the same as for `forward-word'."
(t
(point))))
(put 'subword-forward 'CUA 'move)
(defun subword-backward (&optional arg)
"Do the same as `backward-word' but on subwords.
See the command `subword-mode' for a description of subwords.
@ -187,8 +185,6 @@ Optional argument ARG is the same as for `mark-word'."
(point))
nil t))))
(put 'subword-backward 'CUA 'move)
(defun subword-kill (arg)
"Do the same as `kill-word' but on subwords.
See the command `subword-mode' for a description of subwords.