# HG changeset patch # User Glenn Morris # Date 1248317655 0 # Node ID 2a920253454b0e5dfd81278cb2a89f28bd2a5449 # Parent d2b52a0cf4623adf525800b18c7b1a3209157b5e (cl-compiling-file): Update for the name-change `outbuffer' to `bytecomp-outbuffer'. diff -r d2b52a0cf462 -r 2a920253454b lisp/emacs-lisp/cl.el --- a/lisp/emacs-lisp/cl.el Thu Jul 23 02:54:00 2009 +0000 +++ b/lisp/emacs-lisp/cl.el Thu Jul 23 02:54:15 2009 +0000 @@ -1,7 +1,7 @@ ;;; cl.el --- Common Lisp extensions for Emacs -;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Author: Dave Gillespie ;; Version: 2.02 @@ -272,8 +272,9 @@ (defvar cl-compiling-file nil) (defun cl-compiling-file () (or cl-compiling-file - (and (boundp 'outbuffer) (bufferp (symbol-value 'outbuffer)) - (equal (buffer-name (symbol-value 'outbuffer)) + (and (boundp 'bytecomp-outbuffer) + (bufferp (symbol-value 'bytecomp-outbuffer)) + (equal (buffer-name (symbol-value 'bytecomp-outbuffer)) " *Compiler Output*")))) (defvar cl-proclaims-deferred nil)