Renare kompilering, lade till Teddys länkar till info-noder, någon liten bugfix.

src/ChangeLog

+Mon Aug 18 10:15:45 1997  David Byers  <davby@ida.liu.se>
+
+	* lyskom-rest.el (find-face): Deklarerade extern.
+
+	* option-edit.el (widget-default-format-handler): Deklarerade extern.
+
+	* menus.el (set-buffer-menubar): Deklarerade extern
+	(popup-menu): Dito.
+	(toplevel): Lade till clientversion
+
+	* lyskom-buttons.el (glyph-property): Deklarerade extern.
+	(wiget-at): Dito
+	(wiget-get): Dito
+	(w3-widget-button-click): Dito
+	(w3-popup-menu): Dito
+	(Info-goto-node): Dito
+	(term-char-mode): Dito
+
+	* view-mode.el (view-major-mode): Lade till som extern fn.
+
+	* vars.el.in (lyskom-text-buttons): Lade till info-node.
+
+	* english-strings.el,swedish-strings.el (lyskom-button-actions):
+ 	Lade till info-node
+ 	(Teddy)
+
+	* lyskom-buttons.el (lyskom-button-goto-info-node): Ny funktion
+ 	(Teddy)
+	(lyskom-button-transform-text): Lade till info-node (Teddy)
+
+	* compatibility.el (buffer-live-p): Lade till.
+
 Mon Aug 11 11:03:21 1997  David Byers  <davby@ida.liu.se>
 
 	* parse.el (lyskom-parse-bitstring): Testa characters med eq, inte

src/TODO

@@ -4,6 +4,10 @@ Att g
 
 -------- Buggar
 
+    Radera inlägg borde gnälla lite om det finns markeringar.
+
+    Återse alla markerade borde gå att avbryta med nästa möte.
+
     lyskom-replace-deferred verkar inte använda lyskom-last-viewed i
     alla fall. Och den beter sig fel när man står vid prompten och
     vill bläddra bakåt.

src/commands2.el

@@ -572,6 +572,9 @@ send. If DONTSHOW is non-nil, don't display the sent message."
           (t (setq lyskom-message-string (substring lyskom-message-string 
                                                     0 size))))))
 
+(lyskom-external-function lyskom-resize-minibuffer-mode)
+(lyskom-external-function resize-minibuffer-setup)
+
 (defun lyskom-send-message-turn-off-resize-on-exit ()
   (resize-minibuffer-mode -1)
   (remove-hook 'lyskom-send-message-exit-hook

src/compatibility.el

@@ -353,6 +353,12 @@ Otherwise treat \\ in NEWTEXT string as special:
 			 newtext ""))))))
     (concat rtn-str (substring str start))))
 
+
+(lyskom-provide-function buffer-live-p (object)
+  "T of OBJECT is an editor buffer that has not been deleted."
+  (and (bufferp object)
+       (buffer-name object)))
+
 ;;; Local Variables:
 ;;; eval: (put 'lyskom-provide-macro 'lisp-indent-hook 2)
 ;;; eval: (put 'lyskom-provide-function 'lisp-indent-hook 2)

src/english-strings.el

@@ -2414,6 +2414,11 @@ Lists etc.   :  [INS] Add a line   [DEL] Remove a line   [*] Modify")
      (("Open" . lyskom-button-open-url)
       ("Copy" . lyskom-button-copy-url))
      nil)
+    (info-node 
+     info-node-text
+     lyskom-button-goto-info-node
+     (("Open" . lyskom-button-goto-info-node))
+     nil)
     (email
      email-text
      lyskom-button-open-email

src/envcheck.el

@@ -164,14 +164,15 @@ library from http://www.dina.kvl.dk/~abraham/custom/")
 
     (catch 'terminate
       (if have-w3
-          (load-library "w3")
-          (unless (fboundp 'w3-region)
-            (message "
+          (progn
+            (load-library "w3")
+            (unless (fboundp 'w3-region)
+              (message "
 --- Antique version of w3 detected (WARNING)
 
 You have a version of w3 installed that is of no use to LysKOM. Although
 LysKOM will work, it will be unable to format articles containing HTML.
-You may want to upgrade your w3 to version 3.something."))
+You may want to upgrade your w3 to version 3.something.")))
         (message "
 --- Didn't find w3 at all (WARNING)
 

src/lyskom-buttons.el

 ;;;;;
-;;;;; $Id$
+;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
 ;;;;;
 ;;;;; This file is part of the LysKOM server.
@@ -31,6 +31,19 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+(lyskom-external-function glyph-property)
+(lyskom-external-function widget-at)
+(lyskom-external-function widget-get)
+(lyskom-external-function w3-widget-button-click)
+(lyskom-external-function w3-popup-menu)
+(lyskom-external-function Info-goto-node)
+(lyskom-external-function term-char-mode)
+
+
 (defun lyskom-menu-selection nil
   "Variable used to work around the handling of menus in XEmacs.")
 
@@ -120,7 +133,8 @@ this-command-keys."
                    (and parent (widget-get parent ':href))
                    (and widget (widget-get widget 'href))
                    (and parent (widget-get parent 'href)))))
-    (cond (href (w3-widget-button-click event))
+    (cond (href (require 'w3)
+                (w3-widget-button-click event))
           ((and do-default
                 (or (null pos)
                     (null (get-text-property pos 'lyskom-button-type))))
@@ -148,7 +162,8 @@ If there is no active area, then do something else."
                    (and parent (widget-get parent ':href))
                    (and widget (widget-get widget 'href))
                    (and parent (widget-get parent 'href)))))
-    (cond (href (w3-popup-menu event))
+    (cond (href (require 'w3)
+                (w3-popup-menu event))
           ((and pos (get-text-property pos 'lyskom-button-type))
            (lyskom-button-menu pos event))
           (t (lyskom-background-menu pos event)))))
@@ -298,6 +313,12 @@ lyskom-text-buttons. Returns the modified string."
                                           url
                                           (lyskom-button-get-face el))))
 
+ 	       ((eq (elt el 1) 'info-node)
+ 		(lyskom-generate-button 'info-node
+ 					(lyskom-button-get-arg el text)
+ 					(lyskom-button-get-text el text)
+ 					(lyskom-button-get-face el)))
+               
                ((eq (elt el 1) 'email)
                 (lyskom-generate-button 'email
                                         nil
@@ -640,7 +661,23 @@ This is a LysKOM button action."
     (goto-char (point-max))
     (funcall (elt url-manager 3) url url-manager)))
 
+ 
+ 
+;;;
+;;;	Info node button
+;;;
 
+(defun lyskom-button-goto-info-node (buf arg text)
+  "In the LysKOM buffer BUF, open ARG as an Info node, and ignore TEXT.
+This is a LysKOM button action."
+  (when (not (fboundp 'Info-goto-node))
+    (autoload 'Info-goto-node "info"
+      "Go to info node named NAME.  Give just NODENAME or (FILENAME)NODENAME."
+      t))
+  (setq arg (replace-in-string arg "\n" " " t))
+  (setq arg (replace-in-string arg " +" " " t))
+  (Info-goto-node arg))
+ 
 
 ;;;
 ;;;	LysKOM URL Management

src/lyskom-rest.el

@@ -81,6 +81,8 @@
       (concat lyskom-clientversion-long
 	      "$Id$\n"))
 
+(lyskom-external-function find-face)
+
 
 ;;;; ================================================================
 ;;;;                             New errors.

src/macros.el

@@ -160,8 +160,7 @@ All the forms in BIND-LIST are evaluated before and symbols are bound."
 ;;; compiler warnings.
 ;;;
 
-;; (eval-when-compile (defvar lyskom-expected-unresolved-functions nil))
-(defvar lyskom-expected-unresolved-functions nil)
+(eval-and-compile (defvar lyskom-expected-unresolved-functions nil))
 
 (defmacro lyskom-external-function (fn)
   (` (eval-when-compile

src/menus.el

@@ -30,6 +30,14 @@
 ;;;;
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+(lyskom-external-function set-buffer-menubar)
+(lyskom-external-function popup-menu)
+(lyskom-external-function add-submenu)
+
 
 (defvar lyskom-current-menu-category nil
   "Category of menus currently used in buffer")

src/option-edit.el

@@ -35,6 +35,9 @@
       (concat lyskom-clientversion-long
 	      "$Id$\n"))
 
+(lyskom-external-function widget-default-format-handler)
+(lyskom-external-function popup-mode-menu)
+
 ;;; ======================================================================
 ;;; Require Per Abrahamsens widget package, version 0.991 or later.
 ;;;

src/parse.el

@@ -123,7 +123,7 @@ Signal lyskom-protocol-error if the next token is not a number."
     (goto-char (point-max))
     (signal 'lyskom-parse-incomplete nil))
    (t (signal 'lyskom-protocol-error
-              (list ref-no "Expected number, got " (lyskom-string-to-parse)))))
+              (list "Expected number, got " (lyskom-string-to-parse)))))
 
 )
 

src/vars.el.in

@@ -521,6 +521,11 @@ A number means wrap articles shorter than the number (in bytes)."
     ("<(?text *\\([0-9]+\\)[^0-9]*)?>" text 0 1 nil)
     ("<(?person *\\([0-9]+\\)[^0-9]*)?>" pers 0 1 nil)
 
+    ;; Info node reference
+
+    ("\\*Note[ \n\t]+\\([^:]*\\):\\([^.,\t]*\\)[.,\t]" 
+     info-node 1 2 kom-url-face)
+
     )
   "List of buttons to install in the text mass of LysKOM objects. Each element is
 a list consisting of REGEXP TYPE BUTTON-MATCH BUTTON-ARG-MATCH FACE.

src/view-mode.el

@@ -40,6 +40,8 @@
 
 (eval-when-compile (defvar view-mode-map nil))
 
+(lyskom-external-function view-major-mode)
+
 (defun lyskom-view-base-mode ()
   (cond ((fboundp 'view-major-mode) (view-major-mode))
         ((assq 'view-mode minor-mode-alist)