* 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 (file)
--- 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.
 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>
 
 
 2000-12-19  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 

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.")
 
   "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.
 
 (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."
   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)
 
 ;; Add optional argument `frame'.
 (or (fboundp 'si:get-buffer-window)