emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]