Mercurial > emacs

diff lisp/emacs-lisp/cl.el @ 104035:2a920253454b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cl-compiling-file): Update for the name-change `outbuffer' to `bytecomp-outbuffer'.
author Glenn Morris <rgm@gnu.org>
date Thu, 23 Jul 2009 02:54:15 +0000
parents a9dc0e7c3f2b
children 7ddfb0bcf0a2
line wrap: on
line diff
--- 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 <daveg@synaptics.com>
 ;; 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)