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
db977540
Commit
db977540
authored
Aug 30, 1992
by
Linus Tolke
Browse files
Variable lyskom-no-prompt removed. lyskom-start-of-command,
lyskom-end-of-command patched.
parent
be0b515c
Changes
6
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
db977540
Sun Aug 30 20:00:14 1992 Linus Tolke Y (linus@rune)
* vars.el,async.el,macros.el,startup.el (lyskom-no-prompt):
removed variable.
Sun Aug 16 22:29:19 1992 Linus Tolke Y (linus@robin)
* lyskom-rest.el (lyskom-start-of-command, lyskom-end-of-command):
The prefetch is now turned on and of while executing a command.
* vars.el: The version number is not 0.35
Wed Aug 12 06:35:09 1992 Linus Tolke Y (linus@robin)
* startup.el (lyskom-fetch-until-we-have-unread): Bugfix, it is
...
...
src/async.el
View file @
db977540
...
...
@@ -321,16 +321,15 @@ The text is converted, before insertion."
(
defun
lyskom-default-new-text-hook
(
text-stat
)
"Print a message if the user was waiting. Change the prompt. run hooks."
(
if
(
and
(
not
lyskom-no-prompt
)
;There is a prompt
(
not
lyskom-dont-change-prompt
)
;We shall change it
(
not
lyskom-executing-command
))
;We have time to do it.
(
if
(
and
(
not
lyskom-dont-change-prompt
)
;We shall change it
(
not
lyskom-executing-command
))
;We have time to do it.
;; Alter the prompt.
(
let
((
buffer-read-only
nil
))
(
lyskom-save-excursion
(
goto-char
(
point-max
))
(
beginning-of-line
)
(
delete-region
(
point
)
(
point-max
)))
(
setq
lyskom-
no
-prompt
t
)))
(
goto-char
(
point-max
))
(
beginning-of-line
)
(
delete-region
(
point
)
(
point-max
)))
(
lyskom-run
'async
'
lyskom-
print
-prompt
)))
(
let
((
no-message
nil
))
(
run-hooks
'lyskom-new-text-hook
)
...
...
@@ -368,11 +367,8 @@ The text is converted, before insertion."
"Unexpected misc-info in new text "
type
))))))
;; Give a message if the user is waiting.
(
lyskom-run
'async
'lyskom-default-new-text-hook
text-stat
)
(
lyskom-run
'async
'lyskom-print-prompt
))
;; Give a message if the user is waiting. Update the prompt.
(
lyskom-run
'async
'lyskom-default-new-text-hook
text-stat
))
(
defun
lyskom-conf-fetched-p
(
conf-no
)
...
...
src/lyskom-rest.el
View file @
db977540
No preview for this file type
src/macros.el
View file @
db977540
...
...
@@ -85,3 +85,4 @@ Value returned is always nil."
(
defmacro
--
(
var
)
"Decrement the variable VAR and return the value."
(
list
'setq
var
(
list
'1-
var
)))
src/startup.el
View file @
db977540
...
...
@@ -633,7 +633,6 @@ Entry to this mode runs lyskom-mode-hook."
(
make-local-variable
'lyskom-membership
)
(
make-local-variable
'lyskom-prefetch-texts
)
(
make-local-variable
'lyskom-prefetch-conf-tresh
)
(
make-local-variable
'lyskom-no-prompt
)
(
make-local-variable
'lyskom-reading-list
)
(
make-local-variable
'lyskom-to-do-list
)
(
make-local-variable
'lyskom-fetched-texts
)
...
...
src/vars.el
View file @
db977540
...
...
@@ -223,7 +223,7 @@ Dont change these. These are defined by the protocol.")
;;; Internal variables and constants
(
defconst
lyskom-clientversion
"0.3
4.7
"
(
defconst
lyskom-clientversion
"0.3
5
"
"Version of the LysKOM elisp client."
)
(
defconst
lyskom-max-int
8388607
...
...
@@ -396,9 +396,6 @@ article in one of the first lyskom-fetch-membership-length conferences.")
(
defvar
lyskom-unread-confs
nil
"List containing all unread confs."
)
(
defvar
lyskom-no-prompt
t
"Non-nil if no prompt is displayed yet."
)
(
defvar
lyskom-dont-change-prompt
nil
"Non-nil during the entry of a text."
)
...
...
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