No commit message

No commit message

src/ChangeLog

+Sat Nov 30 18:22:43 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* commands1.el (lyskom-change-pres-or-motd-2): Gr presentationen
+	en kommentar till den frra presentationen.
+
+Fri Nov 29 14:50:11 1996  David Kgedal  <davidk@lysator.liu.se>
+
+	* startup.el (kom-start-anew): Stt inte om lyskom-pers-no om man
+ 	avbrt under lsenordsinmatningen.
+
 Mon Nov 11 10:06:28 1996  David Kgedal  <davidk@lysator.liu.se>
 
 	* parse.el (lyskom-parse-bitstring): Gjorde inte rtt nr strngen

src/TODO

@@ -31,10 +31,6 @@ parallella prefetcher p
 
     kom-recover (antagligen lyskom-refetch) är en no-op.
 
-    Dubbla prefetcher kan vara väldigt förvirrande. Om man t.ex. gör
-    endast i ett möte (säg IÅM) innan det prefetchas får man två
-    parallella prefetcher på samma möte.
-
     Om man går till ett möte som inte prefetchats och inte har några
     inlägg blir promten fel, och man får ett felmeddelande.
 

src/command.el

@@ -111,11 +111,20 @@
 (defun lyskom-read-extended-command ()
   "Reads and returns a command"
   (let* ((completion-ignore-case t)
+	 (minibuffer-setup-hook minibuffer-setup-hook)
 	 (alternatives (mapcar (function (lambda (pair)
 					   (cons (cdr pair) (car pair))))
 			       (lyskom-get-strings lyskom-commands
 						   'lyskom-command)))
-	 (name (completing-read (lyskom-get-string 'extended-command)
+	 (name nil))
+    ;; (add-hook 'minibuffer-setup-hook
+    ;; 		 (function
+    ;; 		  (lambda ()
+    ;; 		    (let ((table (make-char-table 'case-table)))
+    ;; 		      (set-char-table-parent table (current-case-table))
+    ;; 		      (aset table ?\} 345)
+    ;; 		      (set-case-table table)))))
+    (setq name (completing-read (lyskom-get-string 'extended-command)
 				alternatives 
 				;; lyskom-is-administrator is buffer-local and
 				;; must be evalled before the call to 
@@ -128,7 +137,7 @@
 				     (lyskom-ok-command
 				      alternative
 				      (, lyskom-is-administrator))))
-				t nil)))
+				t nil))
     (cdr (assoc name alternatives))))
 
 (defun lyskom-start-of-command (function &optional may-interrupt)