diff options
author | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2014-10-25 12:40:14 +0200 |
---|---|---|
committer | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2014-10-25 12:40:14 +0200 |
commit | c286a3e0afe3bca989d3a8cfc22ad005eec253a1 (patch) | |
tree | 208419e96281bbd9a56ece97ced457920e69e008 /lisp/ses.el | |
parent | a91ff4f4b1d835cc2c723429c06ddcb357f807c8 (diff) | |
download | emacs-c286a3e0afe3bca989d3a8cfc22ad005eec253a1.tar.gz |
* ses.el (macroexp): add require for this package, so that
function `ses--cell' gets macroexp-quote --- this change was
supposed to be in my previous commit, but left out by mistake.
(ses--cell): Do not make formula a macroexp-quote of value when
value, not formula, is *skip*.
Diffstat (limited to 'lisp/ses.el')
-rw-r--r-- | lisp/ses.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index 09001fdb358..a653f8c174b 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -56,6 +56,7 @@ ;;; Code: (require 'unsafep) +(require 'macroexp) (eval-when-compile (require 'cl-lib)) @@ -491,7 +492,7 @@ Safety-checking for FORMULA and PRINTER are deferred until first use." (let ((rowcol (ses-sym-rowcol sym))) (ses-formula-record formula) (ses-printer-record printer) - (unless (or formula (eq formula '*skip*)) + (unless (or formula (eq value '*skip*)) (setq formula (macroexp-quote value))) (or (atom formula) (eq safe-functions t) |