From 79628eff1ea087cddf4430b5f2184e23875edd6f Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 6 Nov 2009 09:40:55 +0100 Subject: [PATCH] Minor fixes --- lisp/org-id.el | 14 ++++++++------ lisp/org-mobile.el | 2 +- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/org-id.el b/lisp/org-id.el index e5e539107..277472305 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -437,12 +437,14 @@ When CHECK is given, prepare detailed information about duplicate IDs." (if (member id found) (progn (message "Duplicate ID \"%s\", also in file %s" - id (car (delq - nil - (mapcar - (lambda (x) - (if (member id (cdr x)) (car x))) - reg)))) + id (or (car (delq + nil + (mapcar + (lambda (x) + (if (member id (cdr x)) + (car x))) + reg))) + (buffer-file-name))) (when (= ndup 0) (ding) (sit-for 2)) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index cdcba659c..e6159d3c5 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -624,7 +624,7 @@ If BEG and END are given, only do this in that region." (not (member (marker-buffer id-pos) buf-list))) (org-mobile-timestamp-buffer (marker-buffer id-pos)) (push (marker-buffer id-pos) buf-list)) - + (if (or (not id-pos) (stringp id-pos)) (progn (goto-char (+ 2 (point-at-bol))) -- 2.11.4.GIT