Commit db977540 authored by Linus Tolke's avatar Linus Tolke
Browse files

Variable lyskom-no-prompt removed. lyskom-start-of-command,

lyskom-end-of-command patched.
parent be0b515c
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
......@@ -321,8 +321,7 @@ 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
(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))
......@@ -330,7 +329,7 @@ The text is converted, before insertion."
(goto-char (point-max))
(delete-region (point) (point-max)))
(setq lyskom-no-prompt t)))
(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 "
;; 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)
No preview for this file type
......@@ -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)))
......@@ -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)
......@@ -223,7 +223,7 @@ Dont change these. These are defined by the protocol.")
;;; Internal variables and constants
(defconst lyskom-clientversion "0.34.7"
(defconst lyskom-clientversion "0.35"
"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.")
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