Commit 6a8d51b2 authored by David Byers's avatar David Byers
Browse files

Typo fix in context menus.

Better regexp for email addresses
parent 910363fc
2000-08-21 David Byers <davby@ida.liu.se>
* vars.el.in (lyskom-button-actions): Fixed typo.
(lyskom-text-buttons): Fixed email regexp to combat very slow
matching of long words.
2000-08-17 David Byers <davby@ida.liu.se>
Reimplement kom-bug-report:
......
......@@ -1172,22 +1172,27 @@ end."
(def-kom-command kom-review-clear ()
"Deletes all review-types from the lyskom-reading-list and lyskom-to-do-list."
(interactive)
(if (not (read-list-isempty lyskom-reading-list))
(while (or (eq (read-info->type (read-list->first lyskom-reading-list))
'REVIEW)
(eq (read-info->type (read-list->first lyskom-reading-list))
'REVIEW-TREE)
(eq (read-info->type (read-list->first lyskom-reading-list))
'REVIEW-MARK))
(set-read-list-del-first lyskom-reading-list)))
(if (not (read-list-isempty lyskom-to-do-list))
(while (or (eq (read-info->type (read-list->first lyskom-to-do-list))
'REVIEW)
(eq (read-info->type (read-list->first lyskom-to-do-list))
'REVIEW-TREE)
(eq (read-info->type (read-list->first lyskom-to-do-list))
'REVIEW-MARK))
(set-read-list-del-first lyskom-to-do-list))))
(let ((found nil))
(if (not (read-list-isempty lyskom-reading-list))
(while (or (eq (read-info->type (read-list->first lyskom-reading-list))
'REVIEW)
(eq (read-info->type (read-list->first lyskom-reading-list))
'REVIEW-TREE)
(eq (read-info->type (read-list->first lyskom-reading-list))
'REVIEW-MARK))
(set-read-list-del-first lyskom-reading-list)
(setq found t)))
(if (not (read-list-isempty lyskom-to-do-list))
(while (or (eq (read-info->type (read-list->first lyskom-to-do-list))
'REVIEW)
(eq (read-info->type (read-list->first lyskom-to-do-list))
'REVIEW-TREE)
(eq (read-info->type (read-list->first lyskom-to-do-list))
'REVIEW-MARK))
(set-read-list-del-first lyskom-to-do-list)
(setq found t)))
(unless found (lyskom-insert 'not-reviewing))))
;;; ================================================================
......
......@@ -726,6 +726,7 @@ M
;; From review.el:
(no-review-done . "Du mste terse innan du kan terse mer.\n")
(not-reviewing . "Du mste hller inte p att terse ngot nu.\n")
(review-how-many . "terse hur mnga?")
(review-how-many-more . "terse ytterligare hur mnga?")
(latest-n . "senaste %#1d")
......
......@@ -727,7 +727,7 @@ conference and person buttons are not expected.")
;; Email
("[^()<>@,;:\"\\\\\000- ]+@[^\000- <>;,.'\"!:?) \t\012\014]+\\(\\.[^\000- <>;,.'\"!:?)]+\\)+"
("\\(\\b\\|^\\)[^()<>@,;:\"\\\\\000- ]+@[^\000- <>;,.'\"!:?) \t\012\014]+\\(\\.[^\000- <>;,.'\"!:?)]+\\)+"
email 0 0 kom-url-face)
;; URLs
......@@ -1136,7 +1136,7 @@ at random and used. This element may be a string, function or list."
((lyskom-button-goto-info-node-action . lyskom-button-goto-info-node))
nil)
(email
generig-popup-title
generic-popup-title
lyskom-button-open-email
((lyskom-button-open-email-action . lyskom-button-open-email)
(lyskom-button-copy-email-action . lyskom-button-copy-email))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment