[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104783: Silence ses.el compilation.
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104783: Silence ses.el compilation. |
Date: |
Wed, 29 Jun 2011 14:37:31 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104783
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-06-29 14:37:31 -0400
message:
Silence ses.el compilation.
* lisp/ses.el (top-level): Require cl when compiling.
(ses-set-localvars): Fix error statement.
Call it at compile time to silence a storm of warnings.
modified:
lisp/ChangeLog
lisp/ses.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-06-29 12:06:08 +0000
+++ b/lisp/ChangeLog 2011-06-29 18:37:31 +0000
@@ -1,3 +1,9 @@
+2011-06-29 Glenn Morris <address@hidden>
+
+ * ses.el (top-level): Require cl when compiling.
+ (ses-set-localvars): Fix error statement.
+ Call it at compile time to silence a storm of warnings.
+
2011-06-29 Martin Rudalics <address@hidden>
* window.el (normalize-live-buffer): Rename to
=== modified file 'lisp/ses.el'
--- a/lisp/ses.el 2011-06-27 08:14:10 +0000
+++ b/lisp/ses.el 2011-06-29 18:37:31 +0000
@@ -56,6 +56,7 @@
;;; Code:
(require 'unsafep)
+(eval-when-compile (require 'cl))
;;----------------------------------------------------------------------------
@@ -272,18 +273,18 @@
(eval-and-compile
(defconst ses-localvars
'(ses--blank-line ses--cells ses--col-printers
- ses--col-widths (ses--curcell . nil) ses--curcell-overlay
+ ses--col-widths ses--curcell ses--curcell-overlay
ses--default-printer
- ses--deferred-narrow (ses--deferred-recalc
- . nil) (ses--deferred-write . nil) ses--file-format
+ ses--deferred-narrow ses--deferred-recalc
+ ses--deferred-write ses--file-format
(ses--header-hscroll . -1) ; Flag for "initial recalc needed"
ses--header-row ses--header-string ses--linewidth
ses--numcols ses--numrows ses--symbolic-formulas
- ses--data-marker ses--params-marker (ses--Dijkstra-attempt-nb
- . 0) ses--Dijkstra-weight-bound
+ ses--data-marker ses--params-marker (ses--Dijkstra-attempt-nb . 0)
+ ses--Dijkstra-weight-bound
;; Global variables that we override
mode-line-process next-line-add-newlines transient-mark-mode)
- "Buffer-local variables used by SES."))
+ "Buffer-local variables used by SES.")
(defun ses-set-localvars ()
"Set buffer-local and initialize some SES variables."
@@ -292,8 +293,11 @@
((symbolp x)
(set (make-local-variable x) nil))
((consp x)
- (set (make-local-variable (car x)) (cdr x)))
- (error "Unexpected elements `%S' in list `ses-localvars'"))))
+ (set (make-local-variable (car x)) (cdr x)))
+ (t (error "Unexpected elements `%S' in list `ses-localvars'" x))))))
+
+(eval-when-compile ; silence compiler
+ (ses-set-localvars))
;;; This variable is documented as being permitted in file-locals:
(put 'ses--symbolic-formulas 'safe-local-variable 'consp)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104783: Silence ses.el compilation.,
Glenn Morris <=