From e9474bab448771c360d70746b2f0c71a3d73644d Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 26 Jan 2014 01:31:39 +0100 Subject: [PATCH] Remove obsolete function --- edocs.el | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/edocs.el b/edocs.el index 2df2807..9db7800 100644 --- a/edocs.el +++ b/edocs.el @@ -141,30 +141,6 @@ etc." (end-of-file nil)) (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) "Get the display text for TYPE-NAME." (gethash type-name edocs--symbol-type-map type-name))