/[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.54 by kfstorm, Mon Jun 13 21:31:37 2005 UTC revision 1.55 by lektu, Thu Jun 30 01:12:23 2005 UTC
# Line 350  Must be set prior to enabling CUA." Line 350  Must be set prior to enabling CUA."
350    
351  (defcustom cua-check-pending-input t  (defcustom cua-check-pending-input t
352    "*If non-nil, don't override prefix key if input pending.    "*If non-nil, don't override prefix key if input pending.
353  It is rumoured that input-pending-p is unreliable under some window  It is rumoured that `input-pending-p' is unreliable under some window
354  managers, so try setting this to nil, if prefix override doesn't work."  managers, so try setting this to nil, if prefix override doesn't work."
355    :type 'boolean    :type 'boolean
356    :group 'cua)    :group 'cua)
# Line 370  buffer is NOT modified, until you execut Line 370  buffer is NOT modified, until you execut
370    "*If non-nil, automatically tabify after rectangle commands.    "*If non-nil, automatically tabify after rectangle commands.
371  This basically means that `tabify' is applied to all lines that  This basically means that `tabify' is applied to all lines that
372  are modified by inserting or deleting a rectangle.  If value is  are modified by inserting or deleting a rectangle.  If value is
373  an integer, cua will look for existing tabs in a region around  an integer, CUA will look for existing tabs in a region around
374  the rectangle, and only do the conversion if any tabs are already  the rectangle, and only do the conversion if any tabs are already
375  present.  The number specifies then number of characters before  present.  The number specifies then number of characters before
376  and after the region marked by the rectangle to search."  and after the region marked by the rectangle to search."
# Line 568  a cons (TYPE . COLOR), then both propert Line 568  a cons (TYPE . COLOR), then both propert
568  ;;; Low-level Interface  ;;; Low-level Interface
569    
570  (defvar cua-inhibit-cua-keys nil  (defvar cua-inhibit-cua-keys nil
571    "Buffer-local variable that may disable the cua keymappings.")    "Buffer-local variable that may disable the CUA keymappings.")
572  (make-variable-buffer-local 'cua-inhibit-cua-keys)  (make-variable-buffer-local 'cua-inhibit-cua-keys)
573    
574  ;;; Aux. variables  ;;; Aux. variables
# Line 902  Activates the mark if a prefix argument Line 902  Activates the mark if a prefix argument
902    
903  (defun cua-repeat-replace-region (arg)  (defun cua-repeat-replace-region (arg)
904    "Repeat replacing text of highlighted region with typed text.    "Repeat replacing text of highlighted region with typed text.
905  Searches for the next streach of text identical to the region last  Searches for the next stretch of text identical to the region last
906  replaced by typing text over it and replaces it with the same streach  replaced by typing text over it and replaces it with the same stretch
907  of text."  of text."
908    (interactive "P")    (interactive "P")
909    (when cua--last-deleted-region-pos    (when cua--last-deleted-region-pos
# Line 1331  If ARG is the atom `-', scroll upward by Line 1331  If ARG is the atom `-', scroll upward by
1331  When enabled, using shifted movement keys will activate the region (and  When enabled, using shifted movement keys will activate the region (and
1332  highlight the region using `transient-mark-mode'), and typed text replaces  highlight the region using `transient-mark-mode'), and typed text replaces
1333  the active selection.  C-z, C-x, C-c, and C-v will undo, cut, copy, and  the active selection.  C-z, C-x, C-c, and C-v will undo, cut, copy, and
1334  paste (in addition to the normal emacs bindings)."  paste (in addition to the normal Emacs bindings)."
1335    :global t    :global t
1336    :group 'cua    :group 'cua
1337    :set-after '(cua-enable-modeline-indications cua-use-hyper-key)    :set-after '(cua-enable-modeline-indications cua-use-hyper-key)
# Line 1394  paste (in addition to the normal emacs b Line 1394  paste (in addition to the normal emacs b
1394      (setq cua--saved-state nil))))      (setq cua--saved-state nil))))
1395    
1396  (defun cua-debug ()  (defun cua-debug ()
1397    "Toggle cua debugging."    "Toggle CUA debugging."
1398    (interactive)    (interactive)
1399    (setq cua--debug (not cua--debug)))    (setq cua--debug (not cua--debug)))
1400    

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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