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 @@ ...@@ -22,7 +22,7 @@
# #
# Please mail bug reports to bug-lyskom@lysator.liu.se. # Please mail bug reports to bug-lyskom@lysator.liu.se.
CLIENTVERSION = 0.46-BETA-D CLIENTVERSION = 0.46-BETA-E
SHELL = /bin/sh SHELL = /bin/sh
RM = rm -vf RM = rm -vf
......
...@@ -134,7 +134,12 @@ while [ ! "$q1" ] ; do ...@@ -134,7 +134,12 @@ while [ ! "$q1" ] ; do
done done
revision="" 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 if [ "$yes" ] ; then
xecho "Revision: \c" xecho "Revision: \c"
read revision 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> Fri Dec 3 11:54:28 1999 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-D * Release av 0.46-BETA-D
......
...@@ -36,7 +36,7 @@ ...@@ -36,7 +36,7 @@
# makefile too! # makefile too!
# #
CLIENTVERSION = 0.46-BETA-D CLIENTVERSION = 0.46-BETA-E
DOCFILES=NEWS-0.46 DOCFILES=NEWS-0.46
DEBIANCLIENTVERSION = $(shell echo $(CLIENTVERSION) | tr - .) DEBIANCLIENTVERSION = $(shell echo $(CLIENTVERSION) | tr - .)
...@@ -56,7 +56,6 @@ TARGET=lyskom.elc ...@@ -56,7 +56,6 @@ TARGET=lyskom.elc
TARGET-EL=$(TARGET:%.elc=%.el) TARGET-EL=$(TARGET:%.elc=%.el)
LANGUAGE-EL=$(LANGUAGES:=-strings.el) LANGUAGE-EL=$(LANGUAGES:=-strings.el)
EMACS-BATCH=$(EMACS) -batch
SOURCES = $(LANGUAGE-EL) \ SOURCES = $(LANGUAGE-EL) \
komtypes.el \ komtypes.el \
clienttypes.el \ clienttypes.el \
......
...@@ -183,10 +183,18 @@ ...@@ -183,10 +183,18 @@
"Reads and returns a command" "Reads and returns a command"
(let* ((completion-ignore-case t) (let* ((completion-ignore-case t)
(minibuffer-setup-hook minibuffer-setup-hook) (minibuffer-setup-hook minibuffer-setup-hook)
(alternatives (mapcar (function (lambda (pair) (alternatives (mapcar
(cons (cdr pair) (car pair)))) (lambda (pair)
(lyskom-get-strings lyskom-commands (cons
'lyskom-command))) (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) (name nil)
(prefix-text (prefix-text
(cond ((eq prefix-arg '-) "- ") (cond ((eq prefix-arg '-) "- ")
......
...@@ -385,7 +385,7 @@ the resulting string may be narrower than END-COLUMN." ...@@ -385,7 +385,7 @@ the resulting string may be narrower than END-COLUMN."
(defun lyskom-string-assoc (key list) (defun lyskom-string-assoc (key list)
"Return non-nil if KEY is the same string as the car of an element of 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." The value is actually the element of LIST whose car equals KEY."
(let ((s (downcase key)) (let ((s (and key (downcase key)))
(result nil)) (result nil))
(while list (while list
(when (lyskom-string= s (downcase (car (car 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." ...@@ -397,7 +397,7 @@ The value is actually the element of LIST whose car equals KEY."
(defun lyskom-string-rassoc (key list) (defun lyskom-string-rassoc (key list)
"Return non-nil if KEY is the same string as the cdr of an element of 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." The value is actually the element of LIST whose car equals KEY."
(let ((s (downcase key)) (let ((s (and key (downcase key)))
(result nil)) (result nil))
(while list (while list
(when (lyskom-string= s (downcase (cdr (car 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