@@ -673,7 +673,7 @@ EXTRA-MODES
673673 &key &allow-other-keys )
674674 " Finalize buffer.
675675Return the created buffer."
676- (buffers -set (id buffer) buffer)
676+ (buffer -set (id buffer) buffer)
677677 buffer)
678678
679679(export-always ' update-document-model)
@@ -707,7 +707,7 @@ Return the created buffer."
707707 (setf (document-model buffer) dom)))))
708708
709709(defun dead-buffer-p (buffer)
710- (not (buffers -get (id buffer))))
710+ (not (buffer -get (id buffer))))
711711
712712(defmethod document-model ((buffer buffer))
713713 " A wraparound accessor to BUFFER's `document-model'.
@@ -847,11 +847,11 @@ The notion of first element is dictated by `containers:first-item'."
847847 collect (status-buffer window)
848848 collect (message-buffer window))))))
849849
850- (defun buffers -get (id)
850+ (defun buffer -get (id)
851851 " Get the `buffer' with the corresponding ID."
852852 (gethash id (slot-value *browser* ' buffers)))
853853
854- (defun buffers -set (id buffer)
854+ (defun buffer -set (id buffer)
855855 " Ensure that entry ID->BUFFER belongs to `buffers' hash table."
856856 (when *browser*
857857 ; ; Mutate state of the hash table.
@@ -860,7 +860,7 @@ The notion of first element is dictated by `containers:first-item'."
860860 ; ; update the status buffer.
861861 (setf (buffers *browser* ) (buffers *browser* ))))
862862
863- (defun buffers -delete (id)
863+ (defun buffer -delete (id)
864864 " Remove `buffers' hash table entry matching key ID.
865865
866866This is a low-level function. See `buffer-delete' and `delete-buffer'."
0 commit comments