diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-29 16:25:19 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-09-29 16:25:19 -0400 |
| commit | 73486689523ba42c04c006e6840f7f5f18deb016 (patch) | |
| tree | 496256de784e3ef1bb74afce1b418591ac6e59c2 /lisp/ses.el | |
| parent | 2b3d968a02be2b8859cc2078904a184337654898 (diff) | |
| download | emacs-73486689523ba42c04c006e6840f7f5f18deb016.tar.gz | |
* lisp/ses.el (ses--letref): Quote value before it gets re-evaluated.
Diffstat (limited to 'lisp/ses.el')
| -rw-r--r-- | lisp/ses.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index e11fee4e976..0e1aa5b472d 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -457,7 +457,7 @@ functions refer to its value." (declare (indent 2) (debug (sexp form &rest body))) (gv-letplace (getter setter) place `(cl-macrolet ((,(nth 0 vars) () ',getter) - (,(nth 1 vars) (v) (funcall ,setter v))) + (,(nth 1 vars) (v) (funcall ',setter v))) ,@body))) (defmacro ses-cell-property (property-name row &optional col) @@ -3398,7 +3398,7 @@ highlighted range in the spreadsheet." (symbol-name new-name))) (force-mode-line-update))) -(defun ses-refresh-local-printer (name compiled-value) +(defun ses-refresh-local-printer (name _compiled-value) ;FIXME: unused arg? "Refresh printout for all cells which use printer NAME. NAME should be the name of a locally defined printer. Uses the value COMPILED-VALUE for this printer." |