;ELC   
;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:45:19 1998
;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/delsel.el
;;; emacs version 19.34.
;;; bytecomp version FSF 2.10
;;; 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.29")))
    (error "`delsel.el' was compiled for Emacs 19.29 or later"))


#@166 *Non-nil means Delete Selection mode is enabled.
In Delete Selection mode, when a region is highlighted,
insertion commands first delete the region and then insert.
(defvar delete-selection-mode t (#$ . -488))
(defalias 'delete-active-region #[(&optional killp) "ƒ ء`آ \"ˆ‚ `آ |ˆأإئ!ˆا‡" [killp kill-region mark nil mark-active run-hooks deactivate-mark-hook t] 3])
(defalias 'delete-selection-pre-hook #[nil "…_ 	?…_ \n…_ …_ \f9… \fإN‰ا=ƒ' بة!‚^ ت=ƒC `ث {\f@کƒ= حخ!ˆبد!‚^ ذ=ƒV بد!…^ ر‰‚^ …^ بد!)‡" [delete-selection-mode buffer-read-only transient-mark-mode mark-active this-command delete-selection type kill delete-active-region t yank mark kill-ring current-kill 1 nil supersede (lambda nil (interactive))] 3])
(byte-code "ہءآ\"ˆأؤإئ#ˆأاإئ#ˆأبإب#ˆأةإب#ˆأتإئ#ˆأثإج#ˆأحإج#ˆأخإج#ˆأدإئ#ˆأذإئ#ˆأرإئ#ˆأزإئ#ˆأسإئ#ˆأشإئ#ˆأصإئ#ˆض×ط\"‡" [add-hook pre-command-hook delete-selection-pre-hook put self-insert-command delete-selection t self-insert-iso yank clipboard-yank insert-register delete-backward-char supersede backward-delete-char-untabify delete-char newline-and-indent newline open-line egg-self-insert-command canna-self-insert-command canna-henkan-region-or-self-insert quail-self-insert-command defalias pending-delete-mode delete-selection-mode] 4)
#@150 Toggle Delete Selection mode.
When ON, typed text replaces the selection if the selection is active.
When OFF, typed text is just inserted at point.
(defalias 'delete-selection-mode #[(arg) "„	 	?‚ آ!أVؤ ‡" [arg delete-selection-mode prefix-numeric-value 0 force-mode-line-update] 2 (#$ . 1767) "P"])
#@144 Abort recursive edit.
In Delete Selection mode, if the mark is active, just deactivate it;
then it takes a second C-g to abort the minibuffer.
(defalias 'minibuffer-keyboard-quit #[nil "ƒ 	ƒ \nƒ أ‰‡إ ‡" [delete-selection-mode transient-mark-mode mark-active t deactivate-mark abort-recursive-edit] 2 (#$ . 2079) nil])
(byte-code "ہ	آأ#ˆہ\fآأ#ˆہآأ#ˆہآأ#ˆہآأ#ˆبة!‡" [define-key minibuffer-local-map "" minibuffer-keyboard-quit minibuffer-local-ns-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-isearch-map provide delsel] 4)