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

* lisp/emulation/cua-base.el (<toplevel>, cua--pre-command-handler-1):

Browse source 
Remove left-over code.
This commit is contained in:
Stefan Monnier 2014-04-10 21:06:35 -04:00
parent 0d6a1375af
commit c99ce7d8fa
2 changed files with 3 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2014-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
* emulation/cua-base.el (<toplevel>, cua--pre-command-handler-1):
Remove left-over code.
* newcomment.el (comment-indent-new-line): Sink code where it's used.
Reuse the previous comment's indentation unconditionally if it's on its
own line.

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

@ -1156,19 +1156,6 @@ If ARG is the atom `-', scroll upward by nearly full screen."
(cancel-timer cua--prefix-override-timer))
(setq cua--prefix-override-timer nil))
(cond
;; Only symbol commands can have necessary properties
((not (symbolp this-command))
nil)
((not (eq (get this-command 'CUA) 'move))
nil)
;; Set mark if user explicitly said to do so
(cua--rectangle ;FIXME: ??
(unless mark-active
(push-mark-command nil nil))))
;; Detect extension of rectangles by mouse or other movement
(setq cua--buffer-and-point-before-command
(if cua--rectangle (cons (current-buffer) (point)))))
@ -1367,36 +1354,6 @@ If ARG is the atom `-', scroll upward by nearly full screen."
)
;; Setup standard movement commands to be recognized by CUA.
(dolist (cmd
'(forward-char backward-char
right-char left-char
right-word left-word
next-line previous-line
forward-word backward-word
end-of-line beginning-of-line
end-of-visual-line beginning-of-visual-line
move-end-of-line move-beginning-of-line
end-of-buffer beginning-of-buffer
scroll-up scroll-down
scroll-up-command scroll-down-command
up-list down-list backward-up-list
end-of-defun beginning-of-defun
forward-sexp backward-sexp
forward-list backward-list
forward-sentence backward-sentence
forward-paragraph backward-paragraph
;; CC mode motion commands
c-forward-conditional c-backward-conditional
c-down-conditional c-up-conditional
c-down-conditional-with-else c-up-conditional-with-else
c-beginning-of-statement c-end-of-statement))
(put cmd 'CUA 'move))
;; Only called if pc-selection-mode is t, which means pc-select is loaded.
(declare-function pc-selection-mode "pc-select" (&optional arg))
;; State prior to enabling cua-mode
;; Value is a list with the following elements:
;; delete-selection-mode