Browse Source

Remove issues that caused compiler warnings.

Carsten Dominik 16 years ago
parent
commit
63acb9f06c
2 changed files with 2 additions and 2 deletions
  1. 1 1
      lisp/org-id.el
  2. 1 1
      lisp/org.el

+ 1 - 1
lisp/org-id.el

@@ -485,7 +485,7 @@ When CHECK is given, prepare detailed iinformation about duplicate IDs."
     (maphash
      (lambda (k v)
        (if (setq x (member v res))
-	   (push k (cdr x))
+	   (setcdr x (cons k (cdr x)))
 	 (push (list v k) res)))
      hash)
     res))

+ 1 - 1
lisp/org.el

@@ -7461,7 +7461,7 @@ on the system \"/user@host:\"."
 (defun org-get-refile-targets (&optional default-buffer)
   "Produce a table with refile targets."
   (let ((entries (or org-refile-targets '((nil . (:level . 1)))))
-	targets txt re files f desc descre fast-path-p)
+	targets txt re files f desc descre fast-path-p level)
     (message "Getting targets...")
     (with-current-buffer (or default-buffer (current-buffer))
       (while (setq entry (pop entries))