Selaa lähdekoodia

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
David Maus 13 vuotta sitten
vanhempi
commit
fe77c66741
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      contrib/lisp/org-elisp-symbol.el

+ 2 - 2
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))