/[emacs]/emacs/lisp/emulation/cua-rect.el
ViewVC logotype

Diff of /emacs/lisp/emulation/cua-rect.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by kfstorm, Thu Dec 8 20:56:35 2005 UTC revision 1.27 by kfstorm, Thu Dec 8 22:24:35 2005 UTC
# Line 1358  With prefix arg, indent to that column." Line 1358  With prefix arg, indent to that column."
1358    
1359  (defun cua-help-for-rectangle (&optional help)  (defun cua-help-for-rectangle (&optional help)
1360    (interactive)    (interactive)
1361    (let ((M (if cua-use-hyper-key " H-" " M-")))    (let ((M (cond ((eq cua--rectangle-modifier-key 'hyper) " H-")
1362                     ((eq cua--rectangle-modifier-key 'super) " s-")
1363                     (t " M-"))))
1364      (message      (message
1365       (concat (if help "C-?:help" "")       (concat (if help "C-?:help" "")
1366               M "p:pad" M "o:open" M "c:close" M "b:blank"               M "p:pad" M "o:open" M "c:close" M "b:blank"
# Line 1410  With prefix arg, indent to that column." Line 1412  With prefix arg, indent to that column."
1412    (cua--M/H-key cua--rectangle-keymap key cmd))    (cua--M/H-key cua--rectangle-keymap key cmd))
1413    
1414  (defun cua--init-rectangles ()  (defun cua--init-rectangles ()
1415    (unless (eq cua-use-hyper-key 'only)    (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark)
1416      (define-key cua--rectangle-keymap [(control return)] 'cua-clear-rectangle-mark)    (define-key cua--region-keymap    [(control return)] 'cua-toggle-rectangle-mark)
1417      (define-key cua--region-keymap    [(control return)] 'cua-toggle-rectangle-mark))    (unless (eq cua--rectangle-modifier-key 'meta)
1418    (when cua-use-hyper-key      (cua--rect-M/H-key ?\s                             'cua-clear-rectangle-mark)
1419      (cua--rect-M/H-key 'space                          'cua-clear-rectangle-mark)      (cua--M/H-key cua--region-keymap ?\s               'cua-toggle-rectangle-mark))
     (cua--M/H-key cua--region-keymap 'space            'cua-toggle-rectangle-mark))  
1420    
1421    (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle)    (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle)
1422    (define-key cua--rectangle-keymap [remap kill-ring-save]      'cua-copy-rectangle)    (define-key cua--rectangle-keymap [remap kill-ring-save]      'cua-copy-rectangle)

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26