Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
292a6418
Commit
292a6418
authored
Jun 02, 2002
by
David Byers
Browse files
Synkning inför release av 0.47-BETA-2
parent
ef511cc1
Changes
6
Hide whitespace changes
Inline
Side-by-side
doc/Makefile
View file @
292a6418
...
...
@@ -22,7 +22,7 @@
#
# Please mail bug reports to bug-lyskom@lysator.liu.se.
CLIENTVERSION
=
0.47-BETA-
1
CLIENTVERSION
=
0.47-BETA-
2
SHELL
=
/bin/sh
RM
=
rm
-f
...
...
src/ChangeLog
View file @
292a6418
2002-06-02 David Byers <david.byers@swipnet.se>
* Release of 0.47-BETA-2
2002-05-31 David Byers <david.byers@swipnet.se>
Fix bug 235:
* parse.el (lyskom-parse-unparsed): When an error is signalled
from a handler, delete the parsed message.
2002-06-01 Ulrik Haugen <qha@lysator.liu.se>
* Makefile (DOCFILES): include NEWS for 0.47 instead of 0.46.
...
...
src/Makefile
View file @
292a6418
...
...
@@ -36,7 +36,7 @@
# Version of the client.
#
# Also remember to change version number in ../doc/Makefile!
CLIENTVERSION
=
0.47-BETA-
1
CLIENTVERSION
=
0.47-BETA-
2
######################################################################
...
...
src/commands2.el
View file @
292a6418
...
...
@@ -2930,19 +2930,18 @@ interface (i.e. symbols whose name starts with \"lyskom\")."
(case-fold-search t))
(mapatoms
(lambda (atom)
(let ((string nil))
(when (and (or (boundp atom) (fboundp atom))
(or (and do-all (string-match "
^lyskom-
" (symbol-name atom)))
(string-match "
^kom-
" (symbol-name atom)))
(or (string-match re (symbol-name atom))
(and (fboundp atom)
(string-match re (or (documentation atom) "")))
(and (boundp atom)
(string-match re (or
(documentation-property
atom 'variable-documentation)
"")))))
(setq result (cons atom result))))))
(when (and (or (boundp atom) (fboundp atom))
(or (and do-all (string-match "
^lyskom-
" (symbol-name atom)))
(string-match "
^kom-
" (symbol-name atom)))
(or (string-match re (symbol-name atom))
(and (fboundp atom)
(string-match re (or (documentation atom) "")))
(and (boundp atom)
(string-match re (or
(documentation-property
atom 'variable-documentation)
"")))))
(setq result (cons atom result)))))
(setq result
(sort result (lambda (a b)
(string-lessp (symbol-name a)
...
...
src/help.el
View file @
292a6418
...
...
@@ -103,11 +103,11 @@
(
let
((
inhibit-read-only
t
))
(
cond
((
symbolp
(
car
data
))
(
funcall
(
cdr
(
assq
(
car
data
)
lyskom-help-format-handlers
))
data
))
(
t
(
lyskom-traverse
el
data
(
let
((
tag
(
lyskom-help-data-get-tag
el
))
(
da
ta
(
lyskom-help-data-get-
da
ta
el
)))
(
funcall
(
cdr
(
assq
tag
lyskom-help-format-handlers
))
el
)))))))
(
t
(
lyskom-traverse
el
data
(
let
((
ta
g
(
lyskom-help-data-get-ta
g
el
)))
(
funcall
(
cdr
(
assq
tag
lyskom-help-format-handlers
))
el
)))))))
(
defun
lyskom-help-format-text-properties
(
data
props
)
(
let
((
start
(
point-marker
)))
...
...
src/parse.el
View file @
292a6418
...
...
@@ -1226,7 +1226,10 @@ functions and variables that are connected with the lyskom-buffer."
;; One reply is now parsed.
(
lyskom-protocol-error
(
delete-region
(
point-min
)
(
min
(
point-max
)
(
1+
lyskom-parse-pos
)))
(
signal
'lyskom-protocol-error
err
)))
(
signal
'lyskom-protocol-error
err
))
(
lyskom-parse-incomplete
(
signal
(
car
err
)
(
cdr
err
)))
(
error
(
delete-region
(
point-min
)
lyskom-parse-pos
)
(
signal
(
car
err
)
(
cdr
err
))))
(
goto-char
(
point-min
))
(
if
(
looking-at
"[ \n]+"
)
(
delete-region
(
match-beginning
0
)
(
match-end
0
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment