summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Maus <dmaus@ictsoc.de>2011-09-01 06:49:29 +0200
committerBastien Guerry <bzg@altern.org>2011-09-06 18:11:55 +0200
commitfe77c6674194e0f7e16adaa33d01b48990164fd2 (patch)
tree5cbbe4d70f368781c86e326d9284ae94335a6bf5
parent09986fa3954ac7875158219539c32e1d80d74ef3 (diff)
downloadorg-mode-fe77c6674194e0f7e16adaa33d01b48990164fd2.tar.gz
Use `string=' to compare strings
* org-elisp-symbol.el (org-elisp-symbol-store-link): Use `string=' to compare strings. (let ((foo "foo")) (eq foo "foo")) => nil
-rw-r--r--contrib/lisp/org-elisp-symbol.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-elisp-symbol.el b/contrib/lisp/org-elisp-symbol.el
index e614e97..6eb8114 100644
--- a/contrib/lisp/org-elisp-symbol.el
+++ b/contrib/lisp/org-elisp-symbol.el
@@ -104,8 +104,8 @@
(stype (cond ((commandp sym-name) "Command")
((functionp sym-name) "Function")
((user-variable-p sym-name) "User variable")
- ((eq def "defvar") "Variable")
- ((eq def "defmacro") "Macro")
+ ((string= def "defvar") "Variable")
+ ((string= def "defmacro") "Macro")
(t "Symbol")))
(args (if (match-string 3)
(mapconcat (lambda (a) (unless (string-match "^&" a) a))