mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 23:40:24 -08:00
Code Issues Projects Releases Wiki Activity

Unify local variable section, and set

Browse source 
byte-compile-warnings to `(not cl-functions)'.
(cl-do-proclaim): Use byte-compile-disable-warning and
byte-compile-enable-warning.
This commit is contained in:
Glenn Morris 2007-10-28 23:51:29 +00:00
parent 08f5e96594
commit bc8ce89b93
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/cl-macs.el
View file

@ -1,4 +1,4 @@
;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- ;;; cl-macs.el --- Common Lisp macros
;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc. ;; Free Software Foundation, Inc.
@ -1554,15 +1554,11 @@ values. For compatibility, (values A B C) is a synonym for (list A B C).
byte-compile-delete-errors (nth 1 safety))))) byte-compile-delete-errors (nth 1 safety)))))
((and (eq (car-safe spec) 'warn) (boundp 'byte-compile-warnings)) ((and (eq (car-safe spec) 'warn) (boundp 'byte-compile-warnings))
(if (eq byte-compile-warnings t)
(setq byte-compile-warnings byte-compile-warning-types))
(while (setq spec (cdr spec)) (while (setq spec (cdr spec))
(if (consp (car spec)) (if (consp (car spec))
(if (eq (cadar spec) 0) (if (eq (cadar spec) 0)
(setq byte-compile-warnings (byte-compile-disable-warning (caar spec))
(delq (caar spec) byte-compile-warnings)) (byte-compile-enable-warning (caar spec)))))))
(setq byte-compile-warnings
(adjoin (caar spec) byte-compile-warnings)))))))
nil) nil)
;;; Process any proclamations made before cl-macs was loaded. ;;; Process any proclamations made before cl-macs was loaded.
@ -2728,7 +2724,8 @@ surrounded by (block NAME ...).
(run-hooks 'cl-macs-load-hook) (run-hooks 'cl-macs-load-hook)
;; Local variables: ;; Local variables:
;; byte-compile-warnings: (redefine callargs free-vars unresolved obsolete noruntime) ;; byte-compile-dynamic: t
;; byte-compile-warnings: (not cl-functions)
;; generated-autoload-file: "cl-loaddefs.el" ;; generated-autoload-file: "cl-loaddefs.el"
;; End: ;; End: