branch: elpa/forth-mode
commit aaacce775b910afe06a02a56ecfceb3288c84b64
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Lars Brinkhoff <l...@nocrew.org>
Fix forth-spec for Forth 2012 using https://forth-standard.org
---
forth-spec.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/forth-spec.el b/forth-spec.el
index e7bba3c5cf..f89a403236 100644
--- a/forth-spec.el
+++ b/forth-spec.el
@@ -31,7 +31,7 @@
"Browsing Forth standards."
:group 'forth)
-(defcustom forth-spec-url-2012 "http://www.forth200x.org/documents/html/";
+(defcustom forth-spec-url-2012 "https://forth-standard.org/standard/";
"The URL which contains the HTML version of the standard.
If you have a local copy set this variable to
something like \"file://home/joe/docs/ANS-Forth/\".
@@ -123,9 +123,8 @@ Note: the string should have a trailing backslash."
(defun forth-spec--parse-2012 ()
(let ((index '())
(case-fold-search nil)
- (rx "<td>\
-<a href=\"\\([^\"]+\\)\">\\([^<]+\\)</a>\
-</td><td>\\(?:\"\\([^\"]+\\)\"\\)?</td>"))
+ (rx "</td><td><a href=\"\\([^\"]+\\)\">\
+\\([^<]+\\)</a></td><td>\\(?:\"\\(\"+\\)\"\\)??</td>"))
(search-forward "<table")
(while (re-search-forward rx nil t)
(push (list (forth-spec--decode-entities (match-string 2))
