emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Re: [PATCH] org-set/delete-property


From: Mikael Fornius
Subject: [Orgmode] Re: [PATCH] org-set/delete-property
Date: Fri, 12 Mar 2010 18:13:03 +0100
User-agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.1.92 (gnu/linux)

Carsten Dominik <address@hidden> writes:

> are these changes relative to the current git version, or relative to
> the state before your initial change?

They are relative to the current git version, I make a new one.

This is the change I would like to have applied if you agree:

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28febc1..417727e 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-12  Mikael Fornius  <address@hidden>
+
+       * org.el (org-set-property, org-delete-property): Do not use
+       property at cursor but prompt always.
+
 2010-03-12  Carsten Dominik  <address@hidden>
 
        * org-latex.el (org-export-latex-make-header): Fully process
diff --git a/lisp/org.el b/lisp/org.el
index a4932a2..72dfa9d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12986,8 +12986,7 @@ in the current file."
   (interactive
    (let* ((completion-ignore-case t)
          (keys (org-buffer-property-keys nil t t))
-         (prop0 (or (when (org-at-property-p) (org-match-string-no-properties 
2))
-                    (org-icompleting-read "Property: " (mapcar 'list keys))))
+         (prop0 (org-icompleting-read "Property: " (mapcar 'list keys)))
          (prop (if (member prop0 keys)
                    prop0
                  (or (cdr (assoc (downcase prop0)
@@ -13014,9 +13013,7 @@ in the current file."
   "In the current entry, delete PROPERTY."
   (interactive
    (let* ((completion-ignore-case t)
-         (prop (or (when (org-at-property-p) (org-match-string-no-properties 
2))
-                   (org-icompleting-read
-                    "Property: " (org-entry-properties nil 'standard)))))
+         (prop (org-icompleting-read "Property: " (org-entry-properties nil 
'standard))))
      (list prop)))
   (message "Property %s %s" property
           (if (org-entry-delete nil property)
Thanks!

-- 
Mikael Fornius

reply via email to

[Prev in Thread] Current Thread [Next in Thread]