Commits

youngs  committed 943afe3

Sync with normal package tree. ie Ben's recent changes.
I slightly modified the change to XEmacs.rules to reflect the new
directory structure.

  • Participants
  • Parent commits b9739cc
  • Tags XEMACS_BEFORE_MOVE_TO_SUNSITE_DK, new-tree-start 6
    1. sumo-2001-09-29
    2. sumo-2001-12-11
    3. sumo-2001-12-13
    4. sumo-2001-12-16
    5. xemacs-sumo-2001-07-08
    6. xemacs-sumo-2001-07-09

Comments (0)

Files changed (2)

+2001-05-11  Ben Wing  <ben@xemacs.org>
+
+	* pending-del.el: declare more commands triggering pending deletion.
+
 2000-02-12  Sean MacLennan  <seanm@storm.ca>
 
 	* pc-select.el The following now use `call-interactively':

File pending-del.el

 	   (error-message-string e)))))
 
 
-(put 'self-insert-command 'pending-delete t)
 
-(put 'yank 'pending-delete t)
-(put 'yank-rectangle 'pending-delete t)
-(put 'yank-clipboard-selection 'pending-delete t)
-(put 'x-yank-clipboard-selection 'pending-delete t)
-(put 'toolbar-paste 'pending-delete t)
+;; now set up the keys that delete the selection and do nothing else.
+;; (Typically anything that is or could be bound to `delete' or
+;; `backspace'.)
+(mapcar #'(lambda (sym)
+	    (put sym 'pending-delete 'supersede))
+	'(delete-backward-char
+	  backward-delete-char
+	  delete-char
+	  backward-or-forward-delete-char
 
-(put 'delete-backward-char 'pending-delete 'supersede)
-(put 'backward-delete-char-untabify 'pending-delete 'supersede)
-(put 'delete-char 'pending-delete 'supersede)
-(put 'c-electric-delete 'pending-delete 'supersede)
+	  c-electric-delete
+	  cperl-electric-backspace
+	  cperl-electric-delete))
 
-;; Support the XEmacs 20.3 'delete functions
+;; now set up the keys that delete the selection and then do their normal
+;; action.
+(mapcar #'(lambda (sym)
+	    (put sym 'pending-delete t))
+	'(self-insert-command
 
-(put 'backward-or-forward-delete-char 'pending-delete 'supersede)
-(put 'cperl-electric-backspace 'pending-delete 'supersede)
-(put 'cperl-electric-delete 'pending-delete 'supersede)
+	  yank
+	  yank-rectangle
+	  yank-clipboard-selection
+	  x-yank-clipboard-selection
+	  toolbar-paste
+
+	  cperl-electric-paren
+	  cperl-electric-rparen
+	  cperl-electric-terminator
+	  cperl-electric-semi
+	  cperl-electric-lbrace
+	  cperl-electric-brace
+
+	  electric-c-sharp-sign
+	  electric-c-terminator
+	  electric-c-semi
+	  electric-c-brace))
 
 ;; Don't delete for these.  They're more problematic than helpful.
 ;;