* x-dnd.el (x-dnd-maybe-call-test-function):

[gnu-emacs] / lisp / chistory.el

diff --git a/lisp/chistory.el b/lisp/chistory.el
index af25175f7c2ba46a2a0aceb3c6c861897e308206..0220673ec02630608cf44e3a0aa4fda5dfc1b8b6 100644 (file)
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -116,8 +116,7 @@ The buffer is left in Command History mode."
          (prin1 (car history))
          (terpri))
        (setq history (cdr history))))
-    (save-excursion
-      (set-buffer "*Command History*")
+    (with-current-buffer "*Command History*"
       (goto-char (point-min))
       (if (eobp)
          (error "No command history")