Commit eb6cdafb authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

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.
parent 5883923d
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> 2001-08-16 Bjrn Brenander <bjorn@brenander.pp.se>
* commands1.el (kom-who-is-on-in-conference): now suggests the * commands1.el (kom-who-is-on-in-conference): now suggests the
...@@ -40,20 +52,13 @@ ...@@ -40,20 +52,13 @@
<person 70:Calle Dybedahl (on a mission from Goddess)>: <person 70:Calle Dybedahl (on a mission from Goddess)>:
New function for viewing a URL in Galeon. New function for viewing a URL in Galeon.
* vars.el.in (kom-url-managers): See above. * vars.el.in (kom-url-managers, kom-galeon-command): 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.
* option-edit.el (lyskom-customize-buffer-format): See above. * swedish-strings.el, english-strings.el (lyskom-custom-strings):
(lyskom-custom-variables): See above. See above.
(lyskom-url-viewer-widget): See above.
* english-strings.el (lyskom-custom-strings): See above. * option-edit.el (lyskom-customize-buffer-format,
(lyskom-custom-strings): See above. lyskom-custom-variables, lyskom-url-viewer-widget): See above.
(lyskom-custom-strings): See above.
2001-07-11 Christer Ekholm <che@init.se> 2001-07-11 Christer Ekholm <che@init.se>
......
...@@ -102,12 +102,12 @@ ...@@ -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 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 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 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") '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-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 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 <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-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-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-n") 'kom-edit-add-no-comments)
(define-key lyskom-en-edit-prefix (kbd "C-x C-r") 'kom-edit-add-read-confirm-request) (define-key lyskom-en-edit-prefix (kbd "C-x C-r") 'kom-edit-add-read-confirm-request)
......
...@@ -88,12 +88,13 @@ ...@@ -88,12 +88,13 @@
(def-kom-command kom-review-more (&optional count) (def-kom-command kom-review-more (&optional count)
"Review more articles using the same critera as the last review." "Review more articles using the same critera as the last review."
(interactive "P") (interactive "p")
(if (not lyskom-have-review) (if (not lyskom-have-review)
(lyskom-format-insert 'no-review-done) (lyskom-format-insert 'no-review-done)
(let* ((count (lyskom-read-number (let* ((count (or count
(lyskom-get-string 'review-how-many-more) (lyskom-read-number
(abs lyskom-last-review-num))) (lyskom-get-string 'review-how-many-more)
(abs lyskom-last-review-num))))
(info (progn (if (and (listp count) (info (progn (if (and (listp count)
(integerp (car count)) (integerp (car count))
(null (cdr count))) (null (cdr count)))
......
...@@ -108,6 +108,7 @@ ...@@ -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 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 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 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") '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 C-m") 'kom-edit-add-recipient)
(define-key lyskom-sv-edit-prefix (kbd "C-a <RET>") 'kom-edit-add-recipient) (define-key lyskom-sv-edit-prefix (kbd "C-a <RET>") 'kom-edit-add-recipient)
...@@ -118,7 +119,6 @@ ...@@ -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 <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-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-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-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-n") 'kom-edit-add-no-comments)
(define-key lyskom-sv-edit-prefix (kbd "C-x C-b") 'kom-edit-add-read-confirm-request) (define-key lyskom-sv-edit-prefix (kbd "C-x C-b") 'kom-edit-add-read-confirm-request)
......
...@@ -771,9 +771,9 @@ conference and person buttons are not expected.") ...@@ -771,9 +771,9 @@ conference and person buttons are not expected.")
;; JySKom enhancements ;; JySKom enhancements
("<(?m[|ö]te *\\([0-9]+\\)[^0-9>]*)?>" conf 0 1 nil) ("<(?m[|ö]te[ \t\n]*\\([0-9]+\\)[^0-9>]*)?>" conf 0 1 nil)
("<(?text *\\([0-9]+\\)[^0-9>]*)?>" text 0 1 nil) ("<(?text[ \t\n]*\\([0-9]+\\)[^0-9>]*)?>" text 0 1 nil)
("<(?person *\\([0-9]+\\)[^0-9>]*)?>" pers 0 1 nil) ("<(?person[ \t\n]*\\([0-9]+\\)[^0-9>]*)?>" pers 0 1 nil)
;; Info node reference ;; Info node reference
......
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