[Emacs-diffs] /srv/bzr/emacs/trunk r104783: Silence ses.el compilation.

[Glenn Morris]

------------------------------------------------------------
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)