X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/c0274f385fe5f39459cac5ea9ff9f92bacd3a8ef..e70991d4203e889c35806ec8f5890579d9f78f80:/lisp/chistory.el

diff --git a/lisp/chistory.el b/lisp/chistory.el
index 620288fc77..64fe7c8688 100644
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -1,13 +1,15 @@
 ;;; chistory.el --- list command history
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
+
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,12 +21,15 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
 
 ;; This really has nothing to do with list-command-history per se, but
 ;; its a nice alternative to C-x ESC (repeat-complex-command) and
 ;; functions as a lister if given no pattern.  It's not important
 ;; enough to warrant a file of its own.
 
+;;; Code:
+
 ;;;###autoload
 (defun repeat-matching-complex-command (&optional pattern)
   "Edit and re-evaluate complex command with name matching PATTERN.
@@ -146,7 +151,7 @@ The buffer for that command is the previous current buffer."
 		(beginning-of-line)
 		(read (current-buffer)))
 	    (set-buffer
-	     (cdr (buffer-list)))))))
+	     (car (cdr (buffer-list))))))))
 
 ;;;###autoload
 (defun command-history-mode ()