Mercurial > emacs

comparison lisp/emulation/cua-base.el @ 93551:e2159923235d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-mode): Turn off shift-select-mode.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 02 Apr 2008 20:17:20 +0000
parents f62cf4851fe9
children 1e3a407766b9
comparison
equal deleted inserted replaced
93550:d4564d8c8835 93551:e2159923235d
1577 (cua-mode 1577 (cua-mode
1578 (setq cua--saved-state 1578 (setq cua--saved-state
1579 (list 1579 (list
1580 transient-mark-mode 1580 transient-mark-mode
1581 (and (boundp 'delete-selection-mode) delete-selection-mode) 1581 (and (boundp 'delete-selection-mode) delete-selection-mode)
1582 (and (boundp 'pc-selection-mode) pc-selection-mode))) 1582 (and (boundp 'pc-selection-mode) pc-selection-mode)
1583 shift-select-mode))
1583 (if (and (boundp 'delete-selection-mode) delete-selection-mode) 1584 (if (and (boundp 'delete-selection-mode) delete-selection-mode)
1584 (delete-selection-mode -1)) 1585 (delete-selection-mode -1))
1585 (if (and (boundp 'pc-selection-mode) pc-selection-mode) 1586 (if (and (boundp 'pc-selection-mode) pc-selection-mode)
1586 (pc-selection-mode -1)) 1587 (pc-selection-mode -1))
1587 (cua--deactivate) 1588 (cua--deactivate)
1589 (setq shift-select-mode nil)
1588 (setq transient-mark-mode (and cua-mode 1590 (setq transient-mark-mode (and cua-mode
1589 (if cua-highlight-region-shift-only 1591 (if cua-highlight-region-shift-only
1590 (not cua--explicit-region-start) 1592 (not cua--explicit-region-start)
1591 t)))) 1593 t))))
1592 (cua--saved-state 1594 (cua--saved-state
1593 (setq transient-mark-mode (car cua--saved-state)) 1595 (setq transient-mark-mode (car cua--saved-state))
1594 (if (nth 1 cua--saved-state) 1596 (if (nth 1 cua--saved-state)
1595 (delete-selection-mode 1)) 1597 (delete-selection-mode 1))
1596 (if (nth 2 cua--saved-state) 1598 (if (nth 2 cua--saved-state)
1597 (pc-selection-mode 1)) 1599 (pc-selection-mode 1))
1600 (setq shift-select-mode (nth 3 cua--saved-state))
1598 (if (interactive-p) 1601 (if (interactive-p)
1599 (message "CUA mode disabled.%s%s%s%s" 1602 (message "CUA mode disabled.%s%s%s%s"
1600 (if (nth 1 cua--saved-state) " Delete-Selection" "") 1603 (if (nth 1 cua--saved-state) " Delete-Selection" "")
1601 (if (and (nth 1 cua--saved-state) (nth 2 cua--saved-state)) " and" "") 1604 (if (and (nth 1 cua--saved-state) (nth 2 cua--saved-state)) " and" "")
1602 (if (nth 2 cua--saved-state) " PC-Selection" "") 1605 (if (nth 2 cua--saved-state) " PC-Selection" "")