Commit b1097670 authored by David Byers's avatar David Byers
Browse files

Bumped version numbers

Default for numeric tags is no when building a beta release
Workaround for completing read of commands with latin1 characters in a
unibyte Gnu Emacs.
parent 7afe27da
......@@ -22,7 +22,7 @@
#
# Please mail bug reports to bug-lyskom@lysator.liu.se.
CLIENTVERSION = 0.46-BETA-D
CLIENTVERSION = 0.46-BETA-E
SHELL = /bin/sh
RM = rm -vf
......
......@@ -134,7 +134,12 @@ while [ ! "$q1" ] ; do
done
revision=""
ask "Vill du gra en numerisk revision fr alla filer" ja
if [ -z `echo $version | sed "s/.*BETA.*//"` ] ; then
$ans=nej
else
$ans=ja
fi
ask "Vill du gra en numerisk revision fr alla filer" $ans
if [ "$yes" ] ; then
xecho "Revision: \c"
read revision
......
1999-12-03 David Byers <davby@sen2.ida.liu.se>
* command.el (lyskom-read-extended-command): Patch in order to do
correct completion in a unibyte environment with multibyte strings
as alternatives.
Fri Dec 3 11:54:28 1999 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-D
......
......@@ -36,7 +36,7 @@
# makefile too!
#
CLIENTVERSION = 0.46-BETA-D
CLIENTVERSION = 0.46-BETA-E
DOCFILES=NEWS-0.46
DEBIANCLIENTVERSION = $(shell echo $(CLIENTVERSION) | tr - .)
......@@ -56,7 +56,6 @@ TARGET=lyskom.elc
TARGET-EL=$(TARGET:%.elc=%.el)
LANGUAGE-EL=$(LANGUAGES:=-strings.el)
EMACS-BATCH=$(EMACS) -batch
SOURCES = $(LANGUAGE-EL) \
komtypes.el \
clienttypes.el \
......
......@@ -183,10 +183,18 @@
"Reads and returns a command"
(let* ((completion-ignore-case t)
(minibuffer-setup-hook minibuffer-setup-hook)
(alternatives (mapcar (function (lambda (pair)
(cons (cdr pair) (car pair))))
(lyskom-get-strings lyskom-commands
'lyskom-command)))
(alternatives (mapcar
(lambda (pair)
(cons
(if enable-multibyte-characters
(cdr pair)
(encode-coding-string
(cdr pair)
(or (lyskom-language-coding lyskom-language)
'raw-text)))
(car pair)))
(lyskom-get-strings lyskom-commands
'lyskom-command)))
(name nil)
(prefix-text
(cond ((eq prefix-arg '-) "- ")
......
......@@ -385,7 +385,7 @@ the resulting string may be narrower than END-COLUMN."
(defun lyskom-string-assoc (key list)
"Return non-nil if KEY is the same string as the car of an element of LIST.
The value is actually the element of LIST whose car equals KEY."
(let ((s (downcase key))
(let ((s (and key (downcase key)))
(result nil))
(while list
(when (lyskom-string= s (downcase (car (car list))))
......@@ -397,7 +397,7 @@ The value is actually the element of LIST whose car equals KEY."
(defun lyskom-string-rassoc (key list)
"Return non-nil if KEY is the same string as the cdr of an element of LIST.
The value is actually the element of LIST whose car equals KEY."
(let ((s (downcase key))
(let ((s (and key (downcase key)))
(result nil))
(while list
(when (lyskom-string= s (downcase (cdr (car list))))
......
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