[Emacs-diffs] emacs/lisp/emacs-lisp cl.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/07/23 02:54:15

Modified files:
        lisp/emacs-lisp: cl.el 

Log message:
        (cl-compiling-file): Update for the name-change `outbuffer' to
        `bytecomp-outbuffer'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/cl.el?cvsroot=emacs&r1=1.66&r2=1.67

Patches:
Index: cl.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/cl.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- cl.el       5 Jan 2009 03:20:55 -0000       1.66
+++ cl.el       23 Jul 2009 02:54:15 -0000      1.67
@@ -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 <address@hidden>
 ;; 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)