[O] [Accepted] contrib/lisp/org-elisp-symbol: Set type if symbol is defuned but not fbound

[Carsten Dominik]

Patch 962 (http://patchwork.newartisans.com/patch/962/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C8739fkpp7v.wl%25dmaus%40ictsoc.de%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [O] contrib/lisp/org-elisp-symbol: Set type if symbol is defuned but
>       not fbound
> Date: Sun, 25 Sep 2011 21:21:40 -0000
> From: David Maus <address@hidden>
> X-Patchwork-Id: 962
> Message-Id: <address@hidden>
> To: address@hidden
> Cc: address@hidden
> 
> Another small patch for org-elisp-symbol: Set the symbol type to
> "Function or command" if it is defuned but not fbound when
> `org-elisp-symbol-store-link' is called.
> 
> Best,
>   -- David
> 
> ---
> OpenPGP... 0x99ADB83B5A4478E6
> Jabber.... address@hidden
> Email..... address@hidden
> >From 09f5f322d418afe34503d8758ad123cd6c8045a0 Mon Sep 17 00:00:00 2001
> From: David Maus <address@hidden>
> Date: Sun, 25 Sep 2011 18:16:54 +0200
> Subject: [PATCH] Set symbol type if defun but symbol not fbound
> 
> * org-elisp-symbol.el (org-elisp-symbol-store-link): Set symbol type
> if defun but symbol not fbound.
> 
> If the symbol is not fbound but defuned, set type to "function or
> command".
> ---
>  contrib/lisp/org-elisp-symbol.el |    1 +
>  1 files changed, 1 insertions(+), 0 deletions(-)
> 
> diff --git a/contrib/lisp/org-elisp-symbol.el 
> b/contrib/lisp/org-elisp-symbol.el
> index 6eb8114..340272b 100644
> --- a/contrib/lisp/org-elisp-symbol.el
> +++ b/contrib/lisp/org-elisp-symbol.el
> @@ -106,6 +106,7 @@
>                         ((user-variable-p sym-name) "User variable")
>                         ((string= def "defvar") "Variable")
>                         ((string= def "defmacro") "Macro")
> +                       ((string= def "defun") "Function or command")
>                         (t "Symbol")))
>            (args (if (match-string 3)
>                      (mapconcat (lambda (a) (unless (string-match "^&" a) a))
>