aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorVincent Belaïche2016-07-29 13:44:14 +0200
committerVincent Belaïche2016-07-29 13:44:14 +0200
commit3c97b0f7589e06aeb1ab0147f0ee32974c32926d (patch)
tree12432507950aa2da886fb33514d1b62735a4af96 /lisp
parent272391f1d63eae0c1002d62fa5e5b1d63a0da767 (diff)
downloademacs-3c97b0f7589e06aeb1ab0147f0ee32974c32926d.tar.gz
emacs-3c97b0f7589e06aeb1ab0147f0ee32974c32926d.zip
Fix ses-delete-blanks to delete only blanks + documentation.
* doc/misc/ses.texi (Quick Tutorial): Mention the '!' 'ses-range' modifier as an alternative to 'ses+'. (Advanced Features): Add a refernce to node 'Nonrelocatable references' concerning function 'ses-rename-cell'. (Standard formula functions): Mention the '!' 'ses-range' modifier as an alternative to 'ses-delete-blanks'. (More on cell printing): Fix fallback printer definition. Minor editorial formatting changes. (Nonrelocatable references): Document the use of 'ses-rename-cell' as a better way to make cell reference non-relocatable. (The data area): Document the presence of local printer definitions in the data area. * lisp/ses.el (ses-delete-blanks): Do not remove *error*. Any error in an argument should propagate into the using formula rather than being silently hidden !
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ses.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ses.el b/lisp/ses.el
index 0b38af41a8b..b379ef1f9c6 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -1,3 +1,4 @@
1
1;;; ses.el -- Simple Emacs Spreadsheet -*- lexical-binding:t -*- 2;;; ses.el -- Simple Emacs Spreadsheet -*- lexical-binding:t -*-
2 3
3;; Copyright (C) 2002-2016 Free Software Foundation, Inc. 4;; Copyright (C) 2002-2016 Free Software Foundation, Inc.
@@ -3746,7 +3747,7 @@ Use `math-format-value' as a printer for Calc objects."
3746 "Return ARGS reversed, with the blank elements (nil and *skip*) removed." 3747 "Return ARGS reversed, with the blank elements (nil and *skip*) removed."
3747 (let (result) 3748 (let (result)
3748 (dolist (cur args) 3749 (dolist (cur args)
3749 (unless (memq cur '(nil *skip* *error*)) 3750 (unless (memq cur '(nil *skip*))
3750 (push cur result))) 3751 (push cur result)))
3751 result)) 3752 result))
3752 3753