From 73486689523ba42c04c006e6840f7f5f18deb016 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 29 Sep 2014 16:25:19 -0400 Subject: [PATCH] * lisp/ses.el (ses--letref): Quote value before it gets re-evaluated. --- lisp/ChangeLog | 4 ++++ lisp/ses.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d8f7e7a8da..003018d88d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-09-29 Stefan Monnier + + * ses.el (ses--letref): Quote value before it gets re-evaluated. + 2014-09-28 Thien-Thi Nguyen Font-lock `cl-flet*', too. 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." -- 2.39.5