[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dismal 1b5e097: * dismal.el (dis--formula-string-p): Fi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/dismal 1b5e097: * dismal.el (dis--formula-string-p): Fix regexp according to manual |
Date: |
Sun, 10 Mar 2019 01:37:00 -0500 (EST) |
branch: externals/dismal
commit 1b5e0979becb3a0b936366fa76217cf4c6b41c9a
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* dismal.el (dis--formula-string-p): Fix regexp according to manual
---
dismal.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/dismal.el b/dismal.el
index e830717..caf9660 100644
--- a/dismal.el
+++ b/dismal.el
@@ -1,6 +1,6 @@
;;; dismal.el --- Dis Mode Ain't Lotus: Spreadsheet program Emacs
-;; Copyright (C) 1993-2018 Free Software Foundation, Inc.
+;; Copyright (C) 1993-2019 Free Software Foundation, Inc.
;; Author: David Fox, address@hidden
;; Frank E. Ritter, address@hidden
@@ -6089,7 +6089,7 @@ can use."
; (setq item "(if (> 3 4) nil 4)")
(defun dis--formula-string-p (item) ;;(dis--formula-string-p "(* 34 34)")
(and (stringp item) ;;(dis--formula-string-p "(/ (float 3) (float
3))")
- (string-match "^([a-zA-Z .0-9:$---/^\"+=<>\\]*)$" item)
+ (string-match "\\`(.*)\\'" item)
(fboundp (car (car (read-from-string item))))))
; (dismal-char-col-to-dismal-col 50)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/dismal 1b5e097: * dismal.el (dis--formula-string-p): Fix regexp according to manual,
Stefan Monnier <=