* poe-18.el (read-from-minibuffer): Do not run `minibuffer-setup-hook' and

[elisp/apel.git] / poe-18.el

diff --git a/poe-18.el b/poe-18.el
index 0087c6b..ba4219b 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -526,10 +526,10 @@ poe-18.el provides this as dummy for a compatibility.")
   "List of events to be read as the command input.
 poe-18.el provides this as dummy for a compatibility.")
 
-(defvar-maybe minibuffer-setup-hook nil
-  "Normal hook run just after entry to minibuffer.")
-(defvar-maybe minibuffer-exit-hook nil
-  "Normal hook run just after exit from minibuffer.")
+;; (defvar-maybe minibuffer-setup-hook nil
+;;   "Normal hook run just after entry to minibuffer.")
+;; (defvar-maybe minibuffer-exit-hook nil
+;;   "Normal hook run just after exit from minibuffer.")
 
 (defvar-maybe minor-mode-map-alist nil
   "Alist of keymaps to use for minor modes.
@@ -593,17 +593,7 @@ If fourth arg READ is non-nil, then interpret the result as a lisp object
   and return that object:
   in other words, do `(car (read-from-string INPUT-STRING))'
 Fifth arg HIST is ignored in this implementatin."
-       (with-current-buffer
-           (get-buffer-create
-            (format " *Minibuf-%d*" (minibuffer-depth)))
-         (run-hooks 'minibuffer-setup-hook))
-       (si:read-from-minibuffer prompt initial-contents keymap read)
-       (with-current-buffer
-           (get-buffer-create
-            (format " *Minibuf-%d*" (minibuffer-depth)))
-         (condition-case nil
-             (run-hooks 'minibuffer-exit-hook)
-           (error))))))
+       (si:read-from-minibuffer prompt initial-contents keymap read))))
 
 ;; Add optional argument `frame'.
 (or (fboundp 'si:get-buffer-window)