Skip to content
GitLab
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
dd6bebd0
Commit
dd6bebd0
authored
Aug 19, 1991
by
Per Cederqvist
Browse files
Cleanup.
parent
f70ba5d3
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
dd6bebd0
No preview for this file type
src/clienttypes.el
View file @
dd6bebd0
...
...
@@ -198,38 +198,6 @@ Returns t if there was a conference to insert this text into."
inserted
))
; (defun read-list-delete-text (text-no rlist)
; "Delete all occurances of TEXT-NO from RLIST.
; RLIST is a list of read-info.
; Entries of the type REVIEW, REVIEW-TREE or REVIEW-MARK are not changed
; except if they were empty in which case they are removed."
; (cond
; ((null rlist) nil) ;We're ready.
; ((atom (car rlist)) ;Skip the dummy.
; (setcdr rlist
; (read-list-delete-text text-no (cdr rlist)))
; rlist)
; (t
; (cond
; ((let ((type (read-info->type (car rlist))))
; (or (eq type 'REVIEW)
; (eq type 'REVIEW-TREE)
; (eq type 'REVIEW-MARK)))
; (setcdr rlist
; (read-list-delete-text text-no (cdr rlist))))
; (t
; (delq text-no (read-info->text-list (car rlist)))))
;
; ;; Delete this element from RLIST if the text-list became or was empty.
; (if (null (cdr (read-info->text-list (car rlist))))
; (read-list-delete-text text-no (cdr rlist))
; (setcdr rlist
; (read-list-delete-text text-no (cdr rlist)))
; rlist))))
; non-recursive version
(
defun
read-list-delete-text
(
text-no
rlist
)
"Destructively delete all occurances of TEXT-NO from RLIST.
RLIST is a list of read-info.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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