diff options
| author | Vincent Belaïche | 2023-11-06 17:11:55 +0100 |
|---|---|---|
| committer | Vincent Belaïche | 2025-06-21 21:13:13 +0200 |
| commit | 5a8c993eb395af045efb394ee250ed750b4693ff (patch) | |
| tree | 8e72390b8e497fc86511fddd35774e6ca7b9f3f1 | |
| parent | 90af74af7aa5fd0d8f4baf9bf468960c5e519206 (diff) | |
| download | emacs-5a8c993eb395af045efb394ee250ed750b4693ff.tar.gz emacs-5a8c993eb395af045efb394ee250ed750b4693ff.zip | |
ses-range < > shorthands.
* lisp/ses.el (ses-range): Fix handling of shorthands < >.
| -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 4adbe4b8b37..87ca4c1d240 100644 --- a/lisp/ses.el +++ b/lisp/ses.el | |||
| @@ -4018,8 +4018,8 @@ Use `math-format-value' as a printer for Calc objects." | |||
| 4018 | (_ | 4018 | (_ |
| 4019 | (cond | 4019 | (cond |
| 4020 | ; shorthands one row | 4020 | ; shorthands one row |
| 4021 | ((and (null (cddr result)) (memq x '(> <))) | 4021 | ((and (null (cdar ,result)) (memq x '(> <))) |
| 4022 | (push (intern (concat (symbol-name x) "v")) rest)) | 4022 | (push (intern (concat (symbol-name x) "v")) rest)) |
| 4023 | ; shorthands one col | 4023 | ; shorthands one col |
| 4024 | ((and (null (cdar result)) (memq x '(v ^))) | 4024 | ((and (null (cdar result)) (memq x '(v ^))) |
| 4025 | (push (intern (concat (symbol-name x) ">")) rest)) | 4025 | (push (intern (concat (symbol-name x) ">")) rest)) |