home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / pending-.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.2 KB  |  14 lines
  1. ;;; compiled by jwz@thalidomide on Sat Jan 16 01:46:50 1993
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/pending-del.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.09; 12-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (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 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 add-hook pre-command-hook zmacs-regions] 4)
  14.