(normal-splash-screen, fancy-splash-screens-1): Add a reference to the Lisp

[gnu-emacs] / lisp / emacs-lisp / byte-opt.el

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 940b4869f5110906ace22f171b2fef2188e138b9..8c3fcffbc7d1307f2293caf4b70da3171a0d9c0b 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1,7 +1,7 @@
 ;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
 
 ;; Copyright (C) 1991, 1994, 2000, 2001, 2002, 2003, 2004,
-;;   2005 Free Software Foundation, Inc.
+;;   2005, 2006 Free Software Foundation, Inc.
 
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;     Hallvard Furuseth <hbf@ulrik.uio.no>
@@ -545,7 +545,7 @@
                                (eq (car-safe (nth 2 last)) 'cdr)
                                (eq (cadr (nth 2 last)) var))))
                    (progn
-                     (byte-compile-warn "`%s' called for effect"
+                     (byte-compile-warn "value returned by `%s' is not used"
                                         (prin1-to-string (car form)))
                      nil)))
           (byte-compile-log "  %s called for effect; deleted" fn)
@@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time."
          (setq constant nil))
       (setq args (cdr args)))
     (if constant
-       (eval form)
+       (list 'quote (eval form))
       form)))
 
 ;; Avoid having to write forward-... with a negative arg for speed.