Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
3a58dee9
Commit
3a58dee9
authored
May 11, 1992
by
Linus Tolke Y
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
the textpointers datatype removed
parent
9f6439ef
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
11 additions
and
87 deletions
+11
-87
src/ChangeLog
src/ChangeLog
+8
-0
src/cache.el
src/cache.el
+2
-11
src/clienttypes.el
src/clienttypes.el
+0
-71
src/view-text.el
src/view-text.el
+1
-5
No files found.
src/ChangeLog
View file @
3a58dee9
Mon May 11 03:50:07 1992 Linus Tolke Y (linus@robin)
* clienttypes.el, cache.el, view-text.el (textpointers): removed
the special pointer-representation of the texts. They are now
deleted from the cache when read.
Mon May 4 02:38:59 1992 Linus Tolke Y (linus@robert)
* Distribuerat version 0.34.5 03:06
* cache.el (lyskom-set-who-info-buffer-2): Use a new insert
function that converts the data in the who-info buffer according
to the value of kom-emacs-knows-iso-8859-1.
...
...
src/cache.el
View file @
3a58dee9
...
...
@@ -104,19 +104,10 @@
(
defun
cache-get-text
(
text-no
)
"Get text for textno TEXT-NO, or nil if nothing is cached.
This is a special case:
The entry could be a text or a textpointers"
"Get text for textno TEXT-NO, or nil if nothing is cached."
(
let
((
tx
(
cache-assoc
text-no
lyskom-text-mass-cache
)))
(
cond
((
lyskom-text-p
tx
)
tx
)
((
lyskom-textpointers-p
tx
)
(
lyskom-create-text
(
textpointers->text-no
tx
)
(
concat
(
buffer-substring
(
textpointers->start-subject
tx
)
(
textpointers->end-subject
tx
))
(
buffer-substring
(
textpointers->start-text
tx
)
(
textpointers->end-text
tx
))))))))
((
lyskom-text-p
tx
)
tx
))))
(
defun
cache-add-text
(
text
)
...
...
src/clienttypes.el
View file @
3a58dee9
...
...
@@ -318,77 +318,6 @@ element will be the new first element."
read-list
)
;;; ================================================================
;;; textpointers
;;; Constructor:
(
defun
lyskom-create-textpointers
(
text-no
start-subject
end-subject
start-text
end-text
)
"Create a textpointers from all parameters."
(
cons
'TEXTPOINTERS
(
vector
text-no
start-subject
end-subject
start-text
end-text
)))
;;; Selectors:
(
defun
textpointers->text-no
(
textpointers
)
"Get text-no from textpointers."
(
elt
(
cdr
textpointers
)
0
))
(
defun
textpointers->start-subject
(
textpointers
)
"Get start-subject from textpointers."
(
elt
(
cdr
textpointers
)
1
))
(
defun
textpointers->end-subject
(
textpointers
)
"Get end-subject from textpointers."
(
elt
(
cdr
textpointers
)
2
))
(
defun
textpointers->start-text
(
textpointers
)
"Get start-text from textpointers."
(
elt
(
cdr
textpointers
)
3
))
(
defun
textpointers->end-text
(
textpointers
)
"Get end-text from textpointers."
(
elt
(
cdr
textpointers
)
4
))
;;; Modifiers:
(
defun
set-textpointers->text-no
(
textpointers
newval
)
"Set text-no in textpointers to NEWVAL."
(
aset
(
cdr
textpointers
)
0
newval
))
(
defun
set-textpointers->start-subject
(
textpointers
newval
)
"Set start-subject in textpointers to NEWVAL."
(
aset
(
cdr
textpointers
)
1
newval
))
(
defun
set-textpointers->end-subject
(
textpointers
newval
)
"Set end-subject in textpointers to NEWVAL."
(
aset
(
cdr
textpointers
)
2
newval
))
(
defun
set-textpointers->start-text
(
textpointers
newval
)
"Set start-text in textpointers to NEWVAL."
(
aset
(
cdr
textpointers
)
3
newval
))
(
defun
set-textpointers->end-text
(
textpointers
newval
)
"Set end-text in textpointers to NEWVAL."
(
aset
(
cdr
textpointers
)
4
newval
))
;;; Predicate:
(
defun
lyskom-textpointers-p
(
object
)
"Return t if OBJECT is a textpointers."
(
eq
(
car-safe
object
)
'TEXTPOINTERS
))
;;; ================================================================
;;; A simple queue
...
...
src/view-text.el
View file @
3a58dee9
...
...
@@ -288,8 +288,6 @@ recipients to it that the user is a member in."
"Print a text. The header must already be printed.
Print an error message if TEXT-STAT or TEXT is nil.
Mark the text as read if (and only if) MARK-AS-READ is non-nil.
If the text is represented by a text type in the cache then this is substituted
by a textpointers type.
Args: TEXT-STAT TEXT MARK-AS-READ TEXT-NO."
(
cond
((
or
(
null
text
)
...
...
@@ -322,9 +320,7 @@ Args: TEXT-STAT TEXT MARK-AS-READ TEXT-NO."
t2
(
point-max
))
(
setq
lyskom-current-subject
""
)))
(
if
(
lyskom-text-p
(
cache-get-text
(
text->text-no
text
)))
(
cache-add-text
(
lyskom-create-textpointers
(
text->text-no
text
)
s1
s2
t1
t2
)))
(
cache-del-text
(
text->text-no
text
)))
(
sit-for
0
)
(
lyskom-insert
(
format
(
if
kom-dashed-lines
...
...
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