From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marco Wahl Subject: [PATCH] org: Liberate org-property-action Date: Thu, 23 Mar 2017 00:47:03 +0100 Message-ID: <84d1d8ho20.fsf@tm6592> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55674) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cqpyQ-000443-AH for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 19:47:27 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cqpyM-00023x-EI for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 19:47:26 -0400 Received: from [195.159.176.226] (port=55575 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cqpyM-00023c-7h for emacs-orgmode@gnu.org; Wed, 22 Mar 2017 19:47:22 -0400 Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1cqpyA-0004Wz-0A for emacs-orgmode@gnu.org; Thu, 23 Mar 2017 00:47:10 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi! This is a simple suggestion to improve function `org-property-action'. Currently `org-property-action' errors when 'not at a property'. But this is unnecessary AFAICS. Without the restriction one can use the function to control any property inclusive setting the very first property. Do I miss something (again)? Best regards Marco --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-org-Liberate-org-property-action.patch >From 83805606e630caf1ac47d0662b1e58df01441e3c Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Thu, 23 Mar 2017 00:28:53 +0100 Subject: [PATCH] org: Liberate org-property-action * lisp/org.el (org-property-action): Remove unnecessary restriction for property action. --- lisp/org.el | 1 - 1 file changed, 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 126318aa3..d122184c7 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15535,7 +15535,6 @@ See `org-property-re' for match data, if applicable." (defun org-property-action () "Do an action on properties." (interactive) - (unless (org-at-property-p) (user-error "Not at a property")) (message "Property Action: [s]et [d]elete [D]elete globally [c]ompute") (let ((c (read-char-exclusive))) (cl-case c -- 2.12.0 --=-=-=--