瀏覽代碼

org-mobile: Fix code typo

* lisp/org-mobile.el (org-mobile-create-index-file): Fix code typo.

Reported-by: Martin Leduc <ldcmrtn@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/108193>
Nicolas Goaziou 8 年之前
父節點
當前提交
41c0f509c6
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org-mobile.el

+ 2 - 2
lisp/org-mobile.el

@@ -463,8 +463,8 @@ agenda view showing the flagged items."
       (when (file-exists-p (expand-file-name
 			    org-mobile-directory "agendas.org"))
 	(insert "* [[file:agendas.org][Agenda Views]]\n"))
-      (pcase-dolist (`(,file . ,link-name) files-alist)
-	(insert (format "* [[file:%s][%s]]\n" file link-name)))
+      (pcase-dolist (`(,_ . ,link-name) files-alist)
+	(insert (format "* [[file:%s][%s]]\n" link-name link-name)))
       (push (cons org-mobile-index-file (md5 (buffer-string)))
 	    org-mobile-checksum-files))
     (when org-mobile-use-encryption