[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/emulation/cua-rect.el
diff -c emacs/lisp/emulation/cua-rect.el:1.7.6.1 
emacs/lisp/emulation/cua-rect.el:1.7.6.2
*** emacs/lisp/emulation/cua-rect.el:1.7.6.1    Fri Apr 16 12:50:14 2004
--- emacs/lisp/emulation/cua-rect.el    Mon Jun 28 07:29:46 2004
***************
*** 1,6 ****
  ;;; cua-rect.el --- CUA unified rectangle support
  
! ;; Copyright (C) 1997-2002 Free Software Foundation, Inc.
  
  ;; Author: Kim F. Storm <address@hidden>
  ;; Keywords: keyboard emulations convenience CUA
--- 1,6 ----
  ;;; cua-rect.el --- CUA unified rectangle support
  
! ;; Copyright (C) 1997-2002, 2004 Free Software Foundation, Inc.
  
  ;; Author: Kim F. Storm <address@hidden>
  ;; Keywords: keyboard emulations convenience CUA
***************
*** 1057,1075 ****
           (insert (format fmt first))
           (setq first (+ first incr)))))
  
  (defun cua-upcase-rectangle ()
    "Convert the rectangle to upper case."
    (interactive)
!   (cua--rectangle-operation 'clear nil nil nil
!      '(lambda (s e l r)
!         (upcase-region s e))))
  
  (defun cua-downcase-rectangle ()
    "Convert the rectangle to lower case."
    (interactive)
!   (cua--rectangle-operation 'clear nil nil nil
!      '(lambda (s e l r)
!         (downcase-region s e))))
  
  
  ;;; Replace/rearrange text in current rectangle
--- 1057,1086 ----
           (insert (format fmt first))
           (setq first (+ first incr)))))
  
+ (defmacro cua--convert-rectangle-as (command)
+   `(cua--rectangle-operation 'clear nil nil nil
+     '(lambda (s e l r)
+        (,command s e))))
+ 
  (defun cua-upcase-rectangle ()
    "Convert the rectangle to upper case."
    (interactive)
!   (cua--convert-rectangle-as upcase-region))
  
  (defun cua-downcase-rectangle ()
    "Convert the rectangle to lower case."
    (interactive)
!   (cua--convert-rectangle-as downcase-region))
! 
! (defun cua-upcase-initials-rectangle ()
!   "Convert the rectangle initials to upper case."
!   (interactive)
!   (cua--convert-rectangle-as upcase-initials-region))
! 
! (defun cua-capitalize-rectangle ()
!   "Convert the rectangle to proper case."
!   (interactive)
!   (cua--convert-rectangle-as capitalize-region))
  
  
  ;;; Replace/rearrange text in current rectangle