lyskom-text-buttons understands links broken before the number as

well as those broken after it.
kom-review-more doesn't ignore the prefix argument if supplied.
moved kom-edit-insert-link to C-c C-i C-l.

src/ChangeLog

+2001-08-21  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* vars.el.in (lyskom-text-buttons): understands links broken
+	before the number as well as those broken after it.
+
+	* review.el (kom-review-more): doesn't ignore the prefix argument
+	if supplied.
+
+	* swedish-strings.el, english-strings.el
+	(lyskom-sv-edit-mode-map, lyskom-en-edit-mode-map): moved
+	kom-edit-insert-link to C-c C-i C-l.
+
 2001-08-16  Bjrn Brenander  <bjorn@brenander.pp.se>
 
 	* commands1.el (kom-who-is-on-in-conference): now suggests the
@@ -40,20 +52,13 @@
 	<person 70:Calle Dybedahl (on a mission from Goddess)>:
 	New function for viewing a URL in Galeon.
 
-	* vars.el.in (kom-url-managers): See above.
-	(kom-galeon-command): See above.
-
-	* swedish-strings.el (lyskom-custom-strings): See above.
-	(lyskom-custom-strings): See above.
-	(lyskom-custom-strings): See above.
+	* vars.el.in (kom-url-managers, kom-galeon-command): See above.
 
-	* option-edit.el (lyskom-customize-buffer-format): See above.
-	(lyskom-custom-variables): See above.
-	(lyskom-url-viewer-widget): See above.
+	* swedish-strings.el, english-strings.el (lyskom-custom-strings):
+	See above.
 
-	* english-strings.el (lyskom-custom-strings): See above.
-	(lyskom-custom-strings): See above.
-	(lyskom-custom-strings): See above.
+	* option-edit.el (lyskom-customize-buffer-format,
+	lyskom-custom-variables, lyskom-url-viewer-widget): See above.
 
 2001-07-11  Christer Ekholm  <che@init.se>
 

src/english-strings.el

@@ -102,12 +102,12 @@
   (define-key lyskom-en-edit-prefix (kbd "C-i 8") 'kom-edit-insert-digit-text)
   (define-key lyskom-en-edit-prefix (kbd "C-i 9") 'kom-edit-insert-digit-text)
   (define-key lyskom-en-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
+  (define-key lyskom-en-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link)
   (define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix)
   (define-key lyskom-en-edit-prefix (kbd "C-a C-r") 'kom-edit-add-recipient)
   (define-key lyskom-en-edit-prefix (kbd "C-a C-c") 'kom-edit-add-copy)
   (define-key lyskom-en-edit-prefix (kbd "C-a <RET>") 'kom-edit-move-text)
   (define-key lyskom-en-edit-prefix (kbd "C-a C-x") 'kom-edit-add-cross-reference)
-  (define-key lyskom-en-edit-prefix (kbd "C-a C-l") 'kom-edit-insert-link)
   (define-key lyskom-en-edit-prefix (kbd "C-x C-p") 'kom-edit-add-personal-comments)
   (define-key lyskom-en-edit-prefix (kbd "C-x C-n") 'kom-edit-add-no-comments)
   (define-key lyskom-en-edit-prefix (kbd "C-x C-r") 'kom-edit-add-read-confirm-request)

src/review.el

@@ -88,12 +88,13 @@
 
 (def-kom-command kom-review-more (&optional count)
   "Review more articles using the same critera as the last review."
-  (interactive "P")
+  (interactive "p")
   (if (not lyskom-have-review)
       (lyskom-format-insert 'no-review-done)
-    (let* ((count (lyskom-read-number
-                   (lyskom-get-string 'review-how-many-more)
-                   (abs lyskom-last-review-num)))
+    (let* ((count (or count
+		      (lyskom-read-number
+		       (lyskom-get-string 'review-how-many-more)
+		       (abs lyskom-last-review-num))))
            (info (progn (if (and (listp count)
                                  (integerp (car count))
                                  (null (cdr count)))

src/swedish-strings.el

@@ -108,6 +108,7 @@
   (define-key lyskom-sv-edit-prefix (kbd "C-i 8")   'kom-edit-insert-digit-text)
   (define-key lyskom-sv-edit-prefix (kbd "C-i 9")   'kom-edit-insert-digit-text)
   (define-key lyskom-sv-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
+  (define-key lyskom-sv-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link)
   (define-key lyskom-sv-edit-prefix (kbd "C-a")     'lyskom-sv-edit-add-prefix)
   (define-key lyskom-sv-edit-prefix (kbd "C-a C-m") 'kom-edit-add-recipient)
   (define-key lyskom-sv-edit-prefix (kbd "C-a <RET>") 'kom-edit-add-recipient)
@@ -118,7 +119,6 @@
   (define-key lyskom-sv-edit-prefix (kbd "C-a <LFD>") 'kom-edit-add-recipient)
   (define-key lyskom-sv-edit-prefix (kbd "C-a C-k") 'kom-edit-add-comment)
   (define-key lyskom-sv-edit-prefix (kbd "C-a C-x") 'kom-edit-add-cross-reference)
-  (define-key lyskom-sv-edit-prefix (kbd "C-a C-l") 'kom-edit-insert-link)
   (define-key lyskom-sv-edit-prefix (kbd "C-x C-p") 'kom-edit-add-personal-comments)
   (define-key lyskom-sv-edit-prefix (kbd "C-x C-n") 'kom-edit-add-no-comments)
   (define-key lyskom-sv-edit-prefix (kbd "C-x C-b") 'kom-edit-add-read-confirm-request)

src/vars.el.in

@@ -771,9 +771,9 @@ conference and person buttons are not expected.")
 
     ;; JySKom enhancements
 
-    ("<(?m[|ö]te *\\([0-9]+\\)[^0-9>]*)?>" conf 0 1 nil)
-    ("<(?text *\\([0-9]+\\)[^0-9>]*)?>" text 0 1 nil)
-    ("<(?person *\\([0-9]+\\)[^0-9>]*)?>" pers 0 1 nil)
+    ("<(?m[|ö]te[ \t\n]*\\([0-9]+\\)[^0-9>]*)?>" conf 0 1 nil)
+    ("<(?text[ \t\n]*\\([0-9]+\\)[^0-9>]*)?>" text 0 1 nil)
+    ("<(?person[ \t\n]*\\([0-9]+\\)[^0-9>]*)?>" pers 0 1 nil)
 
     ;; Info node reference