diff options
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/ses.el | 3 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da3ce647cf7..cd535eafafa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2014-10-25 Vincent Belaïche <vincentb1@users.sourceforge.net> | ||
| 2 | |||
| 3 | * ses.el (macroexp): add require for this package, so that | ||
| 4 | function `ses--cell' gets macroexp-quote --- this change was | ||
| 5 | supposed to be in my previous commit, but left out by mistake. | ||
| 6 | (ses--cell): Do not make formula a macroexp-quote of value when | ||
| 7 | value, not formula, is *skip*. | ||
| 8 | |||
| 1 | 2014-10-24 Vincent Belaïche <vincentb1@users.sourceforge.net> | 9 | 2014-10-24 Vincent Belaïche <vincentb1@users.sourceforge.net> |
| 2 | 10 | ||
| 3 | * ses.el (macroexp): add require for this package, so that function | 11 | * ses.el (macroexp): add require for this package, so that function |
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 @@ | |||
| 56 | ;;; Code: | 56 | ;;; Code: |
| 57 | 57 | ||
| 58 | (require 'unsafep) | 58 | (require 'unsafep) |
| 59 | (require 'macroexp) | ||
| 59 | (eval-when-compile (require 'cl-lib)) | 60 | (eval-when-compile (require 'cl-lib)) |
| 60 | 61 | ||
| 61 | 62 | ||
| @@ -491,7 +492,7 @@ Safety-checking for FORMULA and PRINTER are deferred until first use." | |||
| 491 | (let ((rowcol (ses-sym-rowcol sym))) | 492 | (let ((rowcol (ses-sym-rowcol sym))) |
| 492 | (ses-formula-record formula) | 493 | (ses-formula-record formula) |
| 493 | (ses-printer-record printer) | 494 | (ses-printer-record printer) |
| 494 | (unless (or formula (eq formula '*skip*)) | 495 | (unless (or formula (eq value '*skip*)) |
| 495 | (setq formula (macroexp-quote value))) | 496 | (setq formula (macroexp-quote value))) |
| 496 | (or (atom formula) | 497 | (or (atom formula) |
| 497 | (eq safe-functions t) | 498 | (eq safe-functions t) |