From: Glenn Morris Date: Thu, 23 Jul 2009 02:54:15 +0000 (+0000) Subject: (cl-compiling-file): Update for the name-change `outbuffer' to X-Git-Tag: emacs-pretest-23.1.90~2055 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b94906242f32ccb2567f66a62dd6cea0db1a9e1;p=emacs.git (cl-compiling-file): Update for the name-change `outbuffer' to `bytecomp-outbuffer'. --- diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 1f4a4d3812d..beed29678d4 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -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 @@ definitions to shadow the loaded ones for use in file byte-compilation. (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)