Commit c85eb6e8 authored by Linus Tolke's avatar Linus Tolke
Browse files

Small fixes for queues.

parent 85b827e2
Mon Jul 27 01:14:24 1992 Linus Tolke Y (linus@lysator)
* clienttypes.el (lyskom-stack-isempty): New function.
(lyskom-queue-enter): Replaced docstring.
Sun Jul 26 18:10:38 1992 Inge Wallin (inge@lysator)
* cache.el: cleaned up handling of the who info buffer slightly.
......@@ -321,7 +321,7 @@ element will be the new first element."
(defun lyskom-queue-enter (queue element)
"Enter second arg ELEMENT last in the first arg QUEUE."
"Enter last into the queue QUEUE the ELEMENT."
(let ((elementcell (cons element nil)))
(if (null (car (cdr queue)))
; QUEUE is empty
......@@ -432,6 +432,11 @@ The element last pushed is first in the list."
(cdr stack))
(defun lyskom-stack-isempty (stack)
"Returns non-nil if the STACK is empty."
(not (cdr stack)))
;;; ================================================================
;;; who-buffer-info
Supports Markdown
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