Commit aad9ec8c authored by David Kågedal's avatar David Kågedal
Browse files

Några små förbättringar.

parent 9cdaa3c8
...@@ -11,6 +11,14 @@ Fri Mar 29 03:26:34 1996 David K ...@@ -11,6 +11,14 @@ Fri Mar 29 03:26:34 1996 David K
* view-text.el (lyskom-print-header-comm): Visa nr * view-text.el (lyskom-print-header-comm): Visa nr
kommentarslnken adderades. kommentarslnken adderades.
Thu Mar 28 15:11:27 1996 David Kgedal <davidk@lysator.liu.se>
* lyskom-rest.el (lyskom-set-mode-line): Se till att mode-raden
uppdateras.
* view-text.el (lyskom-follow-comments): Se till att kommentarer
till fotnoter som lses omedelbart lggs p lsstacken.
Wed Mar 27 16:19:57 1996 David Byers <davby@sen2.ida.liu.se> Wed Mar 27 16:19:57 1996 David Byers <davby@sen2.ida.liu.se>
* Version 0.40.1 release * Version 0.40.1 release
......
...@@ -116,6 +116,8 @@ this function shall be with current-buffer the BUFFER." ...@@ -116,6 +116,8 @@ this function shall be with current-buffer the BUFFER."
(lyskom-message "%s" (lyskom-get-string 'database-sync))) (lyskom-message "%s" (lyskom-get-string 'database-sync)))
(setq mode-line-process (lyskom-get-string 'mode-line-saving)) (setq mode-line-process (lyskom-get-string 'mode-line-saving))
(setq lyskom-is-saving t) (setq lyskom-is-saving t)
;; I guess the following two lines could be replaced by
;; force-mode-line-update in a modern emacs.
(set-buffer-modified-p (buffer-modified-p)) (set-buffer-modified-p (buffer-modified-p))
(sit-for 0) (sit-for 0)
(if (not lyskom-pending-calls) (if (not lyskom-pending-calls)
......
No preview for this file type
...@@ -141,13 +141,7 @@ See lyskom-mode for details." ...@@ -141,13 +141,7 @@ See lyskom-mode for details."
(defun lyskom-connect-filter (proc output) (defun lyskom-connect-filter (proc output)
"Receive connection acknowledgement from server." "Receive connection acknowledgement from server."
(if lyskom-debug-communications-to-buffer (if lyskom-debug-communications-to-buffer
(lyskom-debug-insert proc "-----> " output) (lyskom-debug-insert proc "-----> " output))
;;; (save-excursion
;;; (set-buffer
;;; (get-buffer-create lyskom-debug-communications-to-buffer-buffer))
;;; (goto-char (point-max))
;;; (insert "\n" (format "%s" proc) "-----> " output))
)
(cond (cond
((string-match "^LysKOM\n" output) ((string-match "^LysKOM\n" output)
(set-process-filter proc 'lyskom-filter)))) (set-process-filter proc 'lyskom-filter))))
......
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