From ddcce1fac16aecabbe941cee1110ea55c594b6d4 Mon Sep 17 00:00:00 2001 From: minakaji Date: Tue, 19 Dec 2000 21:30:40 +0000 Subject: [PATCH] * 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. --- ChangeLog | 4 ++++ poe-18.el | 20 +++++--------------- 2 files changed, 9 insertions(+), 15 deletions(-) diff --git a/ChangeLog b/ChangeLog index 006a94e..385d773 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,10 @@ 2000-12-20 NAKAJIMA Mikio * 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 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) -- 1.7.10.4