Commit 372e0ed0 authored by David Byers's avatar David Byers
Browse files

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

parent 1405bbec
Mon Aug 18 10:15:45 1997 David Byers <>
* 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.
* (lyskom-text-buttons): Lade till info-node.
* english-strings.el,swedish-strings.el (lyskom-button-actions):
Lade till info-node
* lyskom-buttons.el (lyskom-button-goto-info-node): Ny funktion
(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 <>
* parse.el (lyskom-parse-bitstring): Testa characters med eq, inte
......@@ -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.
......@@ -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
......@@ -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)
......@@ -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))
(("Open" . lyskom-button-goto-info-node))
......@@ -164,14 +164,15 @@ library from")
(catch 'terminate
(if have-w3
(load-library "w3")
(unless (fboundp 'w3-region)
(message "
(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)
;;;;; $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
(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."
(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
......@@ -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."
(setq arg (replace-in-string arg "\n" " " t))
(setq arg (replace-in-string arg " +" " " t))
(Info-goto-node arg))
;;; LysKOM URL Management
......@@ -81,6 +81,8 @@
(concat lyskom-clientversion-long
(lyskom-external-function find-face)
;;;; ================================================================
;;;; New errors.
......@@ -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
......@@ -30,6 +30,14 @@
(setq lyskom-clientversion-long
(concat lyskom-clientversion-long
(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")
......@@ -35,6 +35,9 @@
(concat lyskom-clientversion-long
(lyskom-external-function widget-default-format-handler)
(lyskom-external-function popup-mode-menu)
;;; ======================================================================
;;; Require Per Abrahamsens widget package, version 0.991 or later.
......@@ -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)))))
No preview for this file type
......@@ -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
......@@ -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)
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