mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Silence ses.el compilation.

Browse Source 
* 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.
This commit is contained in:
Glenn Morris 2011-06-29 14:37:31 -04:00
parent 5386012dfd
commit 3076b24ebb
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2011-06-29 Glenn Morris <rgm@gnu.org>
* 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 <rudalics@gmx.at>
* window.el (normalize-live-buffer): Rename to

20
lisp/ses.el
View File

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