diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-06-29 14:37:31 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-06-29 14:37:31 -0400 |
| commit | 3076b24ebbbf4a4233c09cd6608b67b7b4ea9b1f (patch) | |
| tree | 73cde23cd4784f93e43d79194f92c3d4001d87b1 /lisp/ses.el | |
| parent | 5386012dfddc8bda16a5a2c5dea9121f2be108e8 (diff) | |
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.
Diffstat (limited to 'lisp/ses.el')
| -rw-r--r-- | lisp/ses.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index 8b06f058fcd..a0df6a5e2cc 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -56,6 +56,7 @@ ;;; Code: (require 'unsafep) +(eval-when-compile (require 'cl)) ;;---------------------------------------------------------------------------- @@ -272,18 +273,18 @@ default printer and then modify its output.") (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 @@ default printer and then modify its output.") ((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) |