ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
This commit is contained in:
David Maus 2011-09-01 06:49:29 +02:00 committed by Bastien Guerry
parent 09986fa395
commit fe77c66741
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/org-elisp-symbol.el
View File

@ -104,8 +104,8 @@
(stype (cond ((commandp sym-name) "Command") (stype (cond ((commandp sym-name) "Command")
((functionp sym-name) "Function") ((functionp sym-name) "Function")
((user-variable-p sym-name) "User variable") ((user-variable-p sym-name) "User variable")
((eq def "defvar") "Variable") ((string= def "defvar") "Variable")
((eq def "defmacro") "Macro") ((string= def "defmacro") "Macro")
(t "Symbol"))) (t "Symbol")))
(args (if (match-string 3) (args (if (match-string 3)
(mapconcat (lambda (a) (unless (string-match "^&" a) a)) (mapconcat (lambda (a) (unless (string-match "^&" a) a))