Commit 1e6e2229 authored by David Byers's avatar David Byers
Browse files

Fix problem with completing-read in XEmacs.

Detailed changes:
> 2003-08-26  David Byers  <byers@lysator.liu.se>
>
> 	* utilities.el (lyskom-magic-minibuffer-mangle-initial):
> 	Explicitly make properties at the front of the initial value
> 	nonsticky (mainly for XEmacs where they are sticky by default).
> 	(completing-read): Add explicity uses for all variables to avoid
> 	compiler warnings in XEmacs at run time.
> 	(read-from-minibuffer): Same.
>
> 	* commands2.el (kom-send-message): Remoed unused variables.
>
parent 94cf510e
2003-08-26 David Byers <byers@lysator.liu.se>
* utilities.el (lyskom-magic-minibuffer-mangle-initial):
Explicitly make properties at the front of the initial value
nonsticky (mainly for XEmacs where they are sticky by default).
(completing-read): Add explicity uses for all variables to avoid
compiler warnings in XEmacs at run time.
(read-from-minibuffer): Same.
* commands2.el (kom-send-message): Remoed unused variables.
2003-08-25 David Byers <byers@lysator.liu.se>
* vars.el.in (lyskom-error-codes): Added error codes 55-61.
......
......@@ -625,8 +625,7 @@ Runs `kom-send-message-setup-hook' when entering the minibuffer.
See `kom-default-message-recipient'."
(interactive)
(let* ((tmp nil)
(target (or who
(let* ((target (or who
(lyskom-read-conf-no
`(who-to-send-message-to ,(lyskom-get-string 'nobody))
(if kom-permissive-completion '(all) '(login conf))
......
......@@ -2071,11 +2071,11 @@ suitable for use as initial input in a magic minibuffer."
(cond ((null initial) nil)
((stringp initial)
(let ((tmp (copy-sequence initial)))
(add-text-properties 0 (length tmp) '(lyskom-initial-mbc t rear-nonsticky t end-open t) tmp)
(add-text-properties 0 (length tmp) '(lyskom-initial-mbc t rear-nonsticky t end-open t start-open t front-sticky nil) tmp)
tmp))
((consp initial)
(let ((tmp (copy-sequence (car initial))))
(add-text-properties 0 (length tmp) '(lyskom-initial-mbc t rear-nonsticky t end-open t) tmp)
(add-text-properties 0 (length tmp) '(lyskom-initial-mbc t rear-nonsticky t end-open t start-open t front-sticky nil) tmp)
(cons tmp (cdr initial))))
(t initial)))
......@@ -2092,6 +2092,10 @@ suitable for use as initial input in a magic minibuffer."
(initial (and (boundp 'initial) (lyskom-magic-minibuffer-mangle-initial (symbol-value 'initial))))
(init (and (boundp 'init) (lyskom-magic-minibuffer-mangle-initial (symbol-value 'init))))
(result ad-do-it))
(lyskom-ignore initial-input)
(lyskom-ignore initial-contents)
(lyskom-ignore initial)
(lyskom-ignore init)
(when (stringp result)
(remove-text-properties 0 (length result) '(end-open nil rear-nonsticky nil lyskom-initial-mbc nil) result)
(unless (or (text-properties-at 0 result)
......@@ -2105,6 +2109,10 @@ suitable for use as initial input in a magic minibuffer."
(initial (and (boundp 'initial) (lyskom-magic-minibuffer-mangle-initial (symbol-value 'initial))))
(init (and (boundp 'init) (lyskom-magic-minibuffer-mangle-initial (symbol-value 'init))))
(result ad-do-it))
(lyskom-ignore initial-input)
(lyskom-ignore initial-contents)
(lyskom-ignore initial)
(lyskom-ignore init)
(when (stringp result)
(remove-text-properties 0 (length result) '(end-open nil rear-nonsticky nil lyskom-initial-mbc nil) result)
(unless (or (text-properties-at 0 result)
......
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