Commit 4db47113 authored by David Byers's avatar David Byers
Browse files

Fixade felet i Skicka inlägg och i completion.

parent c72ace8d
Sun Nov 30 12:20:49 1997 David Byers <dbyers@atp>
* completing-read.el (lyskom-complete-string-advance): Fixade
buggen.
* commands1.el (kom-write-text): Anvnd consp, inte listp.
Fri Nov 28 15:47:23 1997 David Byers <dbyers@atp>
* commands2.el (lyskom-print-mark-summary-line): Ny funktion.
......
......@@ -1273,7 +1273,7 @@ Args: CONF-STAT MEMBERSHIP"
"write a text."
(interactive "P")
(let ((recpt nil))
(cond ((listp arg) (setq recpt
(cond ((consp arg) (setq recpt
(lyskom-read-conf-no
(lyskom-get-string 'who-send-text-to)
'(all) nil nil t)))
......
......@@ -732,7 +732,7 @@ the LysKOM rules of string matching."
(defun lyskom-complete-string-advance (data-list)
(lyskom-traverse
el data-list
(string-match "\\([ \t]-+\\|[ \t]-\\|$\\)"
(string-match "\\([ \t]+\\|[^ \t]\\|$\\)"
(aref el 2)
(aref el 0))
(aset el 0 (match-end 0))))
......@@ -740,7 +740,7 @@ the LysKOM rules of string matching."
(defun lyskom-complete-string-skip-whitespace (data-list)
(lyskom-traverse
el data-list
(string-match "[ \t]-*" (aref el 2) (aref el 0))
(string-match "[ \t]*" (aref el 2) (aref el 0))
(aset el 0 (match-end 0))))
;;;
......@@ -750,7 +750,7 @@ the LysKOM rules of string matching."
(defun lyskom-complete-string-advance-to-end-of-word (data-list)
(lyskom-traverse
el data-list
(aset el 0 (string-match "\\([ \t]-\\|$\\)"
(aset el 0 (string-match "\\([ \t]\\|$\\)"
(aref el 2)
(aref el 0)))))
......
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