ßingen
5 년 전
+ 4
- 4
lisp/init-editing-utils.el
파일 보기
| ;; Cut/copy the current line if no region is active | ;; Cut/copy the current line if no region is active | ||||
| ;;---------------------------------------------------------------------------- | ;;---------------------------------------------------------------------------- | ||||
| (require-package 'whole-line-or-region) | (require-package 'whole-line-or-region) | ||||
| (whole-line-or-region-mode t) | |||||
| (diminish 'whole-line-or-region-mode) | |||||
| (make-variable-buffer-local 'whole-line-or-region-mode) | |||||
| (whole-line-or-region-global-mode t) | |||||
| (diminish 'whole-line-or-region-global-mode) | |||||
| (make-variable-buffer-local 'whole-line-or-region-global-mode) | |||||
| (defun suspend-mode-during-cua-rect-selection (mode-name) | (defun suspend-mode-during-cua-rect-selection (mode-name) | ||||
| "Add an advice to suspend `MODE-NAME' while selecting a CUA rectangle." | "Add an advice to suspend `MODE-NAME' while selecting a CUA rectangle." | ||||
| (when ,flagvar | (when ,flagvar | ||||
| (,mode-name 1))))))) | (,mode-name 1))))))) | ||||
| (suspend-mode-during-cua-rect-selection 'whole-line-or-region-mode) | |||||
| (suspend-mode-during-cua-rect-selection 'whole-line-or-region-global-mode) | |||||
Loading…