This commit was generated by cvs2svn to compensate for changes in r1388,

[chise/xemacs-chise.git.1] / lisp / buffer.el

diff --git a/lisp/buffer.el b/lisp/buffer.el
index e7920c0..002ce0d 100644 (file)
--- a/lisp/buffer.el
+++ b/lisp/buffer.el
@@ -32,9 +32,6 @@
 
 ;;; Code:
 
-(defvar switch-to-buffer-hooks nil
-  "Hooks to run after a recorded buffer switch.")
-
 (defun switch-to-buffer (bufname &optional norecord)
   "Select buffer BUFNAME in the current window.
 BUFNAME may be a buffer or a buffer name and is created if it did not exist.
@@ -63,13 +60,10 @@ the window-buffer correspondences."
            (set-buffer-major-mode buf))))
     (push-window-configuration)
     (set-buffer buf)
-    (or norecord (record-buffer buf))
     (set-window-buffer (if (eq (selected-window) (minibuffer-window))
                           (next-window (minibuffer-window))
                         (selected-window))
-                      buf)
-    ;; XEmacs change
-    (or norecord (run-hook-with-args 'switch-to-buffer-hooks buf))
+                      buf norecord)
     buf))
 
 (defun pop-to-buffer (bufname &optional not-this-window-p on-frame)