Deleted conlanging//find-elem-in-list

Removed unused function
This commit is contained in:
Lucien Cartier-Tilet 2020-03-25 12:27:56 +01:00
parent 3e27453523
commit b9fff85970
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -92,18 +92,7 @@ with."
t-correspondance-table))) t-correspondance-table)))
(delete-region beg end) (delete-region beg end)
(goto-char beg) (goto-char beg)
(insert regionp))) (insert new-regionp)))
(defun conlanging//find-elem-in-list (t-elem t-list)
"In a t-list containing lists, returns the element of `t-list'
whose first element equals `t-elem'"
(if t-list
(if (string= (caar t-list)
t-elem)
(car t-list)
(conlanging//find-elem-in-list t-elem
(cdr t-list)))
nil))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Mattér ; ; Mattér ;