From: minakaji <minakaji>
Date: Tue, 19 Dec 2000 21:30:40 +0000 (+0000)
Subject: * poe-18.el (read-from-minibuffer): Do not run `minibuffer-setup-hook' and
X-Git-Tag: apel-10_3~31
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=ddcce1fac16aecabbe941cee1110ea55c594b6d4

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

diff --git a/ChangeLog b/ChangeLog
index 006a94e..385d773 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,10 @@
 2000-12-20  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 
 	* poe-18.el (set-frame-height): Typo fixed.
+	(read-from-minibuffer): Do not run `minibuffer-setup-hook' and
+	`minibuffer-exit-hook'.
+	(minibuffer-setup-hook): Comment out.
+	(minibuffer-exit-hook): Ditto.
 
 2000-12-19  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 
diff --git a/poe-18.el b/poe-18.el
index 0087c6b..ba4219b 100644
--- 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)