Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
372e0ed0
Commit
372e0ed0
authored
Aug 18, 1997
by
David Byers
Browse files
Renare kompilering, lade till Teddys länkar till info-noder, någon liten bugfix.
parent
1405bbec
Changes
15
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
372e0ed0
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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
;;;;;
;;;;
;
$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
View file @
372e0ed0
...
...
@@ -81,6 +81,8 @@
(
concat
lyskom-clientversion-long
"$Id$\n"
))
(
lyskom-external-function
find-face
)
;;;; ================================================================
;;;; New errors.
...
...
src/macros.el
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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/swedish-strings.el
View file @
372e0ed0
No preview for this file type
src/vars.el.in
View file @
372e0ed0
...
...
@@ -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
View file @
372e0ed0
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment