;ELC ;;; compiled by jwz@thalidomide on Thu Apr 21 01:05:24 1994 ;;; from file /th/jwz/emacs19/lisp/packages/pending-del.el ;;; emacs version 19.10 Lucid (beta16). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar pending-delete-verbose 1 "\ *nil disables on/off messages for pending-del mode 1 suppresses messages on loading t enables all messages") (byte-code "ÀÁMˆÂÃMˆÄÅÆÇ#ˆÄÈÆÇ#ˆÄÉÆÇ#ˆÄÊÆË#ˆÄÌÆË#ˆÄÍÆË#ˆÄÎÆÇ#ˆÄÏÆÇ#ˆÄÐÆÇ#‡" [delete-active-region #[(&optional killp) "?­µÁ\n!­°pÃ\n!=­©ÄÅ\n!W­¢ÄÆ\n!W­›«‹ÈÅ\n!Æ\n!\"ˆªˆÅ\n!Æ\n!|ˆÉ ˆÊ‡" [buffer-read-only extentp primary-selection-extent extent-buffer 0 extent-start-position extent-end-position killp kill-region zmacs-deactivate-region t] 4] pending-delete-pre-hook #[nil "9­ƒÁN‰Ã=«…ÄÅ!ª•\nÆ=«ŠÄÇ!­‹È‰ª†\n­ƒÄÇ!)‡" [this-command pending-delete type kill delete-active-region t supersede nil (lambda nil (interactive))] 3] put self-insert-command pending-delete t yank x-yank-clipboard-selection delete-backward-char supersede backward-delete-char-untabify delete-char newline-and-indent newline open-line] 4) (fset 'pending-delete-on #[(verbose) "ÀÁÂ\"ˆ ­ƒÄÅ!‡" [add-hook pre-command-hook pending-delete-pre-hook verbose message "Pending delete is ON, use M-x pending-delete to turn it OFF"] 3 "\ Turn on pending delete. When it is ON typed text replaces the selection if the selection is active. When it is OFF typed text is just inserted at point." "P"]) (fset 'pending-delete-off #[(verbose) "ÀÁÂ\"ˆ ­ƒÄÅ!‡" [remove-hook pre-command-hook pending-delete-pre-hook verbose message "pending delete is OFF"] 3 "\ Turn on pending delete. When it is ON typed text replaces the selection if the selection is active. When it is OFF typed text is just inserted at point." "P"]) (fset 'pending-delete #[(&optional arg) "À >?? ¬„\n?ª…Ä !ÅV‰\n=«ƒÇªŽ«†È !ª„Ê !*‡" [pending-delete-pre-hook pre-command-hook was-on arg prefix-numeric-value 0 on-p nil pending-delete-on pending-delete-verbose pending-delete-off] 3 "\ Toggle automatic deletion of the selected region. With a positive argument, turns it on. With a non-positive argument, turns it off. When active, typed text replaces the selection." "P"]) (byte-code "À Â=!ˆÃÄ!‡" [pending-delete-on pending-delete-verbose t provide pending-del] 3) (fset 'keyboard-quit #[nil "­‚Á ?­„ÂÃÄ\"‡" [zmacs-regions zmacs-deactivate-region signal quit nil] 3 "\ Signal a `quit' condition. If this character is typed while lisp code is executing, it will be treated as an interrupt. If this character is typed at top-level, this simply beeps. If `zmacs-regions' is true, and the zmacs region is active, then this key deactivates the region without beeping or signalling." nil]) (fset 'minibuffer-keyboard-quit #[nil "­‚Á ?­‚ ‡" [zmacs-regions zmacs-deactivate-region abort-recursive-edit] 1 "\ Abort recursive edit If `zmacs-regions' is true, and the zmacs region is active, then this key deactivates the region without beeping." nil]) (define-key minibuffer-local-map '(control g) 'minibuffer-keyboard-quit)