[Emacs-diffs] Changes to emacs/lisp/emulation/cua-base.el

[Juanma Barranquero]

Index: emacs/lisp/emulation/cua-base.el
diff -c emacs/lisp/emulation/cua-base.el:1.54 
emacs/lisp/emulation/cua-base.el:1.55
*** emacs/lisp/emulation/cua-base.el:1.54       Mon Jun 13 21:31:37 2005
--- emacs/lisp/emulation/cua-base.el    Thu Jun 30 01:12:23 2005
***************
*** 350,356 ****
  
  (defcustom cua-check-pending-input t
    "*If non-nil, don't override prefix key if input pending.
! It is rumoured that input-pending-p is unreliable under some window
  managers, so try setting this to nil, if prefix override doesn't work."
    :type 'boolean
    :group 'cua)
--- 350,356 ----
  
  (defcustom cua-check-pending-input t
    "*If non-nil, don't override prefix key if input pending.
! It is rumoured that `input-pending-p' is unreliable under some window
  managers, so try setting this to nil, if prefix override doesn't work."
    :type 'boolean
    :group 'cua)
***************
*** 370,376 ****
    "*If non-nil, automatically tabify after rectangle commands.
  This basically means that `tabify' is applied to all lines that
  are modified by inserting or deleting a rectangle.  If value is
! an integer, cua will look for existing tabs in a region around
  the rectangle, and only do the conversion if any tabs are already
  present.  The number specifies then number of characters before
  and after the region marked by the rectangle to search."
--- 370,376 ----
    "*If non-nil, automatically tabify after rectangle commands.
  This basically means that `tabify' is applied to all lines that
  are modified by inserting or deleting a rectangle.  If value is
! an integer, CUA will look for existing tabs in a region around
  the rectangle, and only do the conversion if any tabs are already
  present.  The number specifies then number of characters before
  and after the region marked by the rectangle to search."
***************
*** 568,574 ****
  ;;; Low-level Interface
  
  (defvar cua-inhibit-cua-keys nil
!   "Buffer-local variable that may disable the cua keymappings.")
  (make-variable-buffer-local 'cua-inhibit-cua-keys)
  
  ;;; Aux. variables
--- 568,574 ----
  ;;; Low-level Interface
  
  (defvar cua-inhibit-cua-keys nil
!   "Buffer-local variable that may disable the CUA keymappings.")
  (make-variable-buffer-local 'cua-inhibit-cua-keys)
  
  ;;; Aux. variables
***************
*** 902,909 ****
  
  (defun cua-repeat-replace-region (arg)
    "Repeat replacing text of highlighted region with typed text.
! Searches for the next streach of text identical to the region last
! replaced by typing text over it and replaces it with the same streach
  of text."
    (interactive "P")
    (when cua--last-deleted-region-pos
--- 902,909 ----
  
  (defun cua-repeat-replace-region (arg)
    "Repeat replacing text of highlighted region with typed text.
! Searches for the next stretch of text identical to the region last
! replaced by typing text over it and replaces it with the same stretch
  of text."
    (interactive "P")
    (when cua--last-deleted-region-pos
***************
*** 1331,1337 ****
  When enabled, using shifted movement keys will activate the region (and
  highlight the region using `transient-mark-mode'), and typed text replaces
  the active selection.  C-z, C-x, C-c, and C-v will undo, cut, copy, and
! paste (in addition to the normal emacs bindings)."
    :global t
    :group 'cua
    :set-after '(cua-enable-modeline-indications cua-use-hyper-key)
--- 1331,1337 ----
  When enabled, using shifted movement keys will activate the region (and
  highlight the region using `transient-mark-mode'), and typed text replaces
  the active selection.  C-z, C-x, C-c, and C-v will undo, cut, copy, and
! paste (in addition to the normal Emacs bindings)."
    :global t
    :group 'cua
    :set-after '(cua-enable-modeline-indications cua-use-hyper-key)
***************
*** 1394,1400 ****
      (setq cua--saved-state nil))))
  
  (defun cua-debug ()
!   "Toggle cua debugging."
    (interactive)
    (setq cua--debug (not cua--debug)))
  
--- 1394,1400 ----
      (setq cua--saved-state nil))))
  
  (defun cua-debug ()
!   "Toggle CUA debugging."
    (interactive)
    (setq cua--debug (not cua--debug)))