Commit 75a9a1f8 authored by David Byers's avatar David Byers
Browse files

Bugfixar

parent bc778dde
Wed Feb 12 14:43:31 1997 David Byers <davby@sen22.ida.liu.se>
* defvar.el (lyskom-save-variables): Fixade buggen med lokala
variabler.
* buffers.el (lyskom-buffer-list): Bytte namn till
lyskom-associated-buffer-list
Sun Feb 9 11:25:35 1997 David Byers <davby@sen22.ida.liu.se> Sun Feb 9 11:25:35 1997 David Byers <davby@sen22.ida.liu.se>
* lyskom-rest.el (kom-save-text): Skrev om.
* utilities.el (lyskom-apo-timeout): Ny variabel. * utilities.el (lyskom-apo-timeout): Ny variabel.
(lyskom-apo-timeout-index): Dito. (lyskom-apo-timeout-index): Dito.
(lyskom-apo-timeout-vector): Dito. (lyskom-apo-timeout-vector): Dito.
......
...@@ -4,9 +4,6 @@ Att g ...@@ -4,9 +4,6 @@ Att g
-------- Buggar -------- Buggar
Läsningen av user-arean buggade i XEmacs av någon anledning. Det
såg ut som en XEmacs-bug. Jag *tror* jag har gjort en workaround.
Trycka C-g medan man loggar in kan göra att man inte kan logga in Trycka C-g medan man loggar in kan göra att man inte kan logga in
igen. (Rapporterat av Tommy Persson.) Felmeddelandet blir "Illegal igen. (Rapporterat av Tommy Persson.) Felmeddelandet blir "Illegal
nånting: listp not-yet-gotten" nånting: listp not-yet-gotten"
...@@ -57,7 +54,10 @@ Att g ...@@ -57,7 +54,10 @@ Att g
Om man läser ett inlägg som har en fotnot (t ex 1449843) och vill Om man läser ett inlägg som har en fotnot (t ex 1449843) och vill
spara det på fil, så blir det bara fotnoten som sparas. Man vill spara det på fil, så blir det bara fotnoten som sparas. Man vill
nog spara minst själva huvudinlägget, och nog också fotnoterna nog spara minst själva huvudinlägget, och nog också fotnoterna
samtidigt. samtidigt. [Pja, det är faktist meningen att det skall funka så
här. Spara text sparar sisa inlägget man tittade på.
Prefixargument ger fler. Frågan om det är *bra* eller inte är en
helt annan...]
Om ett namn som fylls i i efterhand gör att sista raden blir för Om ett namn som fylls i i efterhand gör att sista raden blir för
lång, så scrollar klienten trots att den inte borde. Jag trodde lång, så scrollar klienten trots att den inte borde. Jag trodde
...@@ -129,11 +129,12 @@ Att g ...@@ -129,11 +129,12 @@ Att g
Reentrant blocking-do Reentrant blocking-do
När man sparar texter vill man inte att det ska stå t.ex. "idag".
-------- Fixade saker -------- Fixade saker
När man sparar texter vill man inte att det ska stå t.ex. "idag".
[FIXAT]
Fixa klart z-initiate-get-map. [BEHÖVS INTE] Fixa klart z-initiate-get-map. [BEHÖVS INTE]
Modifiera interna datastrukturer vid utträd. [FIXAT] Modifiera interna datastrukturer vid utträd. [FIXAT]
...@@ -236,3 +237,6 @@ Att g ...@@ -236,3 +237,6 @@ Att g
för mycket till i sessionslistan. Överhuvudtaget bör nl med vänner för mycket till i sessionslistan. Överhuvudtaget bör nl med vänner
putsas på. [FIXAT] putsas på. [FIXAT]
Läsningen av user-arean buggade i XEmacs av någon anledning. Det
såg ut som en XEmacs-bug. Jag *tror* jag har gjort en workaround.
...@@ -169,12 +169,12 @@ the children object" ...@@ -169,12 +169,12 @@ the children object"
;;;; ====================================================================== ;;;; ======================================================================
;;;; ====================================================================== ;;;; ======================================================================
(defvar lyskom-buffer-list nil (defvar lyskom-associated-buffer-list nil
"List of (CATEGORY . BUFFER-LIST) listing all buffers of various "List of (CATEGORY . BUFFER-LIST) listing all buffers of various
categories") categories")
(make-variable-buffer-local 'lyskom-buffer-list) (make-variable-buffer-local 'lyskom-associated-buffer-list)
(lyskom-protect-variable 'lyskom-buffer-list) (lyskom-protect-variable 'lyskom-associated-buffer-list)
(defvar lyskom-buffer-category nil (defvar lyskom-buffer-category nil
"Category of this buffer") "Category of this buffer")
...@@ -200,7 +200,7 @@ categories") ...@@ -200,7 +200,7 @@ categories")
(defun lyskom-clean-up-buffer-category (cat) (defun lyskom-clean-up-buffer-category (cat)
(let ((buffers (cdr (assq cat (lyskom-default-value 'lyskom-buffer-list)))) (let ((buffers (cdr (assq cat (lyskom-default-value 'lyskom-associated-buffer-list))))
(result nil)) (result nil))
(while buffers (while buffers
(when (buffer-live-p (car buffers)) (when (buffer-live-p (car buffers))
...@@ -210,28 +210,28 @@ categories") ...@@ -210,28 +210,28 @@ categories")
(defun lyskom-set-buffers-of-category (category buflist) (defun lyskom-set-buffers-of-category (category buflist)
(let ((tmp (assq category (lyskom-default-value 'lyskom-buffer-list)))) (let ((tmp (assq category (lyskom-default-value 'lyskom-associated-buffer-list))))
(cond (tmp (setcdr tmp buflist)) (cond (tmp (setcdr tmp buflist))
(t (lyskom-setq-default (t (lyskom-setq-default
lyskom-buffer-list lyskom-associated-buffer-list
(cons (cons category buflist) (cons (cons category buflist)
(lyskom-default-value 'lyskom-buffer-list))))))) (lyskom-default-value 'lyskom-associated-buffer-list)))))))
(defun lyskom-buffers-of-category (cat) (defun lyskom-buffers-of-category (cat)
"Return all live buffers of catgory CAT" "Return all live buffers of catgory CAT"
(lyskom-clean-up-buffer-category cat) (lyskom-clean-up-buffer-category cat)
(cdr (assq cat (lyskom-default-value 'lyskom-buffer-list)))) (cdr (assq cat (lyskom-default-value 'lyskom-associated-buffer-list))))
(defun lyskom-add-buffer-of-category (buffer category) (defun lyskom-add-buffer-of-category (buffer category)
"Add BUFFER as a buffer of category CATEGORY" "Add BUFFER as a buffer of category CATEGORY"
(let ((tmp (assq category (lyskom-default-value 'lyskom-buffer-list)))) (let ((tmp (assq category (lyskom-default-value 'lyskom-associated-buffer-list))))
(cond (tmp (setcdr tmp (cons buffer (cdr tmp)))) (cond (tmp (setcdr tmp (cons buffer (cdr tmp))))
(t (lyskom-setq-default 'lyskom-buffer-list (t (lyskom-setq-default 'lyskom-associated-buffer-list
(cons (cons category (list buffer)) (cons (cons category (list buffer))
(lyskom-default-value (lyskom-default-value
'lyskom-buffer-list))))))) 'lyskom-associated-buffer-list)))))))
(defun lyskom-get-buffer-create (category name &optional unique) (defun lyskom-get-buffer-create (category name &optional unique)
......
...@@ -82,7 +82,7 @@ is saved before executing FORMS and restored when FORMS have finished." ...@@ -82,7 +82,7 @@ is saved before executing FORMS and restored when FORMS have finished."
(unwind-protect (unwind-protect
(progn (,@ forms)) (progn (,@ forms))
(while (, sym1) (while (, sym1)
(if (car (, sym3)) (make-local-variable (car (, sym1)))) (if (car (, sym3)) (make-local-variable (car (, sym2))))
(set (car (, sym2)) (car (, sym1))) (set (car (, sym2)) (car (, sym1)))
(setplist (car (, sym2)) (car (, sym4))) (setplist (car (, sym2)) (car (, sym4)))
(setq (, sym1) (cdr (, sym1)) (setq (, sym1) (cdr (, sym1))
......
...@@ -1426,26 +1426,42 @@ and then a forward-text. ...@@ -1426,26 +1426,42 @@ and then a forward-text.
With an argument ARG the search is done over that number of texts. With an argument ARG the search is done over that number of texts.
The name of the file is read using the minibuffer and the default is kom-text." The name of the file is read using the minibuffer and the default is kom-text."
(interactive "p") (interactive "p")
(let ((buf (lyskom-get-buffer-create 'temp " *kom*-text"))
(lyskom-print-complex-dates nil)
(list-of-texts nil)
(kom-deferred-printing nil)
(name nil))
(unwind-protect
(save-excursion (save-excursion
(backward-text arg) (while (> arg 0)
(let ((p1 (point)) (backward-text 1)
(p2 (progn (if (looking-at "\\([0-9]+\\)\\s-")
(forward-text arg) (setq list-of-texts (cons (string-to-int (match-string 1))
(beginning-of-line) list-of-texts)
(point))) arg (1- arg))
(name (read-file-name (setq arg 0)))
(set-buffer buf)
(mapcar (function
(lambda (n)
(lyskom-view-text n)
(goto-char (point-max))
(insert "\n")))
list-of-texts)
(setq name (read-file-name
(lyskom-format 'save-on-file-q (lyskom-format 'save-on-file-q
(file-name-nondirectory (file-name-nondirectory
lyskom-saved-file-name)) lyskom-saved-file-name))
(file-name-directory lyskom-saved-file-name) (file-name-directory lyskom-saved-file-name)
lyskom-saved-file-name lyskom-saved-file-name
nil))) nil))
(if (file-directory-p name) (when (file-directory-p name)
(setq name (concat (file-name-as-directory name) (setq name (concat (file-name-as-directory name)
(file-name-nondirectory lyskom-saved-file-name)))) (file-name-nondirectory
(append-to-file p1 p2 lyskom-saved-file-name))))
(expand-file-name name)) (append-to-file (point-min) (point-max) (expand-file-name name))
(setq lyskom-saved-file-name name)))) (setq lyskom-saved-file-name name))
(kill-buffer buf))))
;;; ================================================================ ;;; ================================================================
......
...@@ -616,7 +616,7 @@ to see, set of call." ...@@ -616,7 +616,7 @@ to see, set of call."
lyskom-unparsed-marker lyskom-unparsed-marker
lyskom-server-info lyskom-server-info
lyskom-server-name) lyskom-server-name)
(kill-all-local-variables) (kill-all-local-variables))
(lyskom-setup-local-variables) (lyskom-setup-local-variables)
(setq lyskom-do-when-done (cons kom-do-when-done kom-do-when-done)) (setq lyskom-do-when-done (cons kom-do-when-done kom-do-when-done))
(setq lyskom-output-queues (make-vector 10 nil)) (setq lyskom-output-queues (make-vector 10 nil))
...@@ -626,7 +626,7 @@ to see, set of call." ...@@ -626,7 +626,7 @@ to see, set of call."
(setq i (1+ i)))) (setq i (1+ i))))
(setq lyskom-pending-calls nil) (setq lyskom-pending-calls nil)
(lyskom-set-mode-line (lyskom-set-mode-line
(lyskom-get-string 'not-present-anywhere)))) (lyskom-get-string 'not-present-anywhere)))
......
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