Remove obsolete function
This commit is contained in:
parent
3312852701
commit
e9474bab44
1 changed files with 0 additions and 24 deletions
24
edocs.el
24
edocs.el
|
@ -141,30 +141,6 @@ etc."
|
||||||
(end-of-file nil))
|
(end-of-file nil))
|
||||||
(reverse ls))))
|
(reverse ls))))
|
||||||
|
|
||||||
(defun edocs--get-docs (type name)
|
|
||||||
"Get docs of TYPE for symbol NAME."
|
|
||||||
(let ((type (intern type))
|
|
||||||
(obj (intern name)))
|
|
||||||
(cond
|
|
||||||
((memq type '(defun define-minor-mode))
|
|
||||||
(cons (format "%s" (or (help-function-arglist obj :preserve-names)
|
|
||||||
"()"))
|
|
||||||
(documentation obj)))
|
|
||||||
((memq type '(defcustom defvar defconst defclass))
|
|
||||||
(documentation-property obj 'variable-documentation))
|
|
||||||
((eql type 'defgroup)
|
|
||||||
(documentation-property obj 'group-documentation))
|
|
||||||
((eql type 'defface)
|
|
||||||
(documentation-property obj 'face-documentation))
|
|
||||||
((eql type 'defgeneric)
|
|
||||||
(mapcar (lambda (itm)
|
|
||||||
(cons (format "%s" (cons (list (car (nth 2 itm))
|
|
||||||
(car itm))
|
|
||||||
(cdr (nth 2 itm))))
|
|
||||||
(nth 3 itm)))
|
|
||||||
(aref (plist-get (symbol-plist obj)
|
|
||||||
'eieio-method-tree) 2))))))
|
|
||||||
|
|
||||||
(defun edocs--get-type-display (type-name)
|
(defun edocs--get-type-display (type-name)
|
||||||
"Get the display text for TYPE-NAME."
|
"Get the display text for TYPE-NAME."
|
||||||
(gethash type-name edocs--symbol-type-map type-name))
|
(gethash type-name edocs--symbol-type-map type-name))
|
||||||
|
|
Loading…
Reference in a new issue