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) Wed Aug 12 06:35:09 1992 Linus Tolke Y (linus@robin)
* startup.el (lyskom-fetch-until-we-have-unread): Bugfix, it is * startup.el (lyskom-fetch-until-we-have-unread): Bugfix, it is
......
...@@ -321,8 +321,7 @@ The text is converted, before insertion." ...@@ -321,8 +321,7 @@ The text is converted, before insertion."
(defun lyskom-default-new-text-hook (text-stat) (defun lyskom-default-new-text-hook (text-stat)
"Print a message if the user was waiting. Change the prompt. run hooks." "Print a message if the user was waiting. Change the prompt. run hooks."
(if (and (not lyskom-no-prompt) ;There is a prompt (if (and (not lyskom-dont-change-prompt) ;We shall change it
(not lyskom-dont-change-prompt) ;We shall change it
(not lyskom-executing-command)) ;We have time to do it. (not lyskom-executing-command)) ;We have time to do it.
;; Alter the prompt. ;; Alter the prompt.
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
...@@ -330,7 +329,7 @@ The text is converted, before insertion." ...@@ -330,7 +329,7 @@ The text is converted, before insertion."
(goto-char (point-max)) (goto-char (point-max))
(beginning-of-line) (beginning-of-line)
(delete-region (point) (point-max))) (delete-region (point) (point-max)))
(setq lyskom-no-prompt t))) (lyskom-run 'async 'lyskom-print-prompt)))
(let ((no-message nil)) (let ((no-message nil))
(run-hooks 'lyskom-new-text-hook) (run-hooks 'lyskom-new-text-hook)
...@@ -368,11 +367,8 @@ The text is converted, before insertion." ...@@ -368,11 +367,8 @@ The text is converted, before insertion."
"Unexpected misc-info in new text " "Unexpected misc-info in new text "
type)))))) type))))))
;; Give a message if the user is waiting. ;; Give a message if the user is waiting. Update the prompt.
(lyskom-run 'async 'lyskom-default-new-text-hook text-stat) (lyskom-run 'async 'lyskom-default-new-text-hook text-stat))
(lyskom-run 'async 'lyskom-print-prompt))
(defun lyskom-conf-fetched-p (conf-no) (defun lyskom-conf-fetched-p (conf-no)
......
No preview for this file type
...@@ -85,3 +85,4 @@ Value returned is always nil." ...@@ -85,3 +85,4 @@ Value returned is always nil."
(defmacro -- (var) (defmacro -- (var)
"Decrement the variable VAR and return the value." "Decrement the variable VAR and return the value."
(list 'setq var (list '1- var))) (list 'setq var (list '1- var)))
...@@ -633,7 +633,6 @@ Entry to this mode runs lyskom-mode-hook." ...@@ -633,7 +633,6 @@ Entry to this mode runs lyskom-mode-hook."
(make-local-variable 'lyskom-membership) (make-local-variable 'lyskom-membership)
(make-local-variable 'lyskom-prefetch-texts) (make-local-variable 'lyskom-prefetch-texts)
(make-local-variable 'lyskom-prefetch-conf-tresh) (make-local-variable 'lyskom-prefetch-conf-tresh)
(make-local-variable 'lyskom-no-prompt)
(make-local-variable 'lyskom-reading-list) (make-local-variable 'lyskom-reading-list)
(make-local-variable 'lyskom-to-do-list) (make-local-variable 'lyskom-to-do-list)
(make-local-variable 'lyskom-fetched-texts) (make-local-variable 'lyskom-fetched-texts)
......
...@@ -223,7 +223,7 @@ Dont change these. These are defined by the protocol.") ...@@ -223,7 +223,7 @@ Dont change these. These are defined by the protocol.")
;;; Internal variables and constants ;;; Internal variables and constants
(defconst lyskom-clientversion "0.34.7" (defconst lyskom-clientversion "0.35"
"Version of the LysKOM elisp client.") "Version of the LysKOM elisp client.")
(defconst lyskom-max-int 8388607 (defconst lyskom-max-int 8388607
...@@ -396,9 +396,6 @@ article in one of the first lyskom-fetch-membership-length conferences.") ...@@ -396,9 +396,6 @@ article in one of the first lyskom-fetch-membership-length conferences.")
(defvar lyskom-unread-confs nil (defvar lyskom-unread-confs nil
"List containing all unread confs.") "List containing all unread confs.")
(defvar lyskom-no-prompt t
"Non-nil if no prompt is displayed yet.")
(defvar lyskom-dont-change-prompt nil (defvar lyskom-dont-change-prompt nil
"Non-nil during the entry of a text.") "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