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

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

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

revision 1.45 by dann, Sat Apr 16 16:03:28 2005 UTC revision 1.46 by kfstorm, Mon Apr 18 19:50:07 2005 UTC
# Line 1066  If ARG is the atom `-', scroll upward by Line 1066  If ARG is the atom `-', scroll upward by
1066          ;; If rectangle is active, expand rectangle in specified direction and ignore the movement.          ;; If rectangle is active, expand rectangle in specified direction and ignore the movement.
1067          (if movement          (if movement
1068              (cond              (cond
1069               ((memq 'shift (event-modifiers               ((if window-system
1070                              (aref (if window-system                    (memq 'shift (event-modifiers
1071                                        (this-single-command-raw-keys)                                  (aref (this-single-command-raw-keys) 0)))
1072                                      (this-single-command-keys)) 0)))                  (or
1073                     (memq 'shift (event-modifiers
1074                                   (aref (this-single-command-keys) 0)))
1075                     ;; See if raw escape sequence maps to a shifted event, e.g. S-up or C-S-home.
1076                     (and (boundp 'function-key-map)
1077                          function-key-map
1078                          (let ((ev (lookup-key function-key-map
1079                                               (this-single-command-raw-keys))))
1080                            (and (vector ev)
1081                                 (symbolp (setq ev (aref ev 0)))
1082                                 (string-match "S-" (symbol-name ev)))))))
1083                (unless mark-active                (unless mark-active
1084                  (push-mark-command nil t))                  (push-mark-command nil t))
1085                (setq cua--last-region-shifted t)                (setq cua--last-region-shifted t)

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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