Deleted conlanging//find-elem-in-list
Removed unused function
This commit is contained in:
parent
3e27453523
commit
b9fff85970
13
funcs.el
13
funcs.el
@ -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 ;
|
||||||
|
Reference in New Issue
Block a user