From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id 2Ca+AnlFaWFINAAAgWs5BA (envelope-from ) for ; Fri, 15 Oct 2021 11:10:17 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id GJVGOXhFaWH6JAAAbx9fmQ (envelope-from ) for ; Fri, 15 Oct 2021 09:10:16 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id F26E732A5F for ; Fri, 15 Oct 2021 11:10:12 +0200 (CEST) Received: from localhost ([::1]:45508 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mbJEA-000565-6V for larch@yhetil.org; Fri, 15 Oct 2021 05:10:11 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58632) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mbIy5-00010L-Ct for emacs-orgmode@gnu.org; Fri, 15 Oct 2021 04:53:34 -0400 Received: from mail-lf1-x12e.google.com ([2a00:1450:4864:20::12e]:40861) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mbIxY-0000tM-4n; Fri, 15 Oct 2021 04:53:32 -0400 Received: by mail-lf1-x12e.google.com with SMTP id y15so38793311lfk.7; Fri, 15 Oct 2021 01:52:57 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=6ThWztXOEPg0pdqUK4vyaLpWjRjrNml0Y8NCTdSSTi0=; b=VdTQqXy6X13Tz75NOO6YX1eeaQ3xDGRKbDeqFG+jCvQJ/Kszfiw8xotB5okAsGX+Y+ Z8drxk9eJnzK0vZaRdEfPo7+Mwrye9p22/YPTjJV5Msx3aWdZt99n+VYGWuX1SLlgvfJ KV0hRz7SoxWyW/ZjsxebEDUAFx7uJ+m86n40KRokoh81owzM6iNxPSw0O++zQli+hTbZ PuxXm3EHSrwiCK3QLkODRVGayoCBa2wmw4RwOI6zr8k8haQj5fYECHybb4u9VUqHSurF oni2wZVJ//4Jj8MAHkdTFEcNodRGwrvslB549GDqFkE4y+Wqvmt7KQzXa/HE2ScJbMml Kxhw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=6ThWztXOEPg0pdqUK4vyaLpWjRjrNml0Y8NCTdSSTi0=; b=kdi3rpkY7zYZmG96QLzNGtokj+MUnQ/HEnmduGal1AQLJKqZrkI7DL7XaRUYBQH25Y 8iHESt4EgXWoK+xoL4SalrX6iCMjOZffkvZgAYejPSp70qKmOxJyYHE+0JJJ8mZScheu 6XydqzL4amMViGX98s7vKLT2ID4D3B3SXlds0rxsbbeapQ3zcjWhDp+9cPjAeGCC2Een RsMIaQ7F7FZN2wWsMaY1xZmAdjQDHxIx3+lUJqHpxU2LlHDFHKJzGY+CHleY4deuy9HB oeAKyPnqb+OOcu9LLbeOocne6/wpi0X0YY3YRWm/oiUvlVDlQZo806BXX2CInHufVPkK uAqQ== X-Gm-Message-State: AOAM533SB76WlwGwxpO0f1IKzbZr6nD4oKEckgxrUm7K5YUUPj0s+kM5 Vf2wzhYjl0jHPlbOM0c/F8uyWW6moqpiLw== X-Google-Smtp-Source: ABdhPJwRAj318n81+JW3cyxRPtQdZ8FC9K/r611SdBr75RoHITuFObNYSLlDfvhHNYveidM8FAM7Ng== X-Received: by 2002:a2e:6818:: with SMTP id c24mr11363890lja.471.1634287975608; Fri, 15 Oct 2021 01:52:55 -0700 (PDT) Received: from guix-xps13 (95-29-46-119.broadband.corbina.ru. [95.29.46.119]) by smtp.gmail.com with ESMTPSA id q14sm447212lfp.102.2021.10.15.01.52.51 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 15 Oct 2021 01:52:51 -0700 (PDT) From: =?utf-8?Q?Andr=C3=A9_A=2E_Gomes?= To: Bastien Subject: Re: [PATCH] Rename headline to heading References: <871r786qfe.fsf@gmail.com> <87pmsv4rfy.fsf@bzg.fr> <87zgruw8wx.fsf@gmail.com> <87ee953zsm.fsf@bzg.fr> Date: Fri, 15 Oct 2021 11:52:49 +0300 In-Reply-To: <87ee953zsm.fsf@bzg.fr> (Bastien's message of "Fri, 01 Oct 2021 10:38:33 +0200") Message-ID: <87lf2u8yam.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=2a00:1450:4864:20::12e; envelope-from=andremegafone@gmail.com; helo=mail-lf1-x12e.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_FILL_THIS_FORM_SHORT=0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: emacs-orgmode@gnu.org Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1634289014; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=38g8kNcvBilpXwVYeFUm+Ts4cOI56YJ90GDtNkW08vQ=; b=RrYfGtEZjzB2ELVOqRCaKN57SN9oGEgyT93zd2caj7HTeCxlXC2RLhhJ9mEzxEQaxT27OD nApxmy9fwGbU0lWh/f0hEQl1vMu0ejeHdEN52LKKE1VJNMT3/07B3HaJcgF5llucb1CX0b Yupy9ZcSnva70aggFM1HnGwOhzy8SZ0KzdGa/N3c+fDNOF2SCDr6l/wn0wyfMIVlDDfDDI J+8xkCvQgqyuoQ6/aSDtwXZ7xBpHDSbdzjvI9BES8VXFKERhReiKVtMGo2Q7Ub/mzWfAha L+o0SCnfFu7gANUA5qXwXtVLF5AhKWltO2M85Nz+wUWmuTp4q0M4mFNXsbihvg== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1634289014; a=rsa-sha256; cv=none; b=S03Kb6cuHsJ9t1dZ5+rff34QCKwm2nguI71byaQOrJX2MeT5wobcnS5kCLNieSPd5fvDZ4 HW/0tvQ9y0fKFBM29lX8759ZibYebbedGr9VleUL14gxlQgKj91U3dteriqfepopPr1y/t +q1yHGudeI/WSyUyWbLtCyHtGhY8yWKGoSKTwShm65/ySknoKc/wyJkfldd+oKQAnk4ON+ qvPv6DamF3lVK3U4b3MCBcWbP9As0Np2l5IaiclVG8zJHmWOWViWfTczTcP2wYIe/RFWkN MDwbW57NflRr+bbjju9FbikD1XSoS7xjVSGVxZe5UhIs0U7T/3QBU6GcOuzAkg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("body hash did not verify") header.d=gmail.com header.s=20210112 header.b=VdTQqXy6; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Spam-Score: -1.22 Authentication-Results: aspmx1.migadu.com; dkim=fail ("body hash did not verify") header.d=gmail.com header.s=20210112 header.b=VdTQqXy6; dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: F26E732A5F X-Spam-Score: -1.22 X-Migadu-Scanner: scn0.migadu.com X-TUID: 052eiIeqgrSK --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Bastien writes: > [...] plan I suggested: 1) only documentation-fixes then 2) internals > with no impact on the user then 3) internals with impact on the user. Hi Bastien and All, This is a first attempt towards the goal. Point number 1 has been achieved. My only question is if etc/ORG-NEWS should also have all the references renamed from headline to heading. Point number 2 has also been achieved. All symbols containing headline have been deprecated. While working towards goal number 3, I started to get confused. My strategy was the following: make changes in such a way that NOTHING will impact the user. Meaning that for both headline and heading would be synonyms (symbolically). This would then be eventually deprecated. So, before rewriting the tests, I'd change the internals and make sure that all pass. That assures me that the old (headline) way of doing things works. Then, I'd rewrite the tests and make sure everything works. That assures me that the new (heading) way of doing things also works. But this was frustrated due to org-element-heading-parser, since it returns a list whose car is 'headline. What are your thoughts? Patch 76 is the only that breaks the tests. I'm sending it so that you can check where I stand now. The tests pass for all previous commits. Thank you. -- Andr=C3=A9 A. Gomes "Free Thought, Free World" --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0076-Unfinished-work.patch >From 47191f9e5155fc55c3b1257f7eb366e6c361381a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 22:04:06 +0300 Subject: [PATCH 76/76] Unfinished work. The goal is to pass all tests without changing its internals. This would guarantee that 'healine an 'heading would both be valid. --- lisp/oc.el | 2 +- lisp/org-element.el | 58 +++++++++++++++++++++++++++++++------------- lisp/org-footnote.el | 2 +- lisp/org.el | 24 ++++++++++++------ lisp/ox-html.el | 4 +-- lisp/ox-odt.el | 2 +- lisp/ox.el | 16 ++++++------ 7 files changed, 71 insertions(+), 37 deletions(-) diff --git a/lisp/oc.el b/lisp/oc.el index e186df6de..a0e03a5bd 100644 --- a/lisp/oc.el +++ b/lisp/oc.el @@ -1427,7 +1427,7 @@ CONTEXT is the element or object at point, as returned by `org-element-context'. (< (point) (org-element-property :contents-end context)))) ;; In an heading or inlinetask, point must be either on the ;; heading itself or on the blank lines below. - ((memq type '(headline inlinetask)) + ((memq type '(heading inlinetask)) (or (not (org-at-heading-p)) (and (save-excursion (beginning-of-line) diff --git a/lisp/org-element.el b/lisp/org-element.el index 54be90ba9..5215005fe 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -236,16 +236,20 @@ specially in `org-element--object-lex'.") (defconst org-element-all-elements '(babel-call center-block clock comment comment-block diary-sexp drawer dynamic-block example-block export-block fixed-width - footnote-definition headline horizontal-rule inlinetask item + footnote-definition heading horizontal-rule inlinetask item keyword latex-environment node-property paragraph plain-list planning property-drawer quote-block section - special-block src-block table table-row verse-block) + special-block src-block table table-row verse-block + ;; to be deprecated + headline) "Complete list of element types.") (defconst org-element-greater-elements - '(center-block drawer dynamic-block footnote-definition headline inlinetask + '(center-block drawer dynamic-block footnote-definition heading inlinetask item plain-list property-drawer quote-block section - special-block table) + special-block table + ;; to be deprecated + headline) "List of recursive element types aka Greater Elements.") (defconst org-element-all-objects @@ -353,6 +357,8 @@ Don't modify it, set `org-element-affiliated-keywords' instead.") (citation citation-reference) (citation-reference ,@minimal-set) (footnote-reference ,@standard-set) + (heading ,@standard-set-no-line-break) + ;; to be deprecated (headline ,@standard-set-no-line-break) (inlinetask ,@standard-set-no-line-break) (italic ,@standard-set) @@ -384,11 +390,13 @@ a list of types that can be contained within an element or object of such type. This alist also applies to secondary string. For example, an -`headline' type element doesn't directly contain objects, but +`heading' type element doesn't directly contain objects, but still has an entry since one of its properties (`:title') does.") (defconst org-element-secondary-value-alist '((citation :prefix :suffix) + (heading :title) + ;; to be deprecated (headline :title) (inlinetask :title) (item :tag) @@ -682,7 +690,7 @@ is cleared and contents are removed in the process." ;; Similarly, interpreting functions must follow the naming ;; convention: org-element-TYPE-interpreter. ;; -;; With the exception of `headline' and `item' types, greater elements +;; With the exception of `heading' and `item' types, greater elements ;; cannot contain other greater elements of their own type. ;; ;; Beside implementing a parser and an interpreter, adding a new @@ -1049,7 +1057,11 @@ Assume point is at beginning of the heading." (skip-chars-backward " \r\t\n") (line-beginning-position 2))))) (let ((heading - (list 'headline + (list + ;; what can be done here?? + ;; 'heading + ;; to be deprecated + 'headline (nconc (list :raw-value raw-value :begin begin @@ -1085,7 +1097,9 @@ Assume point is at beginning of the heading." (skip-chars-backward " \t") (point)) nil - (org-element-restriction 'headline) + (or (org-element-restriction 'heading) + ;; to be deprecated + (org-element-restriction 'headline)) heading))))))) (defun org-element-heading-interpreter (heading contents) @@ -3973,7 +3987,7 @@ Possible types are defined in `org-element-all-elements'. LIMIT bounds the search. Optional argument GRANULARITY determines the depth of the -recursion. Allowed values are `headline', `greater-element', +recursion. Allowed values are `heading', `greater-element', `element', `object' or nil. When it is broader than `object' (or nil), secondary values will not be parsed, since they only contain objects. @@ -4239,7 +4253,7 @@ buffer. Optional argument GRANULARITY determines the depth of the recursion. It can be set to the following symbols: -`headline' Only parse headings. +`heading' Only parse headings. `greater-element' Don't recurse into greater elements except headings and sections. Thus, elements parsed are the top-level ones. @@ -4356,7 +4370,7 @@ and `example-block' elements in it: The following snippet will find the first heading with a level of 1 and a \"phone\" tag, and will return its beginning position: - (org-element-map tree \\='headline + (org-element-map tree \\='heading (lambda (hl) (and (= (org-element-property :level hl) 1) (member \"phone\" (org-element-property :tags hl)) @@ -4495,6 +4509,8 @@ If PARENT? is non-nil, assume the next element or object will be located inside the current one." (if parent? (pcase type + (`heading 'section) + ;; to be deprecated (`headline 'section) ((and (guard (eq mode 'first-section)) `section) 'top-comment) (`inlinetask 'planning) @@ -4530,7 +4546,10 @@ Elements are accumulated into ACC." (save-excursion (goto-char beg) ;; When parsing only headings, skip any text before first one. - (when (and (eq granularity 'headline) (not (org-at-heading-p))) + (when (and (or (eq granularity 'heading) + ;; to be deprecated + (eq granularity 'headline)) + (not (org-at-heading-p))) (org-with-limited-levels (outline-next-heading))) (let (elements) (while (< (point) end) @@ -4558,7 +4577,9 @@ Elements are accumulated into ACC." (or (memq granularity '(element object nil)) (and (eq granularity 'greater-element) (eq type 'section)) - (eq type 'headline))) + (or (eq type 'heading) + ;; to be deprecated + (eq type 'headline)))) (org-element--parse-elements cbeg (org-element-property :contents-end element) ;; Possibly switch to a special mode. @@ -5758,7 +5779,7 @@ section, possibly making cache invalid.") (defvar org-element--cache-change-warning nil "Non-nil when a sensitive line is about to be changed. -It is a symbol among nil, t and `headline'.") +It is a symbol among nil, t and `heading'.") (defun org-element--cache-before-change (beg end) "Request extension of area going to be modified if needed. @@ -5773,7 +5794,7 @@ text. See `before-change-functions' for more information." (save-match-data (if (and (org-with-limited-levels (org-at-heading-p)) (= (line-end-position) bottom)) - 'headline + 'heading (let ((case-fold-search t)) (re-search-forward org-element--cache-sensitive-re bottom t))))))))) @@ -5796,7 +5817,7 @@ that range. See `after-change-functions' for more information." ;; not removed, do not extend. (when (pcase org-element--cache-change-warning (`t t) - (`headline + (`heading (not (and (org-with-limited-levels (org-at-heading-p)) (= (line-end-position) bottom)))) (_ @@ -6082,7 +6103,10 @@ Providing it allows for quicker computation." (narrow-to-region (point) (match-end 0)) (throw 'objects-forbidden element))))) ;; At an heading or inlinetask, objects are in title. - ((memq type '(headline inlinetask)) + ((memq type '(heading + inlinetask + ;; to be deprecated + headline)) (let ((case-fold-search nil)) (goto-char (org-element-property :begin element)) (looking-at org-complex-heading-regexp) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 1371e1d59..62810e82e 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -263,7 +263,7 @@ otherwise." (< (point) (org-element-property :contents-end context)))) ;; In an heading or inlinetask, point must be either on the ;; heading itself or on the blank lines below. - ((memq type '(headline inlinetask)) + ((memq type '(heading inlinetask)) (or (not (org-at-heading-p)) (and (save-excursion (beginning-of-line) diff --git a/lisp/org.el b/lisp/org.el index 73ee7473d..0b87ed854 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8982,7 +8982,7 @@ a link." (call-interactively #'org-open-at-point-global)) ;; On a heading or an inlinetask, but not on a timestamp, ;; a link, a footnote reference or a citation. - ((memq type '(headline inlinetask)) + ((memq type '(heading inlinetask)) (org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beginning 5)) (tags-end (match-end 5))) @@ -17165,7 +17165,10 @@ and returns at first non-nil value." (save-excursion (goto-char (region-beginning)) (org-at-heading-p))))) - (when (org-check-for-hidden 'headlines) (org-hidden-tree-error)) + (when (or (org-check-for-hidden 'headings) + ;; To be deprecated + (org-check-for-hidden 'headlines)) + (org-hidden-tree-error)) (call-interactively 'org-do-promote)) ;; At an inline task. ((org-at-heading-p) @@ -17203,7 +17206,10 @@ and returns at first non-nil value." (save-excursion (goto-char (region-beginning)) (org-at-heading-p))))) - (when (org-check-for-hidden 'headlines) (org-hidden-tree-error)) + (when (or (org-check-for-hidden 'headings) + ;; To be deprecated + (org-check-for-hidden 'headlines)) + (org-hidden-tree-error)) (call-interactively 'org-do-demote)) ;; At an inline task. ((org-at-heading-p) @@ -17219,11 +17225,13 @@ and returns at first non-nil value." (defun org-check-for-hidden (what) "Check if there are hidden headings/items in the current visual line. -WHAT can be either `headlines' or `items'. If the current line is +WHAT can be either `headings' or `items'. If the current line is an outline or item heading and it has a folded subtree below it, this function returns t, nil otherwise." (let ((re (cond - ((eq what 'headlines) org-outline-regexp-bol) + ((eq what 'headings) org-outline-regexp-bol) + ;; for backward compatibility + ((eq what 'headlines) org-outline-regexp-bol) ((eq what 'items) (org-item-beginning-re)) (t (error "This should not happen")))) beg end) @@ -19046,7 +19054,7 @@ ELEMENT." (t (goto-char start) (current-indentation)))) - ((memq type '(headline inlinetask nil)) + ((memq type '(heading inlinetask nil)) (if (org-match-line "[ \t]*$") (org--get-expected-indentation element t) 0)) @@ -19737,7 +19745,7 @@ region only contains such lines." (looking-at "[ \t]*\\(:\\(?: \\|$\\)\\)")) (replace-match "" nil nil nil (if (= (line-end-position) (match-end 0)) 0 1))) - ((and (memq type '(babel-call clock comment diary-sexp headline + ((and (memq type '(babel-call clock comment diary-sexp heading horizontal-rule keyword paragraph planning)) (<= (org-element-property :post-affiliated element) (point))) @@ -21408,7 +21416,7 @@ modified." (unindent-tree (lambda (contents) (dolist (element (reverse contents)) - (if (memq (org-element-type element) '(headline section)) + (if (memq (org-element-type element) '(heading section)) (funcall unindent-tree (org-element-contents element)) (save-excursion (save-restriction diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 9a00c11f1..7c222163d 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -1664,10 +1664,10 @@ targets and targets." ((and user-label (or (plist-get info :html-prefer-user-labels) ;; Used CUSTOM_ID property unconditionally. - (memq type '(headline inlinetask)))) + (memq type '(heading inlinetask)))) user-label) ((and named-only - (not (memq type '(headline inlinetask radio-target target))) + (not (memq type '(heading inlinetask radio-target target))) (not user-label)) nil) (t diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 4e5fcc8e0..d6f7cfbba 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -2609,7 +2609,7 @@ Return nil, otherwise." (let* ((genealogy (org-element-lineage destination)) (data (reverse genealogy)) (label (let ((type (org-element-type destination))) - (if (memq type '(headline target)) + (if (memq type '(heading target)) (org-export-get-reference destination info) (error "FIXME: Unable to resolve %S" destination))))) (or diff --git a/lisp/ox.el b/lisp/ox.el index 2672650da..964809ce8 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -333,22 +333,24 @@ according to the back-end used.") :tag "Org Export General" :group 'org-export) -(defcustom org-export-with-archived-trees 'headline +(defcustom org-export-with-archived-trees 'heading "Whether sub-trees with the ARCHIVE tag should be exported. This can have three different values: nil Do not export, pretend this tree is not present. t Do export the entire tree. -`headline' Only export the heading, but skip the tree below it. +`heading' Only export the heading, but skip the tree below it. This option can also be set with the OPTIONS keyword, e.g. \"arch:nil\"." :group 'org-export-general :type '(choice (const :tag "Not at all" nil) - (const :tag "Heading only" headline) + (const :tag "Heading only" heading) (const :tag "Entirely" t)) - :safe (lambda (x) (memq x '(t nil headline)))) + :safe (lambda (x) (memq x '(t nil heading + ;; to be deprecated + headline)))) (defcustom org-export-with-author t "Non-nil means insert author name into the exported file. @@ -1713,7 +1715,7 @@ INFO is a plist holding export options." (lambda (data genealogy) (let ((type (org-element-type data))) (cond - ((memq type '(headline inlinetask)) + ((memq type '(heading inlinetask)) (let ((tags (org-element-property :tags data))) (if (cl-some (lambda (tag) (member tag select)) tags) ;; When a select tag is found, mark full @@ -3351,7 +3353,7 @@ Return a string of lines to be included in the format expected by (or contents-begin (org-element-property :begin element)) (org-element-property (if contents-begin :contents-end :end) element)) (when (and only-contents - (memq (org-element-type element) '(headline inlinetask))) + (memq (org-element-type element) '(heading inlinetask))) ;; Skip planning line and property-drawer. (goto-char (point-min)) (when (looking-at-p org-planning-line-re) (forward-line)) @@ -3994,7 +3996,7 @@ inherited from parent headings and FILETAGS keywords." (let ((current-tag-list (org-element-property :tags element))) (dolist (parent (org-element-lineage element)) (dolist (tag (org-element-property :tags parent)) - (when (and (memq (org-element-type parent) '(headline inlinetask)) + (when (and (memq (org-element-type parent) '(heading inlinetask)) (not (member tag current-tag-list))) (push tag current-tag-list)))) ;; Add FILETAGS keywords and return results. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0075-Deprecate-org-bibtex-headline.patch >From 0367a4609671c314527b6afe3f9d498c0dbab691 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 17:06:22 +0300 Subject: [PATCH 75/76] Deprecate org-bibtex-headline. --- lisp/ol-bibtex.el | 10 +++++----- lisp/org-compat.el | 2 ++ 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el index dd3b15300..47392b90e 100644 --- a/lisp/ol-bibtex.el +++ b/lisp/ol-bibtex.el @@ -353,7 +353,7 @@ and `org-tags-exclude-from-inheritance'." prop) value))) -(defun org-bibtex-headline () +(defun org-bibtex-heading () "Return a bibtex entry of the given heading as a string." (letrec ((val (lambda (key lst) (cdr (assoc key lst)))) (to (lambda (string) (intern (concat ":" string)))) @@ -436,7 +436,7 @@ and `org-tags-exclude-from-inheritance'." "Generate an autokey for the current heading." (org-bibtex-put org-bibtex-key-property (if org-bibtex-autogen-keys - (let* ((entry (org-bibtex-headline)) + (let* ((entry (org-bibtex-heading)) (key (with-temp-buffer (insert entry) @@ -581,7 +581,7 @@ ARG, when non-nil, is a universal prefix argument. See ;;; Bibtex <-> Org heading translation functions (defun org-bibtex (filename) "Export each heading in the current file to a bibtex entry. -Headings are exported using `org-bibtex-headline'." +Headings are exported using `org-bibtex-heading'." (interactive (list (read-file-name "Bibtex file: " nil nil nil @@ -595,7 +595,7 @@ Headings are exported using `org-bibtex-headline'." (remove nil (org-map-entries (lambda () (condition-case nil - (org-bibtex-headline) + (org-bibtex-heading) (error (throw 'bib (point))))))))) (with-temp-file filename (insert (mapconcat #'identity bibtex-entries "\n"))) @@ -751,7 +751,7 @@ Return the number of saved entries." (defun org-bibtex-export-to-kill-ring () "Export current heading to kill ring as bibtex entry." (interactive) - (let ((result (org-bibtex-headline))) + (let ((result (org-bibtex-heading))) (kill-new result) result)) (defun org-bibtex-search (string) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 62495d4ce..8ce17226c 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -346,6 +346,8 @@ Counting starts at 1." 'org-babel-ref-heading-body "9.5") (define-obsolete-function-alias 'org-beamer-headline 'org-beamer-heading "9.5") +(define-obsolete-function-alias 'org-bibtex-headline + 'org-bibtex-heading "9.5") (define-obsolete-variable-alias 'org-bibtex-headline-format-function 'org-bibtex-heading-format-function "9.5") (define-obsolete-variable-alias 'org-bibtex-treat-headline-as-title -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0074-Deprecate-org-texinfo-headline.patch >From 153f71618ea141c49dea22a08701d619e33fa9a3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:53:13 +0300 Subject: [PATCH 74/76] Deprecate org-texinfo-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-texinfo.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 667188ba2..62495d4ce 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -434,6 +434,8 @@ Counting starts at 1." 'org-texinfo-format-heading-default-function "9.5") (define-obsolete-variable-alias 'org-texinfo-format-headline-function 'org-texinfo-format-heading-function "9.5") +(define-obsolete-function-alias 'org-texinfo-headline + 'org-texinfo-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 25b26507e..6cac45ec4 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -49,7 +49,7 @@ (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) - (headline . org-texinfo-headline) + (headline . org-texinfo-heading) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) @@ -863,7 +863,7 @@ plist holding contextual information." ;;;; Heading -(defun org-texinfo-headline (heading contents info) +(defun org-texinfo-heading (heading contents info) "Transcode a HEADING element from Org to Texinfo. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0072-Deprecate-org-texinfo-format-headline-default-functi.patch >From e887c666dcb20861ac138e49fe80736d189940f5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:51:40 +0300 Subject: [PATCH 72/76] Deprecate org-texinfo-format-headline-default-function. --- lisp/org-compat.el | 2 ++ lisp/ox-texinfo.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 2d84b2f75..eb59a451e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -430,6 +430,8 @@ Counting starts at 1." 'org-point-at-end-of-empty-heading "9.5") (define-obsolete-variable-alias 'org-remember-default-headline 'org-remember-default-heading "9.5") +(define-obsolete-function-alias 'org-texinfo-format-headline-default-function + 'org-texinfo-format-heading-default-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 49ee119e5..2537c24ed 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -212,7 +212,7 @@ section string and will be replaced by the title of the section." ;;;; Heading (defcustom org-texinfo-format-headline-function - 'org-texinfo-format-headline-default-function + 'org-texinfo-format-heading-default-function "Function to format heading text. This function will be called with 5 arguments: @@ -927,7 +927,7 @@ holding contextual information." (format command full-text) contents)))))) -(defun org-texinfo-format-headline-default-function +(defun org-texinfo-format-heading-default-function (todo _todo-type priority text tags) "Default format function for a heading. See `org-texinfo-format-headline-function' for details." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0073-Deprecate-org-texinfo-format-headline-function.patch >From e1456b8bfee2b3150a5304615d8dd6a40a66cf2b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:52:40 +0300 Subject: [PATCH 73/76] Deprecate org-texinfo-format-headline-function. --- lisp/org-compat.el | 2 ++ lisp/ox-texinfo.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index eb59a451e..667188ba2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -432,6 +432,8 @@ Counting starts at 1." 'org-remember-default-heading "9.5") (define-obsolete-function-alias 'org-texinfo-format-headline-default-function 'org-texinfo-format-heading-default-function "9.5") +(define-obsolete-variable-alias 'org-texinfo-format-headline-function + 'org-texinfo-format-heading-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 2537c24ed..25b26507e 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -107,7 +107,7 @@ (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) ;; Other variables. (:texinfo-classes nil nil org-texinfo-classes) - (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) + (:texinfo-format-headline-function nil nil org-texinfo-format-heading-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) @@ -211,7 +211,7 @@ section string and will be replaced by the title of the section." ;;;; Heading -(defcustom org-texinfo-format-headline-function +(defcustom org-texinfo-format-heading-function 'org-texinfo-format-heading-default-function "Function to format heading text. @@ -930,7 +930,7 @@ holding contextual information." (defun org-texinfo-format-heading-default-function (todo _todo-type priority text tags) "Default format function for a heading. -See `org-texinfo-format-headline-function' for details." +See `org-texinfo-format-heading-function' for details." (concat (and todo (format "@strong{%s} " todo)) (and priority (format "@emph{#%s} " priority)) text -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0071-Deprecate-org-texinfo-normalize-headlines.patch >From 0d03902698a79cd5da802959404120e07665485f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:48:34 +0300 Subject: [PATCH 71/76] Deprecate org-texinfo--normalize-headlines. No alias since the functions is internal. --- lisp/ox-texinfo.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index ec01523f6..49ee119e5 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -83,7 +83,7 @@ (verse-block . org-texinfo-verse-block)) :filters-alist '((:filter-headline . org-texinfo--filter-section-blank-lines) - (:filter-parse-tree . org-texinfo--normalize-headlines) + (:filter-parse-tree . org-texinfo--normalize-headings) (:filter-section . org-texinfo--filter-section-blank-lines) (:filter-final-output . org-texinfo--untabify)) :menu-entry @@ -418,7 +418,7 @@ If two strings share the same prefix (e.g. \"ISO-8859-1\" and "Filter controlling number of blank lines after a section." (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" "\n\n" heading)) -(defun org-texinfo--normalize-headlines (tree _backend info) +(defun org-texinfo--normalize-headings (tree _backend info) "Normalize headings in TREE. BACK-END is the symbol specifying back-end used for export. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0069-Deprecate-org-point-at-end-of-empty-headline.patch >From dd2b24414a4b1e4dbf3929a4be117e8d299b8851 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:47:16 +0300 Subject: [PATCH 69/76] Deprecate org-point-at-end-of-empty-headline. --- lisp/org-compat.el | 2 ++ lisp/org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index b6740324a..636814834 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -426,6 +426,8 @@ Counting starts at 1." 'org-odt-heading "9.5") (define-obsolete-function-alias 'org-org-headline 'org-org-heading "9.5") +(define-obsolete-function-alias 'org-point-at-end-of-empty-headline + 'org-point-at-end-of-empty-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org.el b/lisp/org.el index 4e46d8104..73ee7473d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7392,7 +7392,7 @@ This goes first to child, then to parent, level, then up the hierarchy. After top level, it switches back to sibling level." (interactive) (let ((org-adapt-indentation nil)) - (when (org-point-at-end-of-empty-headline) + (when (org-point-at-end-of-empty-heading) (setq this-command 'org-cycle-level) ; Only needed for caching (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) @@ -20563,7 +20563,7 @@ unless optional argument NO-INHERITANCE is non-nil." (move-beginning-of-line 1) (looking-at org-block-regexp))) -(defun org-point-at-end-of-empty-headline () +(defun org-point-at-end-of-empty-heading () "If point is at the end of an empty heading, return t, else nil. If the heading only contains a TODO keyword, it is still considered empty." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0070-Deprecate-org-remember-default-headline.patch >From 5543cf2b16a2af579a823b038144e364c9dc529e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:47:52 +0300 Subject: [PATCH 70/76] Deprecate org-remember-default-headline. --- lisp/org-capture.el | 4 ++-- lisp/org-compat.el | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 0657ff12d..d7f1e04bd 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -72,7 +72,7 @@ (defvar crm-separator) (defvar org-end-time-was-given) (defvar org-keyword-properties) -(defvar org-remember-default-headline) +(defvar org-remember-default-heading) (defvar org-remember-templates) (defvar org-store-link-plist) (defvar org-table-border-regexp) @@ -1932,7 +1932,7 @@ Assume sexps have been marked with (key (char-to-string (nth 1 entry))) (template (nth 2 entry)) (file (or (nth 3 entry) org-default-notes-file)) - (position (or (nth 4 entry) org-remember-default-headline)) + (position (or (nth 4 entry) org-remember-default-heading)) (type 'entry) (prepend org-reverse-note-order) immediate target jump-to-captured) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 636814834..2d84b2f75 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -428,6 +428,8 @@ Counting starts at 1." 'org-org-heading "9.5") (define-obsolete-function-alias 'org-point-at-end-of-empty-headline 'org-point-at-end-of-empty-heading "9.5") +(define-obsolete-variable-alias 'org-remember-default-headline + 'org-remember-default-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0067-Fix-comment.patch >From e9f57a33bb78c7a60b662df3d5ddd152ef87332b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:44:03 +0300 Subject: [PATCH 67/76] Fix comment. The symbols aren't bound. --- lisp/ox-odt.el | 4 ---- 1 file changed, 4 deletions(-) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 9da052803..4e5fcc8e0 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -3573,10 +3573,6 @@ pertaining to indentation here." ;; item, but also within description lists and low-level ;; headings. - ;; See `org-odt-translate-description-lists' and - ;; `org-odt-translate-low-level-headlines' for how this is - ;; tackled. - (concat "\n" ;; Discontinue the list. (mapconcat 'car close-open-tags "\n") -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0068-Deprecate-org-org-headline.patch >From ec92c9bf9d512d7a04d2d6051146201ae4916319 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:46:26 +0300 Subject: [PATCH 68/76] Deprecate org-org-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 5d293c331..b6740324a 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -424,6 +424,8 @@ Counting starts at 1." 'org-odt-format-toc-heading "9.5") (define-obsolete-function-alias 'org-odt-headline 'org-odt-heading "9.5") +(define-obsolete-function-alias 'org-org-headline + 'org-org-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 477c35adb..b1a66c03e 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -66,7 +66,7 @@ setting of `org-html-htmlize-output-type' is `css'." (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) - (headline . org-org-headline) + (headline . org-org-heading) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) @@ -144,7 +144,7 @@ CONTENTS is its contents, as a string or nil. INFO is ignored." "^[ \t]*#\\+attr_[-_a-z0-9]+:\\(?: .*\\)?\n" "" (org-export-expand blob contents t)))) -(defun org-org-headline (heading contents info) +(defun org-org-heading (heading contents info) "Transcode HEADING element back into Org syntax. CONTENTS is its contents, as a string or nil. INFO is ignored." (unless (org-element-property :footnote-section-p heading) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0066-Deprecate-org-odt-headline.patch >From 0ee8138d3a15bee5939bd42e6643a9cc45af0a48 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:42:39 +0300 Subject: [PATCH 66/76] Deprecate org-odt-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-odt.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 962676fa2..5d293c331 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -422,6 +422,8 @@ Counting starts at 1." 'org-odt-format-heading-function "9.5") (define-obsolete-function-alias 'org-odt-format-toc-headline 'org-odt-format-toc-heading "9.5") +(define-obsolete-function-alias 'org-odt-headline + 'org-odt-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index bdb9a5f40..9da052803 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -48,7 +48,7 @@ (fixed-width . org-odt-fixed-width) (footnote-definition . org-odt-footnote-definition) (footnote-reference . org-odt-footnote-reference) - (headline . org-odt-headline) + (headline . org-odt-heading) (horizontal-rule . org-odt-horizontal-rule) (inline-src-block . org-odt-inline-src-block) (inlinetask . org-odt-inlinetask) @@ -1787,7 +1787,7 @@ INFO is a plist holding contextual information." :level level :section-number section-number extra-keys))) -(defun org-odt-headline (heading contents info) +(defun org-odt-heading (heading contents info) "Transcode a HEADING element from Org to ODT. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0065-Deprecate-org-odt-format-toc-headline.patch >From 6413624304140f77648f11422095db1336cc8538 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:42:01 +0300 Subject: [PATCH 65/76] Deprecate org-odt-format-toc-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-odt.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index f02f2daf2..962676fa2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -420,6 +420,8 @@ Counting starts at 1." 'org-odt-format-heading-default-function "9.5") (define-obsolete-variable-alias 'org-odt-format-headline-function 'org-odt-format-heading-function "9.5") +(define-obsolete-function-alias 'org-odt-format-toc-headline + 'org-odt-format-toc-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index c33ae0941..bdb9a5f40 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1097,7 +1097,7 @@ specifying the depth of the table." ")) -(cl-defun org-odt-format-toc-headline +(cl-defun org-odt-format-toc-heading (todo _todo-type priority text tags &key _level section-number headline-label &allow-other-keys) (format "%s" @@ -1157,7 +1157,7 @@ table of contents as a string, or nil." (mapconcat (lambda (heading) (let* ((entry (org-odt-format-heading--wrap - heading backend info 'org-odt-format-toc-headline)) + heading backend info 'org-odt-format-toc-heading)) (level (org-export-get-relative-level heading info)) (style (format "Contents_20_%d" level))) (format "\n%s" -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0064-Deprecate-org-odt-format-headline-function.patch >From 9b7fcbe5289563acde9f462495650a7aaf6b431f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:41:04 +0300 Subject: [PATCH 64/76] Deprecate org-odt-format-headline-function. --- lisp/org-compat.el | 2 ++ lisp/ox-odt.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 7d2c4462a..f02f2daf2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -418,6 +418,8 @@ Counting starts at 1." 'org-mouse-show-headings "9.5") (define-obsolete-function-alias 'org-odt-format-headline-default-function 'org-odt-format-heading-default-function "9.5") +(define-obsolete-variable-alias 'org-odt-format-headline-function + 'org-odt-format-heading-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index f6c5f01a8..c33ae0941 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -105,7 +105,7 @@ (:odt-display-outline-level nil nil org-odt-display-outline-level) (:odt-fontify-srcblocks nil nil org-odt-fontify-srcblocks) (:odt-format-drawer-function nil nil org-odt-format-drawer-function) - (:odt-format-headline-function nil nil org-odt-format-headline-function) + (:odt-format-headline-function nil nil org-odt-format-heading-function) (:odt-format-inlinetask-function nil nil org-odt-format-inlinetask-function) (:odt-inline-formula-rules nil nil org-odt-inline-formula-rules) (:odt-inline-image-rules nil nil org-odt-inline-image-rules) @@ -652,7 +652,7 @@ The default value simply returns the value of CONTENTS." ;;;; Heading -(defcustom org-odt-format-headline-function +(defcustom org-odt-format-heading-function 'org-odt-format-heading-default-function "Function to format heading text. @@ -1853,7 +1853,7 @@ holding contextual information." (defun org-odt-format-heading-default-function (todo todo-type priority text tags) "Default format function for a heading. -See `org-odt-format-headline-function' for details." +See `org-odt-format-heading-function' for details." (concat ;; Todo. (when todo -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0063-Deprecate-org-odt-format-headline-default-function.patch >From f14425015f745fd50f0b1a4615c704aa38cfdbdf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:39:48 +0300 Subject: [PATCH 63/76] Deprecate org-odt-format-headline-default-function. --- lisp/org-compat.el | 2 ++ lisp/ox-odt.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index e7ef18364..7d2c4462a 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -416,6 +416,8 @@ Counting starts at 1." 'org-mouse-end-heading "9.5") (define-obsolete-function-alias 'org-mouse-show-headlines 'org-mouse-show-headings "9.5") +(define-obsolete-function-alias 'org-odt-format-headline-default-function + 'org-odt-format-heading-default-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index a14916c2b..f6c5f01a8 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -653,7 +653,7 @@ The default value simply returns the value of CONTENTS." ;;;; Heading (defcustom org-odt-format-headline-function - 'org-odt-format-headline-default-function + 'org-odt-format-heading-default-function "Function to format heading text. This function will be called with 5 arguments: @@ -1850,7 +1850,7 @@ holding contextual information." (concat extra-targets anchored-title)) contents)))))) -(defun org-odt-format-headline-default-function +(defun org-odt-format-heading-default-function (todo todo-type priority text tags) "Default format function for a heading. See `org-odt-format-headline-function' for details." @@ -1938,7 +1938,7 @@ See `org-odt-format-inlinetask-function' for details." (concat (format "\n%s" "OrgInlineTaskHeading" - (org-odt-format-headline-default-function + (org-odt-format-heading-default-function todo todo-type priority name tags)) contents) nil nil "OrgInlineTaskFrame" " style:rel-width=\"100%\""))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0062-Deprecate-org-odt-format-headline-wrap.patch >From 8bc0c62127c6e8fa95e14a027ea948fe82b481c4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:37:52 +0300 Subject: [PATCH 62/76] Deprecate org-odt-format-headline--wrap. No alias since the function is internal. --- lisp/ox-odt.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index a639c6802..a14916c2b 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1156,7 +1156,7 @@ table of contents as a string, or nil." (and (not scope) (org-export-translate "Table of Contents" :utf-8 info)) (mapconcat (lambda (heading) - (let* ((entry (org-odt-format-headline--wrap + (let* ((entry (org-odt-format-heading--wrap heading backend info 'org-odt-format-toc-headline)) (level (org-export-get-relative-level heading info)) (style (format "Contents_20_%d" level))) @@ -1750,7 +1750,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Heading -(defun org-odt-format-headline--wrap (heading backend info +(defun org-odt-format-heading--wrap (heading backend info &optional format-function &rest extra-keys) "Transcode a HEADING element using BACKEND. @@ -1793,7 +1793,7 @@ CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." ;; Case 1: This is a footnote section: ignore it. (unless (org-element-property :footnote-section-p heading) - (let* ((full-text (org-odt-format-headline--wrap heading nil info)) + (let* ((full-text (org-odt-format-heading--wrap heading nil info)) ;; Get level relative to current parsed data. (level (org-export-get-relative-level heading info)) (numbered (org-export-numbered-heading-p heading info)) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0060-Deprecate-org-mouse-show-headlines.patch >From 0b2a569ff95dcca688963aa9855248bd217a5ed3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:33:39 +0300 Subject: [PATCH 60/76] Deprecate org-mouse-show-headlines. --- lisp/org-compat.el | 2 ++ lisp/org-mouse.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 6c0ca4ac6..e7ef18364 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -414,6 +414,8 @@ Counting starts at 1." 'org-md-heading-style "9.5") (define-obsolete-function-alias 'org-mouse-end-headline 'org-mouse-end-heading "9.5") +(define-obsolete-function-alias 'org-mouse-show-headlines + 'org-mouse-show-headings "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index b599a533f..c9ba6eb9c 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -354,7 +354,7 @@ nor a function, elements of KEYWORDS are used directly." :style radio :selected ,(not (member (match-string group) keywords))])))) -(defun org-mouse-show-headlines () +(defun org-mouse-show-headings () "Change the visibility of the current org buffer to only show headings." (interactive) (let ((this-command 'org-cycle) @@ -485,7 +485,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:" (popup-menu `("Main Menu" ["Show Overview" org-mouse-show-overview t] - ["Show Headings" org-mouse-show-headlines t] + ["Show Headings" org-mouse-show-headings t] ["Show All" org-show-all t] ["Remove Highlights" org-remove-occur-highlights :visible org-occur-highlights] -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0061-Deprecate-org-num-headline-regexp.patch >From 877d78345fdfa1b2b0db14d9d82b908172cd169b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:35:02 +0300 Subject: [PATCH 61/76] Deprecate org-num--headline-regexp. --- lisp/org-num.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-num.el b/lisp/org-num.el index 35ce61155..874543639 100644 --- a/lisp/org-num.el +++ b/lisp/org-num.el @@ -173,7 +173,7 @@ for heading \"1.2.3\" is (3 2 1).") ;;; Internal Functions -(defsubst org-num--headline-regexp () +(defsubst org-num--heading-regexp () "Return regexp matching a numbered heading." (if (null org-num-max-level) (org-with-limited-levels org-outline-regexp-bol) (format "^\\*\\{1,%d\\} " @@ -304,7 +304,7 @@ first." (org-with-point-at (or start 1) ;; Do not match heading starting at START. (when start (end-of-line)) - (let ((regexp (org-num--headline-regexp)) + (let ((regexp (org-num--heading-regexp)) (new nil)) (while (re-search-forward regexp end t) (let* ((level (org-reduced-level @@ -390,7 +390,7 @@ See this variable for the meaning of BEG and END." (setq org-num--missing-overlay nil) (save-match-data (org-with-point-at beg - (let ((regexp (org-num--headline-regexp))) + (let ((regexp (org-num--heading-regexp))) ;; At this point, directly altered overlays between BEG and ;; END are marked as invalid and will trigger a full update. ;; However, there are still two cases to handle. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0059-Deprecate-org-mouse-end-headline.patch >From 3eaba486f5b517ca845e596311fb0a2e003cae44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:33:06 +0300 Subject: [PATCH 59/76] Deprecate org-mouse-end-headline. --- lisp/org-compat.el | 2 ++ lisp/org-mouse.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ba486a3e4..6c0ca4ac6 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -412,6 +412,8 @@ Counting starts at 1." 'org-md-heading "9.5") (define-obsolete-variable-alias 'org-md-headline-style 'org-md-heading-style "9.5") +(define-obsolete-function-alias 'org-mouse-end-headline + 'org-mouse-end-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index 8f61f48eb..b599a533f 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -186,7 +186,7 @@ Changing this variable requires a restart of Emacs to get activated." (beginning-of-line) (re-search-forward regexp (point-at-eol) t)) -(defun org-mouse-end-headline () +(defun org-mouse-end-heading () "Go to the end of current heading (ignoring tags)." (interactive) (end-of-line) @@ -809,15 +809,15 @@ This means, between the beginning of line and the point." ,@(if org-mouse-direct '("--") nil) ["New Heading" org-mouse-insert-heading :visible org-mouse-direct] ["Set Deadline" - (progn (org-mouse-end-headline) (insert " ") (org-deadline)) + (progn (org-mouse-end-heading) (insert " ") (org-deadline)) :active (not (save-excursion (org-mouse-re-search-line org-deadline-regexp)))] ["Schedule Task" - (progn (org-mouse-end-headline) (insert " ") (org-schedule)) + (progn (org-mouse-end-heading) (insert " ") (org-schedule)) :active (not (save-excursion (org-mouse-re-search-line org-scheduled-regexp)))] ["Insert Timestamp" - (progn (org-mouse-end-headline) (insert " ") (org-time-stamp nil)) t] + (progn (org-mouse-end-heading) (insert " ") (org-time-stamp nil)) t] ; ["Timestamp (inactive)" org-time-stamp-inactive t] "--" ["Archive Subtree" org-archive-subtree] -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0057-Deprecate-org-md-headline.patch >From 10fb5d2b95e7343ce21aff31f09594077618cd93 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:30:36 +0300 Subject: [PATCH 57/76] Deprecate org-md-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-md.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index f21c1c601..fad1bd8eb 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -408,6 +408,8 @@ Counting starts at 1." 'org-loop-over-headings-in-active-region "9.5") (define-obsolete-function-alias 'org-man-headline 'org-man-heading "9.5") +(define-obsolete-function-alias 'org-md-headline + 'org-md-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-md.el b/lisp/ox-md.el index bf54e6884..af75b52c1 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -93,7 +93,7 @@ The %s will be replaced by the footnote reference itself." (example-block . org-md-example-block) (export-block . org-md-export-block) (fixed-width . org-md-example-block) - (headline . org-md-headline) + (headline . org-md-heading) (horizontal-rule . org-md-horizontal-rule) (inline-src-block . org-md-verbatim) (inlinetask . org-md--convert-to-html) @@ -345,7 +345,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Heading -(defun org-md-headline (heading contents info) +(defun org-md-heading (heading contents info) "Transcode HEADING element into Markdown format. CONTENTS is the heading contents. INFO is a plist used as a communication channel." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0058-Deprecate-org-md-headline-style.patch >From dd7580dc7a3ffd9798e154dbc9c8d261dd1d22a5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:31:47 +0300 Subject: [PATCH 58/76] Deprecate org-md-headline-style. --- lisp/org-compat.el | 2 ++ lisp/ox-md.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index fad1bd8eb..ba486a3e4 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -410,6 +410,8 @@ Counting starts at 1." 'org-man-heading "9.5") (define-obsolete-function-alias 'org-md-headline 'org-md-heading "9.5") +(define-obsolete-variable-alias 'org-md-headline-style + 'org-md-heading-style "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-md.el b/lisp/ox-md.el index af75b52c1..fe8d70c96 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -43,7 +43,7 @@ :version "24.4" :package-version '(Org . "8.0")) -(defcustom org-md-headline-style 'atx +(defcustom org-md-heading-style 'atx "Style used to format headings. This variable can be set to either `atx' or `setext'." :group 'org-export-md @@ -120,7 +120,7 @@ The %s will be replaced by the footnote reference itself." :options-alist '((:md-footnote-format nil nil org-md-footnote-format) (:md-footnotes-section nil nil org-md-footnotes-section) - (:md-headline-style nil nil org-md-headline-style))) + (:md-headline-style nil nil org-md-heading-style))) ;;; Filters -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0054-Deprecate-org-man-headline.patch >From 9a163a067bdee4c9d1a73ce6e1b32d095e4cabc7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:26:59 +0300 Subject: [PATCH 54/76] Deprecate org-man-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-man.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index b55ae79da..f21c1c601 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -406,6 +406,8 @@ Counting starts at 1." 'org-link-search-must-match-exact-heading "9.5") (define-obsolete-variable-alias 'org-loop-over-headlines-in-active-region 'org-loop-over-headings-in-active-region "9.5") +(define-obsolete-function-alias 'org-man-headline + 'org-man-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-man.el b/lisp/ox-man.el index adededc31..320467549 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -64,7 +64,7 @@ (fixed-width . org-man-fixed-width) (footnote-definition . org-man-footnote-definition) (footnote-reference . org-man-footnote-reference) - (headline . org-man-headline) + (headline . org-man-heading) (horizontal-rule . org-man-horizontal-rule) (inline-babel-call . org-man-inline-babel-call) (inline-src-block . org-man-inline-src-block) @@ -442,7 +442,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;; Heading -(defun org-man-headline (heading contents info) +(defun org-man-heading (heading contents info) "Transcode a HEADING element from Org to Man. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0055-Deprecate-org-md-headline-referred-p.patch >From f9c4f2811f9ec6ca48274503b7fa0dd0d830f57e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:27:38 +0300 Subject: [PATCH 55/76] Deprecate org-md--headline-referred-p. No alias since the function is internal. --- lisp/ox-md.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index d774e4600..c04c36406 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -159,7 +159,7 @@ Assume BACKEND is `md'." ;;; Internal functions -(defun org-md--headline-referred-p (heading info) +(defun org-md--heading-referred-p (heading info) "Non-nil when HEADING is being referred to. INFO is a plist used as a communication channel. Links and table of contents can refer to headings." @@ -383,7 +383,7 @@ a communication channel." (and contents (replace-regexp-in-string "^" " " contents))))) (t (let ((anchor - (and (org-md--headline-referred-p heading info) + (and (org-md--heading-referred-p heading info) (format "" (or (org-element-property :CUSTOM_ID heading) (org-export-get-reference heading info)))))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0056-Deprecate-org-md-headline-title.patch >From 4bbaf1993bc05494193c55e2bb33c072ce03ebbd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:28:45 +0300 Subject: [PATCH 56/76] Deprecate org-md--headline-title. No alias since the function is internal. --- lisp/ox-md.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index c04c36406..bf54e6884 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -200,7 +200,7 @@ of contents can refer to headings." (_ nil)))) info t)))) -(defun org-md--headline-title (style level title &optional anchor tags) +(defun org-md--heading-title (style level title &optional anchor tags) "Generate a heading title in the preferred Markdown heading style. STYLE is the preferred style (`atx' or `setext'). LEVEL is the header level. TITLE is the heading title. ANCHOR is the HTML @@ -231,7 +231,7 @@ contents according to the specified element." (unless scope (let ((style (plist-get info :md-headline-style)) (title (org-html--translate "Table of Contents" info))) - (org-md--headline-title style 1 title nil))) + (org-md--heading-title style 1 title nil))) (mapconcat (lambda (heading) (let* ((indentation @@ -283,7 +283,7 @@ INFO is a plist used as a communication channel." (section-title (org-html--translate "Footnotes" info))) (when fn-alist (format (plist-get info :md-footnotes-section) - (org-md--headline-title headline-style 1 section-title) + (org-md--heading-title headline-style 1 section-title) (mapconcat (lambda (fn) (org-md--footnote-formatted fn info)) fn-alist "\n"))))) @@ -387,7 +387,7 @@ a communication channel." (format "" (or (org-element-property :CUSTOM_ID heading) (org-export-get-reference heading info)))))) - (concat (org-md--headline-title style level heading anchor tags) + (concat (org-md--heading-title style level heading anchor tags) contents))))))) ;;;; Horizontal Rule -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0053-Deprecate-org-loop-over-headlines-in-active-region.patch >From 697bf63ffe7ee4cbbec6aaeba60d5766d3faf1e6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:26:12 +0300 Subject: [PATCH 53/76] Deprecate org-loop-over-headlines-in-active-region. --- lisp/org-agenda.el | 6 +++--- lisp/org-archive.el | 32 ++++++++++++++++---------------- lisp/org-compat.el | 2 ++ lisp/org-list.el | 6 +++--- lisp/org-refile.el | 2 +- lisp/org.el | 24 ++++++++++++------------ testing/lisp/test-org.el | 22 +++++++++++----------- 7 files changed, 48 insertions(+), 46 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index f935dbc01..94abd3f6b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9441,7 +9441,7 @@ the same tree node, and the heading of the tree node in the Org file." (hdmarker (org-get-at-bol 'org-hd-marker)) (todayp (org-agenda-today-p (org-get-at-bol 'day))) (inhibit-read-only t) - org-loop-over-headlines-in-active-region + org-loop-over-headings-in-active-region org-agenda-heading-snapshot-before-repeat newhead just-one) (org-with-remote-undo buffer (with-current-buffer buffer @@ -10460,7 +10460,7 @@ The list of commands is: `org-agenda-schedule', `org-agenda-deadline', `org-agenda-date-prompt', `org-agenda-todo', `org-agenda-archive*', `org-agenda-kill'. -See `org-loop-over-headlines-in-active-region' for the equivalent +See `org-loop-over-headings-in-active-region' for the equivalent option for Org buffers." :type '(choice (const :tag "Don't loop" nil) (const :tag "All headings in active region" t) @@ -10650,7 +10650,7 @@ The prefix arg is passed through to the command if possible." (progn (message "Skipping removed entry at %s" e) (cl-incf skipped)) (goto-char pos) - (let (org-loop-over-headlines-in-active-region) (funcall cmd)) + (let (org-loop-over-headings-in-active-region) (funcall cmd)) ;; `post-command-hook' is not run yet. We make sure any ;; pending log note is processed. (when org-log-setup (org-add-log-note)) diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 24d4aad1b..b0d9930b8 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -211,14 +211,14 @@ cursor is not at a heading when these commands are called, try all level 1 trees. If the cursor is on a heading, only try the direct children of this heading." (interactive "P") - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) + (let ((cl (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region)) - org-loop-over-headlines-in-active-region) + org-loop-over-headings-in-active-region) (org-map-entries `(progn (setq org-map-continue-from (progn (org-back-to-heading) (point))) (org-archive-subtree ,find-done)) - org-loop-over-headlines-in-active-region + org-loop-over-headings-in-active-region cl (if (org-invisible-p) (org-end-of-subtree nil t)))) (cond ((equal find-done '(4)) (org-archive-all-done)) @@ -426,10 +426,10 @@ sibling does not exist, it will be created at the end of the subtree. Archiving time is retained in the ARCHIVE_TIME node property." (interactive) - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let ((cl (when (eq org-loop-over-headlines-in-active-region 'start-level) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) + (let ((cl (when (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region)) - org-loop-over-headlines-in-active-region) + org-loop-over-headings-in-active-region) (org-map-entries '(progn (setq org-map-continue-from (progn (org-back-to-heading) @@ -438,7 +438,7 @@ Archiving time is retained in the ARCHIVE_TIME node property." (point)))) (when (org-at-heading-p) (org-archive-to-archive-sibling))) - org-loop-over-headlines-in-active-region + org-loop-over-headings-in-active-region cl (if (org-invisible-p) (org-end-of-subtree nil t)))) (save-restriction (widen) @@ -583,13 +583,13 @@ don't move trees, but mark them with the ARCHIVE tag." With prefix ARG, check all children of current heading and offer tagging the children that do not contain any open TODO items." (interactive "P") - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) + (let ((cl (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region)) - org-loop-over-headlines-in-active-region) + org-loop-over-headings-in-active-region) (org-map-entries `(org-toggle-archive-tag ,find-done) - org-loop-over-headlines-in-active-region + org-loop-over-headings-in-active-region cl (if (org-invisible-p) (org-end-of-subtree nil t)))) (if find-done (org-archive-all-done 'tag) @@ -604,13 +604,13 @@ the children that do not contain any open TODO items." (defun org-archive-set-tag () "Set the ARCHIVE tag." (interactive) - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) + (let ((cl (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region)) - org-loop-over-headlines-in-active-region) + org-loop-over-headings-in-active-region) (org-map-entries 'org-archive-set-tag - org-loop-over-headlines-in-active-region + org-loop-over-headings-in-active-region cl (if (org-invisible-p) (org-end-of-subtree nil t)))) (org-toggle-tag org-archive-tag 'on))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index e7e057a56..b55ae79da 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -404,6 +404,8 @@ Counting starts at 1." 'org-latex-heading "9.5") (define-obsolete-variable-alias 'org-link-search-must-match-exact-headline 'org-link-search-must-match-exact-heading "9.5") +(define-obsolete-variable-alias 'org-loop-over-headlines-in-active-region + 'org-loop-over-headings-in-active-region "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-list.el b/lisp/org-list.el index b8a62e355..90900f5ca 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -91,7 +91,7 @@ (defvar org-drawer-regexp) (defvar org-element-all-objects) (defvar org-inhibit-startup) -(defvar org-loop-over-headlines-in-active-region) +(defvar org-loop-over-headings-in-active-region) (defvar org-odd-levels-only) (defvar org-outline-regexp-bol) (defvar org-scheduled-string) @@ -3052,7 +3052,7 @@ With a prefix argument ARG, change the region in a single item." ;; Case 2. Start at an heading: convert to items. ((org-at-heading-p) ;; Remove metadata - (let (org-loop-over-headlines-in-active-region) + (let (org-loop-over-headings-in-active-region) (org-list--delete-metadata)) (let* ((bul (org-list-bullet-string "-")) (bul-len (length bul)) @@ -3075,7 +3075,7 @@ With a prefix argument ARG, change the region in a single item." ;; subtrees. (when (< level ref-level) (setq ref-level level)) ;; Remove metadata - (let (org-loop-over-headlines-in-active-region) + (let (org-loop-over-headings-in-active-region) (org-list--delete-metadata)) ;; Remove stars and TODO keyword. (let ((case-fold-search nil)) (looking-at org-todo-line-regexp)) diff --git a/lisp/org-refile.el b/lisp/org-refile.el index 69d459b98..9e56f72bc 100644 --- a/lisp/org-refile.el +++ b/lisp/org-refile.el @@ -561,7 +561,7 @@ prefix argument (`C-u C-u C-u C-c C-w')." (t (org-add-log-setup 'refile nil nil org-log-refile))) (and org-auto-align-tags - (let ((org-loop-over-headlines-in-active-region nil)) + (let ((org-loop-over-headings-in-active-region nil)) (org-align-tags))) (let ((bookmark-name (plist-get org-bookmark-names-plist :last-refile))) diff --git a/lisp/org.el b/lisp/org.el index e06fe6937..4e46d8104 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -909,7 +909,7 @@ will still edit the time stamp - this is just too good to give up." (const :tag "When outside special context" t) (const :tag "Everywhere except timestamps" always))) -(defcustom org-loop-over-headlines-in-active-region t +(defcustom org-loop-over-headings-in-active-region t "Shall some commands act upon headings in the active region? When set to t, some commands will be performed in all headings @@ -9735,10 +9735,10 @@ When called through ELisp, arg is also interpreted in the following way: \"WAITING\" -> switch to the specified keyword, but only if it really is a member of `org-todo-keywords'." (interactive "P") - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) + (let ((cl (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region)) - org-loop-over-headlines-in-active-region) + org-loop-over-headings-in-active-region) (org-map-entries (lambda () (org-todo arg)) nil cl @@ -10686,11 +10686,11 @@ With two universal prefix arguments, prompt for a warning delay. With argument TIME, set the deadline at the corresponding date. TIME can either be an Org date like \"2011-07-24\" or a delta like \"+2d\"." (interactive "P") - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) (org-map-entries (lambda () (org--deadline-or-schedule arg 'deadline time)) nil - (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region) (lambda () (when (org-invisible-p) (org-end-of-subtree nil t)))) @@ -10707,11 +10707,11 @@ With two universal prefix arguments, prompt for a delay cookie. With argument TIME, scheduled at the corresponding date. TIME can either be an Org date like \"2011-07-24\" or a delta like \"+2d\"." (interactive "P") - (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) + (if (and (org-region-active-p) org-loop-over-headings-in-active-region) (org-map-entries (lambda () (org--deadline-or-schedule arg 'scheduled time)) nil - (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region) (lambda () (when (org-invisible-p) (org-end-of-subtree nil t)))) @@ -12023,7 +12023,7 @@ unconditionally do not offer the fast tag selection interface. If a region is active, set tags in the region according to the -setting of `org-loop-over-headlines-in-active-region'. +setting of `org-loop-over-headings-in-active-region'. This function is for interactive use only; in Lisp code use `org-set-tags' instead." @@ -12032,12 +12032,12 @@ in Lisp code use `org-set-tags' instead." (unless (equal '(16) arg) org-use-fast-tag-selection))) (cond ((equal '(4) arg) (org-align-tags t)) - ((and (org-region-active-p) org-loop-over-headlines-in-active-region) - (let (org-loop-over-headlines-in-active-region) ; hint: infinite recursion. + ((and (org-region-active-p) org-loop-over-headings-in-active-region) + (let (org-loop-over-headings-in-active-region) ; hint: infinite recursion. (org-map-entries #'org-set-tags-command nil - (if (eq org-loop-over-headlines-in-active-region 'start-level) + (if (eq org-loop-over-headings-in-active-region 'start-level) 'region-start-level 'region) (lambda () (when (org-invisible-p) (org-end-of-subtree nil t)))))) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 04d92314d..5b07a04a4 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -3494,7 +3494,7 @@ SCHEDULED: <2017-05-06 Sat> (should (equal "* TODO a1\n** TODO a2\n* b1\n" (org-test-with-temp-text "* a1\n** a2\n* DONE b1\n" - (let ((org-loop-over-headlines-in-active-region t)) + (let ((org-loop-over-headings-in-active-region t)) (transient-mark-mode 1) (push-mark (point) t t) (search-forward "* DONE b1") @@ -3503,7 +3503,7 @@ SCHEDULED: <2017-05-06 Sat> (should (equal "* TODO a1\n** a2\n* b1\n" (org-test-with-temp-text "* a1\n** a2\n* DONE b1\n" - (let ((org-loop-over-headlines-in-active-region 'start-level)) + (let ((org-loop-over-headings-in-active-region 'start-level)) (transient-mark-mode 1) (push-mark (point) t t) (search-forward "* DONE b1") @@ -5367,14 +5367,14 @@ Paragraph" (org-deadline '(16))) (buffer-string)))) ;; When a region is active and - ;; `org-loop-over-headlines-in-active-region' is non-nil, insert the + ;; `org-loop-over-headings-in-active-region' is non-nil, insert the ;; same value in all headings in region. (should (equal "* H1\nDEADLINE: <2012-03-29>\n* H2\nDEADLINE: <2012-03-29>" (org-test-with-temp-text "* H1\n* H2" (let ((org-adapt-indentation nil) (org-last-inserted-timestamp nil) - (org-loop-over-headlines-in-active-region t)) + (org-loop-over-headings-in-active-region t)) (transient-mark-mode 1) (push-mark (point) t t) (goto-char (point-max)) @@ -5386,7 +5386,7 @@ Paragraph" (org-test-with-temp-text "* H1\n* H2" (let ((org-adapt-indentation nil) (org-last-inserted-timestamp nil) - (org-loop-over-headlines-in-active-region nil)) + (org-loop-over-headings-in-active-region nil)) (transient-mark-mode 1) (push-mark (point) t t) (goto-char (point-max)) @@ -5481,14 +5481,14 @@ Paragraph" (org-schedule '(16))) (buffer-string)))) ;; When a region is active and - ;; `org-loop-over-headlines-in-active-region' is non-nil, insert the + ;; `org-loop-over-headings-in-active-region' is non-nil, insert the ;; same value in all headings in region. (should (equal "* H1\nSCHEDULED: <2012-03-29>\n* H2\nSCHEDULED: <2012-03-29>" (org-test-with-temp-text "* H1\n* H2" (let ((org-adapt-indentation nil) (org-last-inserted-timestamp nil) - (org-loop-over-headlines-in-active-region t)) + (org-loop-over-headings-in-active-region t)) (transient-mark-mode 1) (push-mark (point) t t) (goto-char (point-max)) @@ -5500,7 +5500,7 @@ Paragraph" (org-test-with-temp-text "* H1\n* H2" (let ((org-adapt-indentation nil) (org-last-inserted-timestamp nil) - (org-loop-over-headlines-in-active-region nil)) + (org-loop-over-headings-in-active-region nil)) (transient-mark-mode 1) (push-mark (point) t t) (goto-char (point-max)) @@ -7010,7 +7010,7 @@ Paragraph" (org-set-tags-command))) (org-at-heading-p)))) ;; When a region is active and - ;; `org-loop-over-headlines-in-active-region' is non-nil, insert the + ;; `org-loop-over-headings-in-active-region' is non-nil, insert the ;; same value in all headings in region. (should (equal "* H1 :foo:\nContents\n* H2 :foo:" @@ -7018,7 +7018,7 @@ Paragraph" (cl-letf (((symbol-function 'completing-read-multiple) (lambda (&rest args) '("foo")))) (let ((org-use-fast-tag-selection nil) - (org-loop-over-headlines-in-active-region t) + (org-loop-over-headings-in-active-region t) (org-tags-column 1)) (transient-mark-mode 1) (push-mark (point) t t) @@ -7031,7 +7031,7 @@ Paragraph" (cl-letf (((symbol-function 'completing-read-multiple) (lambda (&rest args) '("foo")))) (let ((org-use-fast-tag-selection nil) - (org-loop-over-headlines-in-active-region nil) + (org-loop-over-headings-in-active-region nil) (org-tags-column 1)) (transient-mark-mode 1) (push-mark (point) t t) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0052-Deprecate-org-link-search-must-match-exact-headline.patch >From c5d7ad94ec2b8aefabbe5cd7f482bf96dab583ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:23:37 +0300 Subject: [PATCH 52/76] Deprecate org-link-search-must-match-exact-headline. --- lisp/ol.el | 8 +++---- lisp/org-compat.el | 2 ++ lisp/org-lint.el | 2 +- lisp/org-macro.el | 4 ++-- lisp/ox-publish.el | 2 +- lisp/ox.el | 2 +- testing/lisp/test-org.el | 46 ++++++++++++++++++++-------------------- 7 files changed, 34 insertions(+), 32 deletions(-) diff --git a/lisp/ol.el b/lisp/ol.el index 4a26efc2d..1e3eab6f2 100644 --- a/lisp/ol.el +++ b/lisp/ol.el @@ -336,7 +336,7 @@ another window." (const wl) (const wl-other-frame))))) -(defcustom org-link-search-must-match-exact-headline 'query-to-create +(defcustom org-link-search-must-match-exact-heading 'query-to-create "Non-nil means internal fuzzy links can only match headings. When nil, the a fuzzy link may point to a target or a named @@ -1216,9 +1216,9 @@ of matched result, which is either `dedicated' or `fuzzy'." (beginning-of-line) (setq type 'dedicated)) ;; Offer to create non-existent heading depending on - ;; `org-link-search-must-match-exact-headline'. + ;; `org-link-search-must-match-exact-heading'. ((and (derived-mode-p 'org-mode) - (eq org-link-search-must-match-exact-headline 'query-to-create) + (eq org-link-search-must-match-exact-heading 'query-to-create) (yes-or-no-p "No match - create this as a new heading? ")) (goto-char (point-max)) (unless (bolp) (newline)) @@ -1228,7 +1228,7 @@ of matched result, which is either `dedicated' or `fuzzy'." ;; Only headings are looked after. No need to process ;; further: throw an error. ((and (derived-mode-p 'org-mode) - (or starred org-link-search-must-match-exact-headline)) + (or starred org-link-search-must-match-exact-heading)) (goto-char origin) (error "No match for fuzzy expression: %s" normalized)) ;; Regular text search. diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 51d13791e..e7e057a56 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -402,6 +402,8 @@ Counting starts at 1." 'org-latex-format-heading-function "9.5") (define-obsolete-function-alias 'org-latex-headline 'org-latex-heading "9.5") +(define-obsolete-variable-alias 'org-link-search-must-match-exact-headline + 'org-link-search-must-match-exact-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-lint.el b/lisp/org-lint.el index ec5859a92..619efbc7b 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -625,7 +625,7 @@ in description" (let* ((visiting (if file (find-buffer-visiting file) (current-buffer))) (buffer (or visiting (find-file-noselect file))) - (org-link-search-must-match-exact-headline t)) + (org-link-search-must-match-exact-heading t)) (unwind-protect (with-current-buffer buffer (when (and search diff --git a/lisp/org-macro.el b/lisp/org-macro.el index b8d337341..28ffc23af 100644 --- a/lisp/org-macro.el +++ b/lisp/org-macro.el @@ -68,7 +68,7 @@ (declare-function vc-call "vc-hooks" (fun file &rest args) t) (declare-function vc-exec-after "vc-dispatcher" (code)) -(defvar org-link-search-must-match-exact-headline) +(defvar org-link-search-must-match-exact-heading) ;;; Variables @@ -320,7 +320,7 @@ by `org-link-search', or the empty string." (save-excursion (when (org-string-nw-p location) (condition-case _ - (let ((org-link-search-must-match-exact-headline t)) + (let ((org-link-search-must-match-exact-heading t)) (org-link-search location nil t)) (error (error "Macro property failed: cannot find location %s" location)))) diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 08052a96b..235b41485 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1172,7 +1172,7 @@ references with `org-export-get-reference'." (substring search 1) (with-current-buffer (find-file-noselect file) (org-with-point-at 1 - (let ((org-link-search-must-match-exact-headline t)) + (let ((org-link-search-must-match-exact-heading t)) (condition-case err (org-link-search search nil t) (error diff --git a/lisp/ox.el b/lisp/ox.el index 60f9527dc..2672650da 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -3340,7 +3340,7 @@ Return a string of lines to be included in the format expected by (let ((org-inhibit-startup t)) (org-mode))) (condition-case err ;; Enforce consistent search. - (let ((org-link-search-must-match-exact-headline nil)) + (let ((org-link-search-must-match-exact-heading nil)) (org-link-search location)) (error (error "%s for %s::%s" (error-message-string err) file location))) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 202e5cb16..04d92314d 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -1247,7 +1247,7 @@ (should (org-test-with-temp-text "Link [[target]] <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) (should-not @@ -1261,13 +1261,13 @@ (should (org-test-with-temp-text "Link [[target][/desciption/]] <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) (should-not (org-test-with-temp-text "Link [[target]] <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) ;; When `org-return-follows-link' is non-nil, tolerate links and @@ -1275,7 +1275,7 @@ (should (org-test-with-temp-text "# Comment [[target]]\n <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) (should-not @@ -1285,7 +1285,7 @@ (should-not (org-test-with-temp-text "# Comment [[target]]\n <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) ;; Non-nil `org-return-follows-link' ignores read-only state of @@ -1293,7 +1293,7 @@ (should (org-test-with-temp-text "Link [[target]] <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (setq buffer-read-only t) (call-interactively #'org-return)) (looking-at-p "<>"))) @@ -1302,14 +1302,14 @@ (org-test-with-temp-text "[[target][This is a very\n long description]]\n <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) (should-not (org-test-with-temp-text "[[target][This is a very\n long description]]\n <>" (let ((org-return-follows-link t) - (org-link-search-must-match-exact-headline nil)) + (org-link-search-must-match-exact-heading nil)) (org-return)) (looking-at-p "<>"))) ;; However, do not open link when point is in a table. @@ -2703,37 +2703,37 @@ SCHEDULED: <2014-03-04 tue.>" (should (org-test-with-temp-text "#+NAME: Test\n|a|b|\n<>\n* Test\n[[Test]]" - (let ((org-link-search-must-match-exact-headline nil)) (org-open-at-point)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point)) (looking-at "<>"))) ;; Then fuzzy link points to an element with a given name. (should (org-test-with-temp-text "Test\n#+NAME: Test\n|a|b|\n* Test\n[[Test]]" - (let ((org-link-search-must-match-exact-headline nil)) (org-open-at-point)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point)) (looking-at "#\\+NAME: Test"))) ;; A target still lead to a matching heading otherwise. (should (org-test-with-temp-text "* Head1\n* Head2\n*Head3\n[[Head2]]" - (let ((org-link-search-must-match-exact-headline nil)) (org-open-at-point)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point)) (looking-at "\\* Head2"))) ;; With a leading star in link, enforce heading match. (should (org-test-with-temp-text "* Test\n<>\n[[*Test]]" - (let ((org-link-search-must-match-exact-headline nil)) (org-open-at-point)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point)) (looking-at "\\* Test"))) ;; With a leading star in link, enforce exact heading match, even - ;; with `org-link-search-must-match-exact-headline' set to nil. + ;; with `org-link-search-must-match-exact-heading' set to nil. (should-error (org-test-with-temp-text "* Test 1\nFoo Bar\n[[*Test]]" - (let ((org-link-search-must-match-exact-headline nil)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point)))) - ;; Handle non-nil `org-link-search-must-match-exact-headline'. + ;; Handle non-nil `org-link-search-must-match-exact-heading'. (should (org-test-with-temp-text "* Test\nFoo Bar\n[[Test]]" - (let ((org-link-search-must-match-exact-headline t)) (org-open-at-point)) + (let ((org-link-search-must-match-exact-heading t)) (org-open-at-point)) (looking-at "\\* Test"))) (should (org-test-with-temp-text "* Test\nFoo Bar\n[[*Test]]" - (let ((org-link-search-must-match-exact-headline t)) (org-open-at-point)) + (let ((org-link-search-must-match-exact-heading t)) (org-open-at-point)) (looking-at "\\* Test"))) ;; Heading match should not care about spaces, cookies, TODO ;; keywords, priorities, and tags. However, TODO keywords are @@ -2743,13 +2743,13 @@ SCHEDULED: <2014-03-04 tue.>" "** TODO [#A] [/] Test [1/2] [33%] 1 \t 2 [%] :work:urgent: ")) (org-test-with-temp-text (concat first-line "\nFoo Bar\n[[*Test 1 2]]") - (let ((org-link-search-must-match-exact-headline nil) + (let ((org-link-search-must-match-exact-heading nil) (org-todo-regexp "TODO")) (org-open-at-point)) (looking-at (regexp-quote first-line))))) (should-error (org-test-with-temp-text "** todo Test 1 2\nFoo Bar\n[[*Test 1 2]]" - (let ((org-link-search-must-match-exact-headline nil) + (let ((org-link-search-must-match-exact-heading nil) (org-todo-regexp "TODO")) (org-open-at-point)))) ;; Heading match should still be exact. @@ -2758,12 +2758,12 @@ SCHEDULED: <2014-03-04 tue.>" ** TODO [#A] [/] Test [1/2] [33%] 1 \t 2 [%] :work:urgent: Foo Bar [[*Test 1]]" - (let ((org-link-search-must-match-exact-headline nil) + (let ((org-link-search-must-match-exact-heading nil) (org-todo-regexp "TODO")) (org-open-at-point)))) (should (org-test-with-temp-text "* Test 1 2 3\n** Test 1 2\n[[*Test 1 2]]" - (let ((org-link-search-must-match-exact-headline nil) + (let ((org-link-search-must-match-exact-heading nil) (org-todo-regexp "TODO")) (org-open-at-point)) (looking-at-p (regexp-quote "** Test 1 2")))) @@ -2789,7 +2789,7 @@ Foo Bar (goto-char (point-max)) (insert (format "[[file:%s::line1 line2]]" file)) (beginning-of-line) - (let ((org-link-search-must-match-exact-headline nil)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point 0)) (looking-at-p "line1")))) (should @@ -2798,7 +2798,7 @@ Foo Bar (goto-char (point-max)) (insert (format "[[file:%s::line1 line2]]" file)) (beginning-of-line) - (let ((org-link-search-must-match-exact-headline nil)) + (let ((org-link-search-must-match-exact-heading nil)) (org-open-at-point 0)) (looking-at-p "line1"))))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0051-Deprecate-org-latex-headline.patch >From e7e0293c9a33cfc65dfe75c7c9d008b836ff3452 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:21:27 +0300 Subject: [PATCH 51/76] Deprecate org-latex-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-latex.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 4038deb49..51d13791e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -400,6 +400,8 @@ Counting starts at 1." 'org-latex-format-heading-default-function "9.5") (define-obsolete-variable-alias 'org-latex-format-headline-function 'org-latex-format-heading-function "9.5") +(define-obsolete-function-alias 'org-latex-headline + 'org-latex-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 21d600672..b5fcca3bd 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -54,7 +54,7 @@ (fixed-width . org-latex-fixed-width) (footnote-definition . org-latex-footnote-definition) (footnote-reference . org-latex-footnote-reference) - (headline . org-latex-headline) + (headline . org-latex-heading) (horizontal-rule . org-latex-horizontal-rule) (inline-src-block . org-latex-inline-src-block) (inlinetask . org-latex-inlinetask) @@ -1949,7 +1949,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Heading -(defun org-latex-headline (heading contents info) +(defun org-latex-heading (heading contents info) "Transcode a HEADING element from Org to LaTeX. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0050-Deprecate-org-latex-format-headline-function.patch >From 05b0a237fa5c8a1da9551618ff8f241bc8638d84 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:20:51 +0300 Subject: [PATCH 50/76] Deprecate org-latex-format-headline-function. --- lisp/org-compat.el | 2 ++ lisp/ox-latex.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index a8aaa67d9..4038deb49 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -398,6 +398,8 @@ Counting starts at 1." 'org-koma-letter-heading-is-opening-maybe "9.5") (define-obsolete-function-alias 'org-latex-format-headline-default-function 'org-latex-format-heading-default-function "9.5") +(define-obsolete-variable-alias 'org-latex-format-headline-function + 'org-latex-format-heading-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index fb5205053..21d600672 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -127,7 +127,7 @@ (:latex-footnote-defined-format nil nil org-latex-footnote-defined-format) (:latex-footnote-separator nil nil org-latex-footnote-separator) (:latex-format-drawer-function nil nil org-latex-format-drawer-function) - (:latex-format-headline-function nil nil org-latex-format-headline-function) + (:latex-format-headline-function nil nil org-latex-format-heading-function) (:latex-format-inlinetask-function nil nil org-latex-format-inlinetask-function) (:latex-hyperref-template nil nil org-latex-hyperref-template t) (:latex-image-default-scale nil nil org-latex-image-default-scale) @@ -645,7 +645,7 @@ precedence over this variable." ;;;; Heading -(defcustom org-latex-format-headline-function +(defcustom org-latex-format-heading-function 'org-latex-format-heading-default-function "Function for formatting the heading's text. @@ -2085,7 +2085,7 @@ holding contextual information." (defun org-latex-format-heading-default-function (todo _todo-type priority text tags _info) "Default format function for a heading. -See `org-latex-format-headline-function' for details." +See `org-latex-format-heading-function' for details." (concat (and todo (format "{\\bfseries\\sffamily %s} " todo)) (and priority (format "\\framebox{\\#%c} " priority)) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0049-Deprecate-org-latex-format-headline-default-function.patch >From 57d8e140d8192551b49d5c3899fcb0dc357004f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:19:43 +0300 Subject: [PATCH 49/76] Deprecate org-latex-format-headline-default-function. --- lisp/org-compat.el | 2 ++ lisp/ox-latex.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 45c15aadb..a8aaa67d9 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -396,6 +396,8 @@ Counting starts at 1." 'org-koma-letter-heading "9.5") (define-obsolete-variable-alias 'org-koma-letter-headline-is-opening-maybe 'org-koma-letter-heading-is-opening-maybe "9.5") +(define-obsolete-function-alias 'org-latex-format-headline-default-function + 'org-latex-format-heading-default-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index fcec36d35..fb5205053 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -646,7 +646,7 @@ precedence over this variable." ;;;; Heading (defcustom org-latex-format-headline-function - 'org-latex-format-headline-default-function + 'org-latex-format-heading-default-function "Function for formatting the heading's text. This function will be called with six arguments: @@ -2082,7 +2082,7 @@ holding contextual information." (format section-fmt full-text (concat heading-label pre-blanks contents)))))))) -(defun org-latex-format-headline-default-function +(defun org-latex-format-heading-default-function (todo _todo-type priority text tags _info) "Default format function for a heading. See `org-latex-format-headline-function' for details." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0047-Deprecate-org-koma-letter-headline.patch >From 6bcb8e7cbba23dcaefd9b1970061e8e6944cb522 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 23:21:47 +0300 Subject: [PATCH 47/76] Deprecate org-koma-letter-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-koma-letter.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 806f132a8..c881fc787 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -392,6 +392,8 @@ Counting starts at 1." 'org-indent-modified-heading-flag "9.5") (define-obsolete-function-alias 'org-indent-notify-modified-headline 'org-indent-notify-modified-heading "9.5") +(define-obsolete-function-alias 'org-koma-letter-headline + 'org-koma-letter-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index e8805cb35..9a87366f2 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -521,7 +521,7 @@ e.g. \"title-subject:t\"." (:inbuffer-with-place nil "place" 'koma-letter:empty)) :translate-alist '((export-block . org-koma-letter-export-block) (export-snippet . org-koma-letter-export-snippet) - (headline . org-koma-letter-headline) + (headline . org-koma-letter-heading) (keyword . org-koma-letter-keyword) (template . org-koma-letter-template)) :menu-entry @@ -626,7 +626,7 @@ channel." ;; Heading -(defun org-koma-letter-headline (heading contents info) +(defun org-koma-letter-heading (heading contents info) "Transcode a HEADING element from Org to LaTeX. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0048-Deprecate-org-koma-letter-headline-is-opening-maybe.patch >From ac381e1a33e263552a7e219d100d336146b18fcd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 23:23:54 +0300 Subject: [PATCH 48/76] Deprecate org-koma-letter-headline-is-opening-maybe. --- lisp/org-compat.el | 2 ++ lisp/ox-koma-letter.el | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c881fc787..45c15aadb 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -394,6 +394,8 @@ Counting starts at 1." 'org-indent-notify-modified-heading "9.5") (define-obsolete-function-alias 'org-koma-letter-headline 'org-koma-letter-heading "9.5") +(define-obsolete-variable-alias 'org-koma-letter-headline-is-opening-maybe + 'org-koma-letter-heading-is-opening-maybe "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index 9a87366f2..2499a65cd 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -265,7 +265,7 @@ This option can also be set with the OPENING keyword. Moreover, when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or the CLOSING keyword is empty - (2) `org-koma-letter-headline-is-opening-maybe' is non-nil; + (2) `org-koma-letter-heading-is-opening-maybe' is non-nil; (3) the letter contains a heading without a special tag (e.g. \"to\" or \"ps\"); then the opening will be implicitly set as the untagged heading title." @@ -277,7 +277,7 @@ This option can also be set with the CLOSING keyword. Moreover, when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or the CLOSING keyword is empty; - (2) `org-koma-letter-headline-is-opening-maybe' is non-nil; + (2) `org-koma-letter-heading-is-opening-maybe' is non-nil; (3) the letter contains a heading with the special tag \"closing\"; then the opening will be set as the title of the closing special @@ -290,7 +290,7 @@ This option can also be set with the SIGNATURE keyword. Moreover, when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or there is no CLOSING keyword or the CLOSING keyword is empty; - (2) `org-koma-letter-headline-is-opening-maybe' is non-nil; + (2) `org-koma-letter-heading-is-opening-maybe' is non-nil; (3) the letter contains a heading with the special tag \"closing\"; then the signature will be set as the content of the @@ -435,7 +435,7 @@ This option can also be set with the OPTIONS keyword, e.g.: The value must be a member of `org-latex-classes'." :type 'string) -(defcustom org-koma-letter-headline-is-opening-maybe t +(defcustom org-koma-letter-heading-is-opening-maybe t "Non-nil means a heading may be used as an opening and closing. See also `org-koma-letter-opening' and `org-koma-letter-closing'." @@ -499,7 +499,7 @@ e.g. \"title-subject:t\"." (:with-place nil "place" org-koma-letter-use-place) (:with-subject nil "subject" org-koma-letter-subject-format) (:with-title-as-subject nil "title-subject" org-koma-letter-prefer-subject) - (:with-headline-opening nil nil org-koma-letter-headline-is-opening-maybe) + (:with-headline-opening nil nil org-koma-letter-heading-is-opening-maybe) ;; Special properties non-nil when a setting happened in buffer. ;; They are used to prioritize in-buffer settings over "lco" ;; files. See `org-koma-letter-template'. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0045-Deprecate-org-indent-notify-modified-headline.patch >From a4d8ab34c9d9a3f8d773d43116fabab7b5efeeea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 23:18:07 +0300 Subject: [PATCH 45/76] Deprecate org-indent-notify-modified-headline. --- lisp/org-compat.el | 2 ++ lisp/org-indent.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 6038930fa..806f132a8 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -390,6 +390,8 @@ Counting starts at 1." 'org-icalendar-blocked-heading-p "9.5") (define-obsolete-variable-alias 'org-indent-modified-headline-flag 'org-indent-modified-heading-flag "9.5") +(define-obsolete-function-alias 'org-indent-notify-modified-headline + 'org-indent-notify-modified-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 561870717..c2b9a9daa 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -73,7 +73,7 @@ Delay used when the buffer to initialize isn't current.") This is used locally in each buffer being initialized.") (defvar org-indent-modified-heading-flag nil "Non-nil means the last deletion operated on a heading. -It is modified by `org-indent-notify-modified-headline'.") +It is modified by `org-indent-notify-modified-heading'.") (defcustom org-indent-boundary-char ?\s @@ -193,7 +193,7 @@ during idle time." #'org-indent-remove-properties-from-string)) (add-hook 'after-change-functions 'org-indent-refresh-maybe nil 'local) (add-hook 'before-change-functions - 'org-indent-notify-modified-headline nil 'local) + 'org-indent-notify-modified-heading nil 'local) (and font-lock-mode (org-restart-font-lock)) (org-indent-remove-properties (point-min) (point-max)) ;; Submit current buffer to initialize agent. If it's the first @@ -222,7 +222,7 @@ during idle time." #'org-indent-remove-properties-from-string)) (remove-hook 'after-change-functions 'org-indent-refresh-maybe 'local) (remove-hook 'before-change-functions - 'org-indent-notify-modified-headline 'local) + 'org-indent-notify-modified-heading 'local) (org-with-wide-buffer (org-indent-remove-properties (point-min) (point-max))) (and font-lock-mode (org-restart-font-lock)) @@ -375,7 +375,7 @@ stopped." (looking-at-p org-property-end-re) (looking-at-p org-property-re)))))))))))) -(defun org-indent-notify-modified-headline (beg end) +(defun org-indent-notify-modified-heading (beg end) "Set `org-indent-modified-heading-flag' depending on context. BEG and END are the positions of the beginning and end of the -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0046-Deprecate-org-koma-letter-keyword-or-headline.patch >From f2e3ad48cc0d62e264b13efe95a5e20d260a1464 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 23:19:26 +0300 Subject: [PATCH 46/76] Deprecate org-koma-letter--keyword-or-headline. Not made obsolete since it's internal. --- lisp/ox-koma-letter.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index b361a856c..e8805cb35 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -652,7 +652,7 @@ special tag heading." (cl-some (lambda (tag) (and (assoc-string tag special-tags) tag)) (org-export-get-tags heading info)))) -(defun org-koma-letter--keyword-or-headline (plist-key pred info) +(defun org-koma-letter--keyword-or-heading (plist-key pred info) "Return the correct version of opening or closing. PLIST-KEY should be a key in info, typically :opening or :closing. PRED is a predicate run on heading to determine @@ -742,7 +742,7 @@ holding export options." "\\mbox{}")))) ;; Opening. (format "\\opening{%s}\n\n" - (org-koma-letter--keyword-or-headline + (org-koma-letter--keyword-or-heading :opening (lambda (h i) (not (org-koma-letter--special-tag h i))) @@ -751,7 +751,7 @@ holding export options." contents ;; Closing. (format "\\closing{%s}\n" - (org-koma-letter--keyword-or-headline + (org-koma-letter--keyword-or-heading :closing (lambda (h i) (let ((special-tag (org-koma-letter--special-tag h i))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0043-Deprecate-org-icalendar-blocked-headline-p.patch >From 744b953a7778a528585943c82d1f1edb48d088d4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:59:27 +0300 Subject: [PATCH 43/76] Deprecate org-icalendar-blocked-headline-p. --- lisp/org-compat.el | 2 ++ lisp/ox-icalendar.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 059c656b2..cdf1050a5 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -386,6 +386,8 @@ Counting starts at 1." 'org-html-heading "9.5") (define-obsolete-variable-alias 'org-html-self-link-headlines 'org-html-self-link-headings "9.5") +(define-obsolete-function-alias 'org-icalendar-blocked-headline-p + 'org-icalendar-blocked-heading-p "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index 8cd561ed8..e5b379dfc 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -331,7 +331,7 @@ a message if the file was modified." (message "ID properties created in file \"%s\"" file) (sit-for 2)))) -(defun org-icalendar-blocked-headline-p (heading info) +(defun org-icalendar-blocked-heading-p (heading info) "Non-nil when HEADING is considered to be blocked. INFO is a plist used as a communication channel. @@ -646,7 +646,7 @@ inlinetask within the section." (all t) (unblocked (and (eq type 'headline) - (not (org-icalendar-blocked-headline-p + (not (org-icalendar-blocked-heading-p entry info)))) ((t) (eq todo-type 'todo)))) (org-icalendar--vtodo entry uid summary loc desc cat tz class)) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0044-Deprecate-org-indent-modified-headline-flag.patch >From 59b3195cbb88d84b32e947034bc5454d0bbd09eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 20:00:59 +0300 Subject: [PATCH 44/76] Deprecate org-indent-modified-headline-flag. --- lisp/org-compat.el | 2 ++ lisp/org-indent.el | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index cdf1050a5..6038930fa 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -388,6 +388,8 @@ Counting starts at 1." 'org-html-self-link-headings "9.5") (define-obsolete-function-alias 'org-icalendar-blocked-headline-p 'org-icalendar-blocked-heading-p "9.5") +(define-obsolete-variable-alias 'org-indent-modified-headline-flag + 'org-indent-modified-heading-flag "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 2768fffeb..561870717 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -71,7 +71,7 @@ Delay used when the buffer to initialize isn't current.") (defvar org-indent--initial-marker nil "Position of initialization before interrupt. This is used locally in each buffer being initialized.") -(defvar org-indent-modified-headline-flag nil +(defvar org-indent-modified-heading-flag nil "Non-nil means the last deletion operated on a heading. It is modified by `org-indent-notify-modified-headline'.") @@ -376,7 +376,7 @@ stopped." (looking-at-p org-property-re)))))))))))) (defun org-indent-notify-modified-headline (beg end) - "Set `org-indent-modified-headline-flag' depending on context. + "Set `org-indent-modified-heading-flag' depending on context. BEG and END are the positions of the beginning and end of the range of deleted text. @@ -385,7 +385,7 @@ This function is meant to be called by `before-change-functions'. Flag will be non-nil if command is going to modify or delete an headline." (when org-indent-mode - (setq org-indent-modified-headline-flag + (setq org-indent-modified-heading-flag (org-with-wide-buffer (goto-char beg) (save-match-data @@ -404,7 +404,7 @@ This function is meant to be called by `after-change-functions'." ;; If a heading was modified or inserted, set properties until ;; next heading. (org-with-wide-buffer - (if (or org-indent-modified-headline-flag + (if (or org-indent-modified-heading-flag (save-excursion (goto-char beg) (beginning-of-line) @@ -414,7 +414,7 @@ This function is meant to be called by `after-change-functions'." (goto-char end) (org-with-limited-levels (outline-next-heading)) (point)))) - (setq org-indent-modified-headline-flag nil) + (setq org-indent-modified-heading-flag nil) (org-indent-add-properties beg end)) ;; Otherwise, only set properties on modified area. (org-indent-add-properties beg end)))))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0042-Deprecate-org-html-self-link-headlines.patch >From 595249b497286c989ac66df43edd03dcad56ea39 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:55:44 +0300 Subject: [PATCH 42/76] Deprecate org-html-self-link-headlines. --- lisp/org-compat.el | 2 ++ lisp/ox-html.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c6c1a58b7..059c656b2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -384,6 +384,8 @@ Counting starts at 1." 'org-html-format-heading-function "9.5") (define-obsolete-function-alias 'org-html-headline 'org-html-heading "9.5") +(define-obsolete-variable-alias 'org-html-self-link-headlines + 'org-html-self-link-headings "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 6647df3f6..9a00c11f1 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -155,7 +155,7 @@ (:html-postamble-format nil nil org-html-postamble-format) (:html-preamble-format nil nil org-html-preamble-format) (:html-prefer-user-labels nil nil org-html-prefer-user-labels) - (:html-self-link-headlines nil nil org-html-self-link-headlines) + (:html-self-link-headlines nil nil org-html-self-link-headings) (:html-table-align-individual-fields nil nil org-html-table-align-individual-fields) (:html-table-caption-above nil nil org-html-table-caption-above) @@ -731,7 +731,7 @@ but without \"name\" attribute." :package-version '(Org . "8.0") :type 'boolean) -(defcustom org-html-self-link-headlines nil +(defcustom org-html-self-link-headings nil "When non-nil, the headings contain a hyperlink to themselves." :group 'org-export-html :package-version '(Org . "9.3") -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0041-Deprecate-org-html-headline.patch >From a434a8962d1814c7a7983b4e7ab74683c665e651 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:53:45 +0300 Subject: [PATCH 41/76] Deprecate org-html-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-html.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 7d732300a..c6c1a58b7 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -382,6 +382,8 @@ Counting starts at 1." 'org-html-format-heading-default-function "9.5") (define-obsolete-variable-alias 'org-html-format-headline-function 'org-html-format-heading-function "9.5") +(define-obsolete-function-alias 'org-html-headline + 'org-html-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-html.el b/lisp/ox-html.el index eed29b80c..6647df3f6 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -64,7 +64,7 @@ (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) - (headline . org-html-headline) + (headline . org-html-heading) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) @@ -2601,7 +2601,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Heading -(defun org-html-headline (heading contents info) +(defun org-html-heading (heading contents info) "Transcode a HEADING element from Org to HTML. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0040-Deprecate-org-html-format-headline-function.patch >From 23c3710a80909d246c3c1cd945758f9909ec835b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:51:44 +0300 Subject: [PATCH 40/76] Deprecate org-html-format-headline-function. --- lisp/org-compat.el | 2 ++ lisp/ox-html.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 0f412b6a8..7d732300a 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -380,6 +380,8 @@ Counting starts at 1." 'org-fontify-todo-heading "9.5") (define-obsolete-function-alias 'org-html-format-headline-default-function 'org-html-format-heading-default-function "9.5") +(define-obsolete-variable-alias 'org-html-format-headline-function + 'org-html-format-heading-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 4d1694a23..eed29b80c 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -140,7 +140,7 @@ (:html-footnote-separator nil nil org-html-footnote-separator) (:html-footnotes-section nil nil org-html-footnotes-section) (:html-format-drawer-function nil nil org-html-format-drawer-function) - (:html-format-headline-function nil nil org-html-format-headline-function) + (:html-format-headline-function nil nil org-html-format-heading-function) (:html-format-inlinetask-function nil nil org-html-format-inlinetask-function) (:html-home/up-format nil nil org-html-home/up-format) @@ -702,7 +702,7 @@ document title." :group 'org-export-html :type 'integer) -(defcustom org-html-format-headline-function +(defcustom org-html-format-heading-function 'org-html-format-heading-default-function "Function to format heading text. @@ -2676,7 +2676,7 @@ holding contextual information." (defun org-html-format-heading-default-function (todo _todo-type priority text tags info) "Default format function for a heading. -See `org-html-format-headline-function' for details." +See `org-html-format-heading-function' for details." (let ((todo (org-html--todo todo info)) (priority (org-html--priority priority info)) (tags (org-html--tags tags info))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0039-Deprecate-org-html-format-headline-default-function.patch >From cb6e51f5ba25b0d6a108a10ee5c4754fc48d0e21 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:47:38 +0300 Subject: [PATCH 39/76] Deprecate org-html-format-headline-default-function. --- lisp/org-compat.el | 2 ++ lisp/ox-html.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 86a50e473..0f412b6a8 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -378,6 +378,8 @@ Counting starts at 1." 'org-fontify-done-heading "9.5") (define-obsolete-variable-alias 'org-fontify-todo-headline 'org-fontify-todo-heading "9.5") +(define-obsolete-function-alias 'org-html-format-headline-default-function + 'org-html-format-heading-default-function "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-html.el b/lisp/ox-html.el index cd25d0557..4d1694a23 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -703,7 +703,7 @@ document title." :type 'integer) (defcustom org-html-format-headline-function - 'org-html-format-headline-default-function + 'org-html-format-heading-default-function "Function to format heading text. This function will be called with six arguments: @@ -2673,7 +2673,7 @@ holding contextual information." (concat (org-html-section first-content "" info) contents)) (org-html--container heading info))))))) -(defun org-html-format-headline-default-function +(defun org-html-format-heading-default-function (todo _todo-type priority text tags info) "Default format function for a heading. See `org-html-format-headline-function' for details." @@ -2736,7 +2736,7 @@ holding contextual information." "Default format function for inlinetasks. See `org-html-format-inlinetask-function' for details." (format "
\n%s%s\n%s
" - (org-html-format-headline-default-function + (org-html-format-heading-default-function todo todo-type priority text tags info) (org-html-close-tag "br" nil info) contents)) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0038-Deprecate-org-html-format-toc-headline.patch >From 2124e2b0049d95f6ee9cfe56766bd07d96939eb6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:43:54 +0300 Subject: [PATCH 38/76] Deprecate org-html--format-toc-headline. Not deprecated since the function is internal. --- lisp/ox-html.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 4adf43423..cd25d0557 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2313,7 +2313,7 @@ is an element defining the scope of the table. Return the table of contents as a string, or nil if it is empty." (let ((toc-entries (mapcar (lambda (heading) - (cons (org-html--format-toc-headline heading info) + (cons (org-html--format-toc-heading heading info) (org-export-get-relative-level heading info))) (org-export-collect-headings info depth scope)))) (when toc-entries @@ -2357,7 +2357,7 @@ and value is its relative level, as an integer." toc-entries "") (org-html--make-string (- prev-level start-level) "\n\n")))) -(defun org-html--format-toc-headline (heading info) +(defun org-html--format-toc-heading (heading info) "Return an appropriate table of contents entry for HEADING. INFO is a plist used as a communication channel." (let* ((heading-number (org-export-get-heading-number heading info)) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0037-Deprecate-org-headline-todo.patch >From 8c026cd20fa871f3b507d06df44e4457c75303bb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:41:39 +0300 Subject: [PATCH 37/76] Deprecate org-headline-todo. --- lisp/org-compat.el | 1 + lisp/org-faces.el | 2 +- lisp/org.el | 4 ++-- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index dc5150f0e..86a50e473 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -380,6 +380,7 @@ Counting starts at 1." 'org-fontify-todo-heading "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") +(define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 8e37c55a6..1d8859836 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -267,7 +267,7 @@ is of course immediately visible, but for example a passed deadline is of the frame, for example." :group 'org-faces) -(defface org-headline-todo ;Copied from `font-lock-string-face' +(defface org-heading-todo ;Copied from `font-lock-string-face' '((((class color) (min-colors 16) (background light)) (:foreground "Red4")) (((class color) (min-colors 16) (background dark)) (:foreground "Pink2")) (((class color) (min-colors 8) (background light)) (:bold t))) diff --git a/lisp/org.el b/lisp/org.el index 8ebee49f9..e06fe6937 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3631,7 +3631,7 @@ hide them with `org-toggle-custom-properties-visibility'." "Non-nil means change the face of a heading if it is marked as TODO. Normally, only the TODO/DONE keyword indicates the state of a heading. When this is non-nil, the heading after the keyword is set to the -`org-headline-todo' as an additional indication." +`org-heading-todo' as an additional indication." :group 'org-appearance :package-version '(Org . "9.4") :type 'boolean @@ -5714,7 +5714,7 @@ needs to be inserted at a specific position in the font-lock sequence.") "\\(?:" (mapconcat 'regexp-quote org-not-done-keywords "\\|") "\\)")) - '(2 'org-headline-todo prepend))) + '(2 'org-heading-todo prepend))) ;; DONE (when org-fontify-done-heading (list (format org-heading-keyword-regexp-format -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0036-Deprecate-org-headline-done.patch >From 13954bba36a986eb6f6a69f539b94c3cd0274da7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:39:44 +0300 Subject: [PATCH 36/76] Deprecate org-headline-done. --- lisp/org-compat.el | 2 ++ lisp/org-faces.el | 2 +- lisp/org.el | 4 ++-- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index fca87f9ca..dc5150f0e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -379,6 +379,8 @@ Counting starts at 1." (define-obsolete-variable-alias 'org-fontify-todo-headline 'org-fontify-todo-heading "9.5") +(define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") + (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." (save-match-data diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 76344f51d..8e37c55a6 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -276,7 +276,7 @@ This face is only used if `org-fontify-todo-heading' is set. If applies to the part of the heading after the TODO keyword." :group 'org-faces) -(defface org-headline-done ;Copied from `font-lock-string-face' +(defface org-heading-done ;Copied from `font-lock-string-face' '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8) (background light)) (:bold nil))) diff --git a/lisp/org.el b/lisp/org.el index e13162e23..8ebee49f9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3641,7 +3641,7 @@ When this is non-nil, the heading after the keyword is set to the "Non-nil means change the face of a heading if it is marked DONE. Normally, only the TODO/DONE keyword indicates the state of a heading. When this is non-nil, the heading after the keyword is set to the -`org-headline-done' as an additional indication." +`org-heading-done' as an additional indication." :group 'org-appearance :package-version '(Org . "9.4") :type 'boolean) @@ -5722,7 +5722,7 @@ needs to be inserted at a specific position in the font-lock sequence.") "\\(?:" (mapconcat 'regexp-quote org-done-keywords "\\|") "\\)")) - '(2 'org-headline-done prepend))) + '(2 'org-heading-done prepend))) ;; Priorities '(org-font-lock-add-priority-faces) ;; Tags -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0035-Deprecate-org-fontify-todo-headline.patch >From 569b4cec0c8a631b5d51f38ed71686194aec8358 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:36:56 +0300 Subject: [PATCH 35/76] Deprecate org-fontify-todo-headline. --- lisp/org-compat.el | 2 ++ lisp/org-faces.el | 2 +- lisp/org.el | 4 ++-- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 73e4612c4..fca87f9ca 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -376,6 +376,8 @@ Counting starts at 1." 'org-first-heading-recenter "9.5") (define-obsolete-variable-alias 'org-fontify-done-headline 'org-fontify-done-heading "9.5") +(define-obsolete-variable-alias 'org-fontify-todo-headline + 'org-fontify-todo-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 84cc9fde8..76344f51d 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -272,7 +272,7 @@ of the frame, for example." (((class color) (min-colors 16) (background dark)) (:foreground "Pink2")) (((class color) (min-colors 8) (background light)) (:bold t))) "Face used to indicate that a heading is marked as TODO. -This face is only used if `org-fontify-todo-headline' is set. If applies +This face is only used if `org-fontify-todo-heading' is set. If applies to the part of the heading after the TODO keyword." :group 'org-faces) diff --git a/lisp/org.el b/lisp/org.el index 39e7de143..e13162e23 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3627,7 +3627,7 @@ hide them with `org-toggle-custom-properties-visibility'." :version "24.3" :type '(repeat (string :tag "Property Name"))) -(defcustom org-fontify-todo-headline nil +(defcustom org-fontify-todo-heading nil "Non-nil means change the face of a heading if it is marked as TODO. Normally, only the TODO/DONE keyword indicates the state of a heading. When this is non-nil, the heading after the keyword is set to the @@ -5708,7 +5708,7 @@ needs to be inserted at a specific position in the font-lock sequence.") org-todo-regexp) '(2 (org-get-todo-face 2) prepend)) ;; TODO - (when org-fontify-todo-headline + (when org-fontify-todo-heading (list (format org-heading-keyword-regexp-format (concat "\\(?:" -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0034-Deprecate-org-fontify-done-headline.patch >From 71b13e6178f233399d04f3064a007811aeb3e882 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:35:46 +0300 Subject: [PATCH 34/76] Deprecate org-fontify-done-headline. --- lisp/org-compat.el | 2 ++ lisp/org-faces.el | 2 +- lisp/org.el | 4 ++-- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 1e68d0ac1..73e4612c4 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -374,6 +374,8 @@ Counting starts at 1." 'org-find-top-heading "9.5") (define-obsolete-function-alias 'org-first-headline-recenter 'org-first-heading-recenter "9.5") +(define-obsolete-variable-alias 'org-fontify-done-headline + 'org-fontify-done-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org-faces.el b/lisp/org-faces.el index aabf1f825..84cc9fde8 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -281,7 +281,7 @@ to the part of the heading after the TODO keyword." (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8) (background light)) (:bold nil))) "Face used to indicate that a heading is DONE. -This face is only used if `org-fontify-done-headline' is set. If applies +This face is only used if `org-fontify-done-heading' is set. If applies to the part of the heading after the DONE keyword." :group 'org-faces) diff --git a/lisp/org.el b/lisp/org.el index 6ff55c6fc..39e7de143 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3637,7 +3637,7 @@ When this is non-nil, the heading after the keyword is set to the :type 'boolean :safe #'booleanp) -(defcustom org-fontify-done-headline t +(defcustom org-fontify-done-heading t "Non-nil means change the face of a heading if it is marked DONE. Normally, only the TODO/DONE keyword indicates the state of a heading. When this is non-nil, the heading after the keyword is set to the @@ -5716,7 +5716,7 @@ needs to be inserted at a specific position in the font-lock sequence.") "\\)")) '(2 'org-headline-todo prepend))) ;; DONE - (when org-fontify-done-headline + (when org-fontify-done-heading (list (format org-heading-keyword-regexp-format (concat "\\(?:" -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0033-Deprecate-org-first-headline-recenter.patch >From 6e60841b092c93dd0eeba95284240b2107dff031 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:33:36 +0300 Subject: [PATCH 33/76] Deprecate org-first-headline-recenter. --- lisp/org-compat.el | 2 ++ lisp/org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c5701d367..1e68d0ac1 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -372,6 +372,8 @@ Counting starts at 1." 'org-find-exact-heading-in-buffer "9.5") (define-obsolete-function-alias 'org-find-top-headline 'org-find-top-heading "9.5") +(define-obsolete-function-alias 'org-first-headline-recenter + 'org-first-heading-recenter "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org.el b/lisp/org.el index 8a70013cb..6ff55c6fc 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -1830,7 +1830,7 @@ doesn't specify any upper case character." (const :tag "Case-insensitive" t) (const :tag "Case-insensitive for lower case searches only" smart))) -(defcustom org-occur-hook '(org-first-headline-recenter) +(defcustom org-occur-hook '(org-first-heading-recenter) "Hook that is run after `org-occur' has constructed a sparse tree. This can be used to recenter the window to show as much of the structure as possible." @@ -6041,7 +6041,7 @@ open and agenda-wise Org files." (pos-visible-in-window-p (save-excursion (org-end-of-subtree t) (point)))) -(defun org-first-headline-recenter () +(defun org-first-heading-recenter () "Move cursor to the first heading and recenter the heading." (let ((window (get-buffer-window))) (when window -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0032-Deprecate-org-find-top-headline.patch >From 7b681816c13c02689a96e6a892dfbf4bde51a2fb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:32:24 +0300 Subject: [PATCH 32/76] Deprecate org-find-top-headline. --- lisp/org-agenda.el | 6 +++--- lisp/org-compat.el | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d26b254a0..f935dbc01 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7686,7 +7686,7 @@ filter." 'category)) (t (error "No category at point")))))) -(defun org-find-top-headline (&optional pos) +(defun org-find-top-heading (&optional pos) "Find the topmost parent heading and return it. POS when non-nil is the marker or buffer position to start the search from." @@ -7711,7 +7711,7 @@ all lines of the category at point." (setq org-agenda-filtered-by-top-heading nil org-agenda-top-heading-filter nil) (org-agenda-filter-show-all-top-filter)) - (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker)))) + (let ((toph (org-find-top-heading (org-get-at-bol 'org-hd-marker)))) (if toph (org-agenda-filter-top-heading-apply toph strip) (error "No top-level heading at point"))))) @@ -8237,7 +8237,7 @@ grouptags." (goto-char (point-min)) (while (not (eobp)) (let* ((pos (org-get-at-bol 'org-hd-marker)) - (top-heading (and pos (org-find-top-headline pos)))) + (top-heading (and pos (org-find-top-heading pos)))) (when (and top-heading (funcall (if negative 'identity 'not) (string= heading top-heading))) (org-agenda-filter-hide-line 'top-headline))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c9b4511f5..c5701d367 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -370,6 +370,8 @@ Counting starts at 1." 'org-export-numbered-heading-p "9.5") (define-obsolete-function-alias 'org-find-exact-headline-in-buffer 'org-find-exact-heading-in-buffer "9.5") +(define-obsolete-function-alias 'org-find-top-headline + 'org-find-top-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0031-Deprecate-org-find-exact-headline-in-buffer.patch >From 15e88ab6e31f4e9c65ef56aca00cb535e4157ad7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:46:07 +0300 Subject: [PATCH 31/76] Deprecate org-find-exact-headline-in-buffer. --- lisp/org-compat.el | 2 ++ lisp/org.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 4de2f4de6..c9b4511f5 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -368,6 +368,8 @@ Counting starts at 1." 'org-export-heading-levels "9.5") (define-obsolete-function-alias 'org-export-numbered-headline-p 'org-export-numbered-heading-p "9.5") +(define-obsolete-function-alias 'org-find-exact-headline-in-buffer + 'org-find-exact-heading-in-buffer "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org.el b/lisp/org.el index 6b488c629..8a70013cb 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13738,7 +13738,7 @@ only headings." (when (org-at-heading-p) (point-marker)))))) -(defun org-find-exact-headline-in-buffer (heading &optional buffer pos-only) +(defun org-find-exact-heading-in-buffer (heading &optional buffer pos-only) "Find node HEADING in BUFFER. Return a marker to the heading if it was found, or nil if not. If POS-ONLY is set, return just the position instead of a marker. @@ -13767,7 +13767,7 @@ When the target heading is found, return a marker to this location." (message "trying %s" file) (setq visiting (org-find-base-buffer-visiting file)) (setq buffer (or visiting (find-file-noselect file))) - (setq m (org-find-exact-headline-in-buffer + (setq m (org-find-exact-heading-in-buffer heading buffer)) (when (and (not m) (not visiting)) (kill-buffer buffer)) (and m (throw 'found m)))))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0030-Deprecate-org-export-numbered-headline-p.patch >From c979c9f6de0adb43561307a9896f010d04169dea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:44:40 +0300 Subject: [PATCH 30/76] Deprecate org-export-numbered-headline-p. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 8 ++++---- lisp/ox-html.el | 8 ++++---- lisp/ox-latex.el | 4 ++-- lisp/ox-md.el | 6 +++--- lisp/ox-odt.el | 14 +++++++------- lisp/ox-texinfo.el | 2 +- lisp/ox.el | 6 +++--- testing/lisp/test-ox.el | 14 +++++++------- 9 files changed, 33 insertions(+), 31 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 07e8ed046..4de2f4de6 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -366,6 +366,8 @@ Counting starts at 1." 'org-export-get-parent-heading "9.5") (define-obsolete-variable-alias 'org-export-headline-levels 'org-export-heading-levels "9.5") +(define-obsolete-function-alias 'org-export-numbered-headline-p + 'org-export-numbered-heading-p "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 416074e59..b56e924cf 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -658,7 +658,7 @@ possible. It doesn't apply to `inlinetask' elements." (numbers ;; Numbering is specific to headings. (and headingp - (org-export-numbered-headline-p element info) + (org-export-numbered-heading-p element info) (let ((numbering (org-export-get-heading-number element info))) (if toc (format "%d. " (org-last numbering)) (concat (mapconcat #'number-to-string numbering ".") @@ -897,7 +897,7 @@ as a plist." (`plain-text (format "See file %s" datum)) ;External file (`headline (format (org-ascii--translate "See section %s" info) - (if (org-export-numbered-headline-p datum info) + (if (org-export-numbered-heading-p datum info) (mapconcat #'number-to-string (org-export-get-heading-number datum info) ".") @@ -913,7 +913,7 @@ as a plist." (pcase (org-element-type enumerable) (`headline (format (org-ascii--translate "See section %s" info) - (if (org-export-numbered-headline-p enumerable info) + (if (org-export-numbered-heading-p enumerable info) (mapconcat #'number-to-string number ".") (org-export-data (org-element-property :title enumerable) info)))) @@ -1598,7 +1598,7 @@ INFO is a plist holding contextual information." ;; External file. (`plain-text destination) (`headline - (if (org-export-numbered-headline-p destination info) + (if (org-export-numbered-heading-p destination info) (mapconcat #'number-to-string (org-export-get-heading-number destination info) ".") diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 9d4210e23..4adf43423 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2379,7 +2379,7 @@ INFO is a plist used as a communication channel." ;; Body. (concat (and (not (org-export-low-level-p heading info)) - (org-export-numbered-headline-p heading info) + (org-export-numbered-heading-p heading info) (concat (mapconcat #'number-to-string heading-number ".") ". ")) (apply (plist-get info :html-format-headline-function) @@ -2606,7 +2606,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." (unless (org-element-property :footnote-section-p heading) - (let* ((numberedp (org-export-numbered-headline-p heading info)) + (let* ((numberedp (org-export-numbered-heading-p heading info)) (numbers (org-export-get-heading-number heading info)) (level (+ (org-export-get-relative-level heading info) (1- (plist-get info :html-toplevel-hlevel)))) @@ -3168,7 +3168,7 @@ INFO is a plist holding contextual information. See (desc ;; Case 1: Heading is numbered and LINK has no ;; description. Display section number. - (if (and (org-export-numbered-headline-p destination info) + (if (and (org-export-numbered-heading-p destination info) (not desc)) (mapconcat #'number-to-string (org-export-get-heading-number @@ -3421,7 +3421,7 @@ holding contextual information." (let* ((class-num (+ (org-export-get-relative-level parent info) (1- (plist-get info :html-toplevel-hlevel)))) (section-number - (and (org-export-numbered-headline-p parent info) + (and (org-export-numbered-heading-p parent info) (mapconcat #'number-to-string (org-export-get-heading-number parent info) "-")))) diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index dd8776796..fcec36d35 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1956,7 +1956,7 @@ holding contextual information." (unless (org-element-property :footnote-section-p heading) (let* ((class (plist-get info :latex-class)) (level (org-export-get-relative-level heading info)) - (numberedp (org-export-numbered-headline-p heading info)) + (numberedp (org-export-numbered-heading-p heading info)) (class-sectioning (assoc class (plist-get info :latex-classes))) ;; Section formatting will set two placeholders: one for ;; the title and the other for the contents. @@ -2622,7 +2622,7 @@ INFO is a plist holding contextual information. See (headline (let ((label (org-latex--label destination info t))) (if (and (not desc) - (org-export-numbered-headline-p destination info)) + (org-export-numbered-heading-p destination info)) (format org-latex-reference-command label) (format "\\hyperref[%s]{%s}" label (or desc diff --git a/lisp/ox-md.el b/lisp/ox-md.el index d453fdd0e..d774e4600 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -239,7 +239,7 @@ contents according to the specified element." (* 4 (1- (org-export-get-relative-level heading info))) ?\s)) (bullet - (if (not (org-export-numbered-headline-p heading info)) "- " + (if (not (org-export-numbered-heading-p heading info)) "- " (let ((prefix (format "%d." (org-last (org-export-get-heading-number heading info))))) @@ -374,7 +374,7 @@ a communication channel." (and (eq style 'atx) (> level 6)) (and (eq style 'setext) (> level 2))) (let ((bullet - (if (not (org-export-numbered-headline-p heading info)) "-" + (if (not (org-export-numbered-heading-p heading info)) "-" (concat (number-to-string (car (last (org-export-get-heading-number heading info)))) @@ -539,7 +539,7 @@ INFO is a plist holding contextual information. See "[%s](#%s)" ;; Description. (cond ((org-string-nw-p desc)) - ((org-export-numbered-headline-p destination info) + ((org-export-numbered-heading-p destination info) (mapconcat #'number-to-string (org-export-get-heading-number destination info) ".")) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index c7bcacb4d..a639c6802 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1758,7 +1758,7 @@ INFO is a plist holding contextual information." (setq backend (or backend (plist-get info :back-end))) (let* ((level (+ (org-export-get-relative-level heading info))) (heading-number (org-export-get-heading-number heading info)) - (section-number (and (org-export-numbered-headline-p heading info) + (section-number (and (org-export-numbered-heading-p heading info) (mapconcat 'number-to-string heading-number "."))) (todo (and (plist-get info :with-todo-keywords) @@ -1796,7 +1796,7 @@ holding contextual information." (let* ((full-text (org-odt-format-headline--wrap heading nil info)) ;; Get level relative to current parsed data. (level (org-export-get-relative-level heading info)) - (numbered (org-export-numbered-headline-p heading info)) + (numbered (org-export-numbered-heading-p heading info)) ;; Get canonical label for the heading. (id (org-export-get-reference heading info)) ;; Extra targets. @@ -2057,7 +2057,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (cl-loop for x in (org-element-lineage element) thereis (and (eq (org-element-type x) 'headline) (<= (org-export-get-relative-level x info) n) - (org-export-numbered-headline-p x info) + (org-export-numbered-heading-p x info) x)))) (--enumerate (lambda (element scope info &optional predicate) @@ -2637,7 +2637,7 @@ Return nil, otherwise." (listified-headline-nos (cl-loop for el in listified-headlines when (eq (org-element-type el) 'headline) - collect (when (org-export-numbered-headline-p el info) + collect (when (org-export-numbered-heading-p el info) (1+ (length (org-export-get-previous-element el info t))))))) ;; Combine item numbers from both the listified headings and @@ -2657,11 +2657,11 @@ Return nil, otherwise." (let ((heading (and ;; Test if destination is a numbered heading. - (org-export-numbered-headline-p destination info) + (org-export-numbered-heading-p destination info) (cl-loop for el in (cons destination genealogy) when (and (eq (org-element-type el) 'headline) (not (org-export-low-level-p el info)) - (org-export-numbered-headline-p el info)) + (org-export-numbered-heading-p el info)) return el)))) ;; We found one. (when heading @@ -3504,7 +3504,7 @@ pertaining to indentation here." (setq parent-list el) (cons "" (format "\n" - (if (org-export-numbered-headline-p + (if (org-export-numbered-heading-p el info) "OrgNumberedList" "OrgBulletedList") diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index d2586e740..ec01523f6 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -873,7 +873,7 @@ holding contextual information." (t (let* ((index (let ((i (org-export-get-node-property :INDEX heading t))) (and (member i '("cp" "fn" "ky" "pg" "tp" "vr")) i))) - (numbered? (org-export-numbered-headline-p heading info)) + (numbered? (org-export-numbered-heading-p heading info)) (notoc? (org-export-excluded-from-toc-p heading info)) (command (and diff --git a/lisp/ox.el b/lisp/ox.el index b109f0fee..60f9527dc 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -1684,7 +1684,7 @@ for a footnotes section." (let ((numbering (make-vector org-export-max-depth 0))) (org-element-map data 'headline (lambda (heading) - (when (and (org-export-numbered-headline-p heading options) + (when (and (org-export-numbered-heading-p heading options) (not (org-element-property :footnote-section-p heading))) (let ((relative-level (1- (org-export-get-relative-level heading options)))) @@ -3949,10 +3949,10 @@ and the last level being considered as high enough, or nil." (defun org-export-get-heading-number (heading info) "Return numbered HEADING numbering as a list of numbers. INFO is a plist holding contextual information." - (and (org-export-numbered-headline-p heading info) + (and (org-export-numbered-heading-p heading info) (cdr (assq heading (plist-get info :headline-numbering))))) -(defun org-export-numbered-headline-p (heading info) +(defun org-export-numbered-heading-p (heading info) "Return a non-nil value if HEADING element should be numbered. INFO is a plist used as a communication channel." (unless (org-not-nil (org-export-get-node-property :UNNUMBERED heading t)) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index e193b7d05..790ef93da 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -2661,12 +2661,12 @@ Para2" info)))))) (ert-deftest test-org-export/numbered-headline-p () - "Test `org-export-numbered-headline-p' specifications." + "Test `org-export-numbered-heading-p' specifications." ;; If `:section-numbers' is nil, never number headings. (should-not (org-test-with-parsed-data "* Headline" (org-element-map tree 'headline - (lambda (h) (org-export-numbered-headline-p h info)) + (lambda (h) (org-export-numbered-heading-p h info)) (plist-put info :section-numbers nil)))) ;; If `:section-numbers' is a number, only number headings with ;; a level greater that it. @@ -2675,24 +2675,24 @@ Para2" '(yes no) (org-test-with-parsed-data "* Headline 1\n** Headline 2" (org-element-map tree 'headline - (lambda (h) (if (org-export-numbered-headline-p h info) 'yes 'no)) + (lambda (h) (if (org-export-numbered-heading-p h info) 'yes 'no)) (plist-put info :section-numbers 1))))) ;; Otherwise, headings are always numbered. (should (org-test-with-parsed-data "* Headline" (org-element-map tree 'headline - (lambda (h) (org-export-numbered-headline-p h info)) + (lambda (h) (org-export-numbered-heading-p h info)) (plist-put info :section-numbers t)))) ;; With #+OPTIONS: num:nil all headings are unnumbered. (should-not (org-test-with-parsed-data "* H\n#+OPTIONS: num:nil" - (org-export-numbered-headline-p + (org-export-numbered-heading-p (org-element-map tree 'headline 'identity info t) info))) ;; Headings with a non-nil UNNUMBERED property are not numbered. (should-not (org-test-with-parsed-data "* H\n:PROPERTIES:\n:UNNUMBERED: t\n:END:" - (org-export-numbered-headline-p + (org-export-numbered-heading-p (org-element-map tree 'headline #'identity info t) info))) ;; UNNUMBERED is inherited. @@ -2710,7 +2710,7 @@ Para2" ** H3" (org-element-map tree 'headline (lambda (h) - (if (org-export-numbered-headline-p h info) 'numbered + (if (org-export-numbered-heading-p h info) 'numbered 'unnumbered)) info))))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0029-Deprecate-org-export-headline-levels.patch >From ddbed731d2a54fcbcd34d25194e7005d71d4bec1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:42:09 +0300 Subject: [PATCH 29/76] Deprecate org-export-headline-levels. --- lisp/org-compat.el | 2 ++ lisp/ox-publish.el | 2 +- lisp/ox.el | 10 +++++----- 3 files changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 6c5932577..07e8ed046 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -364,6 +364,8 @@ Counting starts at 1." 'org-export-get-heading-number "9.5") (define-obsolete-function-alias 'org-export-get-parent-headline 'org-export-get-parent-heading "9.5") +(define-obsolete-variable-alias 'org-export-headline-levels + 'org-export-heading-levels "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 8ab61ad94..08052a96b 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -163,7 +163,7 @@ included. See the back-end documentation for more information. :creator `org-export-creator-string' :email `user-mail-address' :exclude-tags `org-export-exclude-tags' - :headline-levels `org-export-headline-levels' + :headline-levels `org-export-heading-levels' :language `org-export-default-language' :preserve-breaks `org-export-preserve-breaks' :section-numbers `org-export-with-section-numbers' diff --git a/lisp/ox.el b/lisp/ox.el index 74c4bc057..b109f0fee 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -111,7 +111,7 @@ (:select-tags "SELECT_TAGS" nil org-export-select-tags split) (:exclude-tags "EXCLUDE_TAGS" nil org-export-exclude-tags split) (:creator "CREATOR" nil org-export-creator-string) - (:headline-levels nil "H" org-export-headline-levels) + (:headline-levels nil "H" org-export-heading-levels) (:preserve-breaks nil "\\n" org-export-preserve-breaks) (:section-numbers nil "num" org-export-with-section-numbers) (:time-stamp-file nil "timestamp" org-export-time-stamp-file) @@ -508,7 +508,7 @@ t Allow export of math snippets." (const :tag "Leave math verbatim" verbatim)) :safe (lambda (x) (memq x '(t nil verbatim)))) -(defcustom org-export-headline-levels 3 +(defcustom org-export-heading-levels 3 "The last level which is still exported as a heading. Inferior levels will usually produce itemize or enumerate lists @@ -715,11 +715,11 @@ frequently in plain text." "Non-nil means create a table of contents in exported files. The table of contents contains headings with levels up to -`org-export-headline-levels'. +`org-export-heading-levels'. When this variable is set to an integer N, include levels up to N in the table of contents. Although it may then be different -from `org-export-headline-levels', it is cannot be larger than +from `org-export-heading-levels', it is cannot be larger than the number of heading levels. When nil, no table of contents is created. @@ -5272,7 +5272,7 @@ INFO is a plist used as a communication channel. When optional argument N is an integer, it specifies the depth of the table of contents. Otherwise, it is set to the value of the -last heading level. See `org-export-headline-levels' for more +last heading level. See `org-export-heading-levels' for more information. Optional argument SCOPE, when non-nil, is an element. If it is -- 2.33.0 --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: attachment; filename=0028-Deprecate-org-export-get-parent-headline.patch Content-Transfer-Encoding: quoted-printable >From 7d390733a423b75765f5716bdd8d1bce592c3385 Mon Sep 17 00:00:00 2001 From: =3D?UTF-8?q?Andr=3DC3=3DA9=3D20A=3D2E=3D20Gomes?=3D Date: Fri, 8 Oct 2021 18:40:38 +0300 Subject: [PATCH 28/76] Deprecate org-export-get-parent-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 6 +++--- lisp/ox-beamer.el | 2 +- lisp/ox-html.el | 2 +- lisp/ox-odt.el | 2 +- lisp/ox-org.el | 2 +- lisp/ox-publish.el | 2 +- lisp/ox-texinfo.el | 2 +- lisp/ox.el | 8 ++++---- 9 files changed, 15 insertions(+), 13 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 870cc046e..6c5932577 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -362,6 +362,8 @@ Counting starts at 1." 'org-export-filter-heading-functions "9.5") (define-obsolete-function-alias 'org-export-get-headline-number 'org-export-get-heading-number "9.5") +(define-obsolete-function-alias 'org-export-get-parent-headline + 'org-export-get-parent-heading "9.5") =20 (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 0e3d27791..416074e59 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -575,7 +575,7 @@ INFO is a plist used as a communication channel." ;; No inlinetask: Remove global margin from text width. (- (plist-get info :ascii-text-width) (plist-get info :ascii-global-margin) - (let ((parent (org-export-get-parent-headline element))) + (let ((parent (org-export-get-parent-heading element))) ;; Inner margin doesn't apply to text before first ;; heading. (if (not parent) 0 @@ -1404,7 +1404,7 @@ of the parameters." (make-string width (if utf8p ?=E2=94=81 ?_))) ;; Flush the inlinetask to the right. (- (plist-get info :ascii-text-width) (plist-get info :ascii-global-m= argin) - (if (not (org-export-get-parent-headline inlinetask)) 0 + (if (not (org-export-get-parent-heading inlinetask)) 0 (plist-get info :ascii-inner-margin)) (org-ascii--current-text-width inlinetask info))))) =20 @@ -1754,7 +1754,7 @@ contextual information." (if (not (org-string-nw-p links)) contents (concat (org-element-normalize-string contents) "\n\n" links)) ;; Do not apply inner margin if parent heading is low level. - (let ((heading (org-export-get-parent-headline section))) + (let ((heading (org-export-get-parent-heading section))) (if (or (not heading) (org-export-low-level-p heading info)) 0 (plist-get info :ascii-inner-margin)))))) =20 diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 5b5524966..e34c62410 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -513,7 +513,7 @@ used as a communication channel." ;; when there is no previous heading or the previous ;; heading do not have a BEAMER_column property. (parent-env (org-element-property - :BEAMER_ENV (org-export-get-parent-headline heading))) + :BEAMER_ENV (org-export-get-parent-heading heading))) (start-columns-p (or (equal environment "columns") (and column-width diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 1fbbb1e9a..9d4210e23 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -3414,7 +3414,7 @@ holding contextual information." "Transcode a SECTION element from Org to HTML. CONTENTS holds the contents of the section. INFO is a plist holding contextual information." - (let ((parent (org-export-get-parent-headline section))) + (let ((parent (org-export-get-parent-heading section))) ;; Before first heading: no container, just return CONTENTS. (if (not parent) contents ;; Get div's class and id references. diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index aab08973b..c7bcacb4d 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1819,7 +1819,7 @@ holding contextual information." ;; If top-level list, re-start numbering. Otherwise, ;; continue numbering. (format "text:continue-numbering=3D\"%s\"" - (let* ((parent (org-export-get-parent-headline + (let* ((parent (org-export-get-parent-heading heading))) (if (and parent (org-export-low-level-p parent info)) diff --git a/lisp/ox-org.el b/lisp/ox-org.el index bccead7f3..477c35adb 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -223,7 +223,7 @@ a communication channel." ;; them are included in the result. (let ((footnotes (org-element-map - (list (org-export-get-parent-headline section) section) + (list (org-export-get-parent-heading section) section) 'footnote-reference (lambda (fn) (and (eq (org-element-property :type fn) 'standard) diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 711573486..8ab61ad94 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1036,7 +1036,7 @@ its CDR is a string." (org-element-map (plist-get info :parse-tree) 'keyword (lambda (k) (when (equal (org-element-property :key k) "INDEX") - (let ((parent (org-export-get-parent-headline k))) + (let ((parent (org-export-get-parent-heading k))) (list (org-element-property :value k) file (cond diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 6dbc18ad2..d2586e740 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1400,7 +1400,7 @@ contextual information." "Transcode a SECTION element from Org to Texinfo. CONTENTS holds the contents of the section. INFO is a plist holding contextual information." - (let ((parent (org-export-get-parent-headline section))) + (let ((parent (org-export-get-parent-heading section))) (when parent ;first section is handled in `org-texinfo-template' (org-trim (concat contents diff --git a/lisp/ox.el b/lisp/ox.el index 32c679225..74c4bc057 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -4011,7 +4011,7 @@ inherited from a parent heading. =20 Return value is a string or nil." (let ((heading (if (eq (org-element-type datum) 'headline) datum - (org-export-get-parent-headline datum)))) + (org-export-get-parent-heading datum)))) (if (not inherited) (org-element-property property datum) (let ((parent heading)) (catch 'found @@ -5285,7 +5285,7 @@ Return a list of all exportable headings as parsed el= ements. Footnote sections are ignored." (let* ((scope (cond ((not scope) (plist-get info :parse-tree)) ((eq (org-element-type scope) 'headline) scope) - ((org-export-get-parent-headline scope)) + ((org-export-get-parent-heading scope)) (t (plist-get info :parse-tree)))) (limit (plist-get info :headline-levels)) (n (if (not (wholenump n)) limit @@ -5691,7 +5691,7 @@ Return the new string." ;; Here are various functions to retrieve information about the ;; neighborhood of a given element or object. Neighbors of interest ;; are direct parent (`org-export-get-parent'), parent heading -;; (`org-export-get-parent-headline'), first element containing an +;; (`org-export-get-parent-heading'), first element containing an ;; object, (`org-export-get-parent-element'), parent table ;; (`org-export-get-parent-table'), previous element or object ;; (`org-export-get-previous-element') and next element or object @@ -5699,7 +5699,7 @@ Return the new string." =20 ;; defsubst org-export-get-parent must be defined before first use =20 -(defun org-export-get-parent-headline (blob) +(defun org-export-get-parent-heading (blob) "Return BLOB parent heading or nil. BLOB is the element or object being considered." (org-element-lineage blob '(headline))) --=20 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0027-Deprecate-org-export-get-headline-number.patch >From c65ede78b139aee2274e8b38fcc2aaaff83c4b76 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:39:02 +0300 Subject: [PATCH 27/76] Deprecate org-export-get-headline-number. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 6 +++--- lisp/ox-html.el | 8 ++++---- lisp/ox-md.el | 6 +++--- lisp/ox-odt.el | 6 +++--- lisp/ox.el | 8 ++++---- testing/lisp/test-ox.el | 8 ++++---- 7 files changed, 23 insertions(+), 21 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index f8725cf39..870cc046e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -360,6 +360,8 @@ Counting starts at 1." 'org-export-collect-headings "9.5") (define-obsolete-variable-alias 'org-export-filter-headline-functions 'org-export-filter-heading-functions "9.5") +(define-obsolete-function-alias 'org-export-get-headline-number + 'org-export-get-heading-number "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index f848947fc..0e3d27791 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -659,7 +659,7 @@ possible. It doesn't apply to `inlinetask' elements." ;; Numbering is specific to headings. (and headingp (org-export-numbered-headline-p element info) - (let ((numbering (org-export-get-headline-number element info))) + (let ((numbering (org-export-get-heading-number element info))) (if toc (format "%d. " (org-last numbering)) (concat (mapconcat #'number-to-string numbering ".") " "))))) @@ -899,7 +899,7 @@ as a plist." (format (org-ascii--translate "See section %s" info) (if (org-export-numbered-headline-p datum info) (mapconcat #'number-to-string - (org-export-get-headline-number datum info) + (org-export-get-heading-number datum info) ".") (org-export-data (org-element-property :title datum) info)))) (_ @@ -1600,7 +1600,7 @@ INFO is a plist holding contextual information." (`headline (if (org-export-numbered-headline-p destination info) (mapconcat #'number-to-string - (org-export-get-headline-number destination info) + (org-export-get-heading-number destination info) ".") (org-export-data (org-element-property :title destination) info))) ;; Handle enumerable elements and targets within them. diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 39b3aec49..1fbbb1e9a 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2360,7 +2360,7 @@ and value is its relative level, as an integer." (defun org-html--format-toc-headline (heading info) "Return an appropriate table of contents entry for HEADING. INFO is a plist used as a communication channel." - (let* ((heading-number (org-export-get-headline-number heading info)) + (let* ((heading-number (org-export-get-heading-number heading info)) (todo (and (plist-get info :with-todo-keywords) (let ((todo (org-element-property :todo-keyword heading))) (and todo (org-export-data todo info))))) @@ -2607,7 +2607,7 @@ CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." (unless (org-element-property :footnote-section-p heading) (let* ((numberedp (org-export-numbered-headline-p heading info)) - (numbers (org-export-get-headline-number heading info)) + (numbers (org-export-get-heading-number heading info)) (level (+ (org-export-get-relative-level heading info) (1- (plist-get info :html-toplevel-hlevel)))) (todo (and (plist-get info :with-todo-keywords) @@ -3171,7 +3171,7 @@ INFO is a plist holding contextual information. See (if (and (org-export-numbered-headline-p destination info) (not desc)) (mapconcat #'number-to-string - (org-export-get-headline-number + (org-export-get-heading-number destination info) ".") ;; Case 2: Either the heading is un-numbered or ;; LINK has a custom description. Display LINK's @@ -3424,7 +3424,7 @@ holding contextual information." (and (org-export-numbered-headline-p parent info) (mapconcat #'number-to-string - (org-export-get-headline-number parent info) "-")))) + (org-export-get-heading-number parent info) "-")))) ;; Build return value. (format "
\n%s
\n" class-num diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 78f5cafa6..d453fdd0e 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -241,7 +241,7 @@ contents according to the specified element." (bullet (if (not (org-export-numbered-headline-p heading info)) "- " (let ((prefix - (format "%d." (org-last (org-export-get-headline-number + (format "%d." (org-last (org-export-get-heading-number heading info))))) (concat prefix (make-string (max 1 (- 4 (length prefix))) ?\s))))) @@ -376,7 +376,7 @@ a communication channel." (let ((bullet (if (not (org-export-numbered-headline-p heading info)) "-" (concat (number-to-string - (car (last (org-export-get-headline-number + (car (last (org-export-get-heading-number heading info)))) ".")))) (concat bullet (make-string (- 4 (length bullet)) ?\s) heading tags "\n\n" @@ -541,7 +541,7 @@ INFO is a plist holding contextual information. See (cond ((org-string-nw-p desc)) ((org-export-numbered-headline-p destination info) (mapconcat #'number-to-string - (org-export-get-headline-number destination info) + (org-export-get-heading-number destination info) ".")) (t (org-export-data (org-element-property :title destination) info))) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index c5ef01c75..aab08973b 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1757,7 +1757,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." INFO is a plist holding contextual information." (setq backend (or backend (plist-get info :back-end))) (let* ((level (+ (org-export-get-relative-level heading info))) - (heading-number (org-export-get-headline-number heading info)) + (heading-number (org-export-get-heading-number heading info)) (section-number (and (org-export-numbered-headline-p heading info) (mapconcat 'number-to-string heading-number "."))) @@ -2080,7 +2080,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;; Section number. (and scope (mapconcat 'number-to-string - (org-export-get-headline-number scope info) ".")) + (org-export-get-heading-number scope info) ".")) ;; Separator. (and scope ".") ;; Ordinal. @@ -2667,7 +2667,7 @@ Return nil, otherwise." (when heading (format "%s" label - (mapconcat 'number-to-string (org-export-get-headline-number + (mapconcat 'number-to-string (org-export-get-heading-number heading info) ".")))) ;; Case 4: Locate a regular heading in the hierarchy. Display ;; its title. diff --git a/lisp/ox.el b/lisp/ox.el index 1c9bfdc2c..32c679225 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -3907,10 +3907,10 @@ process, leading to a different order when footnotes are nested." ;; `org-export-get-relative-level' is a shortcut to get heading ;; level, relatively to the lower heading level in the parsed tree. ;; -;; `org-export-get-headline-number' returns the section number of an +;; `org-export-get-heading-number' returns the section number of an ;; heading, while `org-export-number-to-roman' allows it to be ;; converted to roman numbers. With an optional argument, -;; `org-export-get-headline-number' returns a number to unnumbered +;; `org-export-get-heading-number' returns a number to unnumbered ;; headings (used for internal id). ;; ;; `org-export-low-level-p', `org-export-first-sibling-p' and @@ -3946,7 +3946,7 @@ and the last level being considered as high enough, or nil." (let ((level (org-export-get-relative-level heading info))) (and (> level limit) (- level limit)))))) -(defun org-export-get-headline-number (heading info) +(defun org-export-get-heading-number (heading info) "Return numbered HEADING numbering as a list of numbers. INFO is a plist holding contextual information." (and (org-export-numbered-headline-p heading info) @@ -4559,7 +4559,7 @@ objects of the same type." '(footnote-definition footnote-reference headline item table)))) (cl-case (org-element-type element) ;; Special case 1: A heading returns its number as a list. - (headline (org-export-get-headline-number element info)) + (headline (org-export-get-heading-number element info)) ;; Special case 2: An item returns its number as a list. (item (let ((struct (org-element-property :structure element))) (org-list-get-item-number diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index de6d5957e..e193b7d05 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -2602,7 +2602,7 @@ Para2" (org-element-map tree 'headline (lambda (hl) (when (equal (org-element-property :raw-value hl) "H2") - (org-export-get-headline-number hl info))) + (org-export-get-heading-number hl info))) info t))))))) @@ -2640,7 +2640,7 @@ Para2" (plist-put info :headline-levels 1))))))) (ert-deftest test-org-export/get-headline-number () - "Test `org-export-get-headline-number' specifications." + "Test `org-export-get-heading-number' specifications." ;; Standard test. (should (equal @@ -2648,7 +2648,7 @@ Para2" (let ((org-odd-levels-only nil)) (org-test-with-parsed-data "* Headline 1\n** Headline 2" (org-element-map tree 'headline - (lambda (h) (org-export-get-headline-number h info)) + (lambda (h) (org-export-get-heading-number h info)) info))))) ;; Missing levels are replaced with 0. (should @@ -2657,7 +2657,7 @@ Para2" (let ((org-odd-levels-only nil)) (org-test-with-parsed-data "* Headline 1\n*** Headline 2" (org-element-map tree 'headline - (lambda (h) (org-export-get-headline-number h info)) + (lambda (h) (org-export-get-heading-number h info)) info)))))) (ert-deftest test-org-export/numbered-headline-p () -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0026-Deprecate-org-export-filter-headline-functions.patch >From 58a5bd067d317d779c95068932410e323deefd3a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:37:40 +0300 Subject: [PATCH 26/76] Deprecate org-export-filter-headline-functions. --- lisp/org-compat.el | 2 ++ lisp/ox.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 02370b3fb..f8725cf39 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -358,6 +358,8 @@ Counting starts at 1." 'org-element-heading-parser "9.5") (define-obsolete-function-alias 'org-export-collect-headlines 'org-export-collect-headings "9.5") +(define-obsolete-variable-alias 'org-export-filter-headline-functions + 'org-export-filter-heading-functions "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox.el b/lisp/ox.el index b9863d7e5..1c9bfdc2c 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -195,7 +195,7 @@ Properties redefined there have precedence over these.") (:filter-fixed-width . org-export-filter-fixed-width-functions) (:filter-footnote-definition . org-export-filter-footnote-definition-functions) (:filter-footnote-reference . org-export-filter-footnote-reference-functions) - (:filter-headline . org-export-filter-headline-functions) + (:filter-headline . org-export-filter-heading-functions) (:filter-horizontal-rule . org-export-filter-horizontal-rule-functions) (:filter-inline-babel-call . org-export-filter-inline-babel-call-functions) (:filter-inline-src-block . org-export-filter-inline-src-block-functions) @@ -2195,7 +2195,7 @@ Each filter is called with three arguments: the transcoded data, as a string, the back-end, as a symbol, and the communication channel, as a plist. It must return a string or nil.") -(defvar org-export-filter-headline-functions nil +(defvar org-export-filter-heading-functions nil "List of functions applied to a transcoded heading. Each filter is called with three arguments: the transcoded data, as a string, the back-end, as a symbol, and the communication -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0025-Deprecate-org-export-collect-headlines.patch >From 69b8220f3bdb5ae4bc7b617964cf2bd43e812cee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 18:35:53 +0300 Subject: [PATCH 25/76] Deprecate org-export-collect-headlines. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 2 +- lisp/ox-html.el | 2 +- lisp/ox-md.el | 6 +++--- lisp/ox-odt.el | 2 +- lisp/ox-texinfo.el | 2 +- lisp/ox.el | 6 +++--- testing/lisp/test-ox.el | 28 ++++++++++++++-------------- 8 files changed, 26 insertions(+), 24 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index fdf823d83..02370b3fb 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -356,6 +356,8 @@ Counting starts at 1." 'org-element-heading-interpreter "9.5") (define-obsolete-function-alias 'org-element-headline-parser 'org-element-heading-parser "9.5") +(define-obsolete-function-alias 'org-export-collect-headlines + 'org-export-collect-headings "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 7b4232c4f..f848947fc 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -773,7 +773,7 @@ contents according to the specified scope." (or (not (plist-get info :with-tags)) (eq (plist-get info :with-tags) 'not-in-toc)) 'toc)))) - (org-export-collect-headlines info n scope) "\n")))) + (org-export-collect-headings info n scope) "\n")))) (defun org-ascii--list-listings (keyword info) "Return a list of listings. diff --git a/lisp/ox-html.el b/lisp/ox-html.el index f48c09be4..39b3aec49 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2315,7 +2315,7 @@ of contents as a string, or nil if it is empty." (mapcar (lambda (heading) (cons (org-html--format-toc-headline heading info) (org-export-get-relative-level heading info))) - (org-export-collect-headlines info depth scope)))) + (org-export-collect-headings info depth scope)))) (when toc-entries (let ((toc (concat "
" (org-html--toc-text toc-entries) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 9fb75fa57..78f5cafa6 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -168,7 +168,7 @@ of contents can refer to headings." ;; Global table of contents includes HEADING. (and (plist-get info :with-toc) (memq heading - (org-export-collect-headlines info (plist-get info :with-toc)))) + (org-export-collect-headings info (plist-get info :with-toc)))) ;; A local table of contents includes HEADING. (cl-some (lambda (h) @@ -186,7 +186,7 @@ of contents can refer to headings." (string-to-number (match-string 0 value)))) (local? (string-match-p "\\" value))) (memq heading - (org-export-collect-headlines + (org-export-collect-headings info n (and local? keyword)))))))) info t)))) (org-element-lineage heading)) @@ -258,7 +258,7 @@ contents according to the specified element." (org-make-tag-string (org-export-get-tags heading info))))) (concat indentation bullet title tags))) - (org-export-collect-headlines info n scope) "\n") + (org-export-collect-headings info n scope) "\n") "\n")) (defun org-md--footnote-formatted (footnote info) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 4da41be2c..c5ef01c75 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1148,7 +1148,7 @@ table of contents as a string, or nil." ;; ;; Likewise, links, footnote references and regular targets are also ;; suppressed. - (let* ((headings (org-export-collect-headlines info depth scope)) + (let* ((headings (org-export-collect-headings info depth scope)) (backend (org-export-toc-entry-backend (org-export-backend-name (plist-get info :back-end))))) (when headings diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index bae16a9b8..6dbc18ad2 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1240,7 +1240,7 @@ holding contextual information." (lambda (h) (or (org-not-nil (org-export-get-node-property :COPYING h t)) (< max-depth (org-export-get-relative-level h info)))) - (org-export-collect-headlines info 1 scope)) + (org-export-collect-headings info 1 scope)) cache))))) ;;;; Node Property diff --git a/lisp/ox.el b/lisp/ox.el index 58e59f552..b9863d7e5 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -5253,7 +5253,7 @@ return nil." ;;;; For Tables of Contents ;; -;; `org-export-collect-headlines' builds a list of all exportable +;; `org-export-collect-headings' builds a list of all exportable ;; heading elements, maybe limited to a certain depth. One can then ;; easily parse it and transcode it. ;; @@ -5265,7 +5265,7 @@ return nil." ;; `org-export-toc-entry-backend' builds a special anonymous back-end ;; useful to export table of contents' entries. -(defun org-export-collect-headlines (info &optional n scope) +(defun org-export-collect-headings (info &optional n scope) "Collect headings in order to build a table of contents. INFO is a plist used as a communication channel. @@ -5357,7 +5357,7 @@ Return a list of `src-block' elements with a caption." INFO is a plist used as a communication channel. Note that such headings are already excluded from -`org-export-collect-headlines'. Therefore, this function is not +`org-export-collect-headings'. Therefore, this function is not necessary if you only need to list headings in the table of contents. However, it is useful if some additional processing is required on headings excluded from table of contents." diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 20c85da12..de6d5957e 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -2594,7 +2594,7 @@ Para2" (should (= 1 (let ((org-footnote-section "Footnotes")) (length (org-test-with-parsed-data "* H1\n* Footnotes\n" - (org-export-collect-headlines info)))))) + (org-export-collect-headings info)))))) (should (equal '(2) (let ((org-footnote-section "Footnotes")) @@ -4745,37 +4745,37 @@ This test does not cover listings and custom environments." ;;; Tables of Contents (ert-deftest test-org-export/collect-headlines () - "Test `org-export-collect-headlines' specifications." + "Test `org-export-collect-headings' specifications." ;; Standard test. (should (equal '("H1" "H2") (org-test-with-parsed-data "* H1\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info))))) + (org-export-collect-headings info))))) ;; Do not collect headings below optional argument. (should (equal '("H1") (org-test-with-parsed-data "* H1\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info 1))))) + (org-export-collect-headings info 1))))) ;; Never collect headings below maximum heading level. (should (equal '("H1") (org-test-with-parsed-data "#+OPTIONS: H:1\n* H1\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info))))) + (org-export-collect-headings info))))) (should (equal '("H1") (org-test-with-parsed-data "#+OPTIONS: H:1\n* H1\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info 2))))) + (org-export-collect-headings info 2))))) ;; Do not collect footnote section. (should (equal '("H1") (let ((org-footnote-section "Footnotes")) (org-test-with-parsed-data "* H1\n** Footnotes" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info)))))) + (org-export-collect-headings info)))))) ;; Do not collect headings with UNNUMBERED property set to "notoc". ;; Headings with another value for the property are still ;; collected. UNNUMBERED property is inherited. @@ -4784,25 +4784,25 @@ This test does not cover listings and custom environments." (org-test-with-parsed-data "* H1\n* H2\n:PROPERTIES:\n:UNNUMBERED: notoc\n:END:" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info))))) + (org-export-collect-headings info))))) (should-not (org-test-with-parsed-data "* H1\n:PROPERTIES:\n:UNNUMBERED: notoc\n:END:\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info)))) + (org-export-collect-headings info)))) (should (equal '("H1" "H2") (org-test-with-parsed-data "* H1\n* H2\n:PROPERTIES:\n:UNNUMBERED: t\n:END:" (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info))))) + (org-export-collect-headings info))))) ;; Collect headings locally. (should (equal '("H2" "H3") (org-test-with-parsed-data "* H1\n** H2\n** H3" (let ((scope (org-element-map tree 'headline #'identity info t))) (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info nil scope)))))) + (org-export-collect-headings info nil scope)))))) ;; Collect headings from a scope specified by a fuzzy match (should (equal '("H3" "H4") @@ -4820,7 +4820,7 @@ This test does not cover listings and custom environments." " (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines + (org-export-collect-headings info nil (org-export-resolve-fuzzy-link @@ -4845,7 +4845,7 @@ This test does not cover listings and custom environments." " (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines + (org-export-collect-headings info nil (org-export-resolve-id-link @@ -4859,7 +4859,7 @@ This test does not cover listings and custom environments." (org-test-with-parsed-data "* H1\n** H2\n*** H3" (let ((scope (org-element-map tree 'headline #'identity info t))) (mapcar (lambda (h) (org-element-property :raw-value h)) - (org-export-collect-headlines info 1 scope))))))) + (org-export-collect-headings info 1 scope))))))) (ert-deftest test-org-export/excluded-from-toc-p () "Test `org-export-excluded-from-toc-p' specifications." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0024-Deprecate-org-export-collect-headline-numbering.patch >From b93129459a7f76982b3a6c1bd39c8a4f6b17f010 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:36:25 +0300 Subject: [PATCH 24/76] Deprecate org-export--collect-headline-numbering. Not made obsolete since the symbol name indicates that this is an internal function. --- lisp/ox.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index cf7afbe59..58e59f552 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -1612,7 +1612,7 @@ BLOB is the element or object considered." ;; should be skipped during export, `org-export--get-min-level' gets ;; the minimal exportable level, used as a basis to compute relative ;; level for headings. Eventually -;; `org-export--collect-headline-numbering' builds an alist between +;; `org-export--collect-heading-numbering' builds an alist between ;; headings and their numbering. (defun org-export--collect-tree-properties (data info) @@ -1647,7 +1647,7 @@ Return updated plist." ;; tree properties. (org-combine-plists info - (list :headline-numbering (org-export--collect-headline-numbering data info) + (list :headline-numbering (org-export--collect-heading-numbering data info) :id-alist (org-element-map data 'link (lambda (l) @@ -1672,7 +1672,7 @@ OPTIONS is a plist holding export options." ;; minimum level to 1 nonetheless. (if (= min-level 10000) 1 min-level)))) -(defun org-export--collect-headline-numbering (data options) +(defun org-export--collect-heading-numbering (data options) "Return numbering of all exportable, numbered headings in a parse tree. DATA is the parse tree. OPTIONS is the plist holding export -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0023-Deprecate-org-element-headline-parser.patch >From 0de4e686b0a418182a3501872323c0321c69bff3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:32:57 +0300 Subject: [PATCH 23/76] Deprecate org-element-headline-parser. --- lisp/org-compat.el | 2 ++ lisp/org-element.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 3112f0b4b..fdf823d83 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -354,6 +354,8 @@ Counting starts at 1." 'org-edit-heading "9.5") (define-obsolete-function-alias 'org-element-headline-interpreter 'org-element-heading-interpreter "9.5") +(define-obsolete-function-alias 'org-element-headline-parser + 'org-element-heading-parser "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org-element.el b/lisp/org-element.el index 4e2210d9a..54be90ba9 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -983,7 +983,7 @@ Return value is a plist." (t (setq plist (plist-put plist :closed time)))))) plist)))) -(defun org-element-headline-parser (limit &optional raw-secondary-p) +(defun org-element-heading-parser (limit &optional raw-secondary-p) "Parse a heading. Return a list whose CAR is `headline' and CDR is a plist @@ -4004,7 +4004,7 @@ element it has to parse." ((eq mode 'node-property) (org-element-node-property-parser limit)) ;; Heading. ((org-with-limited-levels (org-at-heading-p)) - (org-element-headline-parser limit raw-secondary-p)) + (org-element-heading-parser limit raw-secondary-p)) ;; Sections (must be checked after heading). ((eq mode 'section) (org-element-section-parser limit)) ((eq mode 'first-section) @@ -6015,7 +6015,7 @@ element ending there." ;; heading. ((org-with-limited-levels (org-at-heading-p)) (beginning-of-line) - (org-element-headline-parser (point-max) t)) + (org-element-heading-parser (point-max) t)) ;; Otherwise parse until we find element containing ORIGIN. (t (when (org-element--cache-active-p) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0022-Deprecate-org-element-headline-interpreter.patch >From fc9de8ceac0daab5c390d4414349f8c2dae5a330 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:31:07 +0300 Subject: [PATCH 22/76] Deprecate org-element-headline-interpreter. --- lisp/org-compat.el | 2 ++ lisp/org-element.el | 2 +- lisp/ox-org.el | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 88720de5c..3112f0b4b 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -352,6 +352,8 @@ Counting starts at 1." 'org-bibtex-treat-heading-as-title "9.5") (define-obsolete-function-alias 'org-edit-headline 'org-edit-heading "9.5") +(define-obsolete-function-alias 'org-element-headline-interpreter + 'org-element-heading-interpreter "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org-element.el b/lisp/org-element.el index 5c300d6c2..4e2210d9a 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -1088,7 +1088,7 @@ Assume point is at beginning of the heading." (org-element-restriction 'headline) heading))))))) -(defun org-element-headline-interpreter (heading contents) +(defun org-element-heading-interpreter (heading contents) "Interpret HEADING element as Org syntax. CONTENTS is the contents of the element." (let* ((level (org-element-property :level heading)) diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 74dfd5531..bccead7f3 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -156,7 +156,7 @@ CONTENTS is its contents, as a string or nil. INFO is ignored." (org-element-put-property heading :priority nil)) (org-element-put-property heading :level (org-export-get-relative-level heading info)) - (org-element-headline-interpreter heading contents))) + (org-element-heading-interpreter heading contents))) (defun org-org-keyword (keyword _contents _info) "Transcode KEYWORD element back into Org syntax. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0021-Deprecate-org-edit-headline.patch >From 1e32c568023fd7856c61caf6624812aca961e592 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:29:16 +0300 Subject: [PATCH 21/76] Deprecate org-edit-headline. --- lisp/org-colview.el | 2 +- lisp/org-compat.el | 2 ++ lisp/org.el | 2 +- testing/lisp/test-org.el | 16 ++++++++-------- 4 files changed, 12 insertions(+), 10 deletions(-) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 955b9809b..89eea7a76 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -609,7 +609,7 @@ Where possible, use the standard interface for changing this line." ("CLOCKSUM" (user-error "This special column cannot be edited")) ("ITEM" - (lambda () (org-with-point-at pom (org-edit-headline)))) + (lambda () (org-with-point-at pom (org-edit-heading)))) ("TODO" (lambda () (org-with-point-at pom (call-interactively #'org-todo)))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 2e571cc17..88720de5c 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -350,6 +350,8 @@ Counting starts at 1." 'org-bibtex-heading-format-function "9.5") (define-obsolete-variable-alias 'org-bibtex-treat-headline-as-title 'org-bibtex-treat-heading-as-title "9.5") +(define-obsolete-function-alias 'org-edit-headline + 'org-edit-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org.el b/lisp/org.el index a79000b83..6b488c629 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7157,7 +7157,7 @@ This is a list with the following elements: (org-back-to-heading t) (buffer-substring (point-at-bol 2) (org-end-of-subtree t)))) -(defun org-edit-headline (&optional heading) +(defun org-edit-heading (&optional heading) "Edit the current heading. Set it to HEADING when provided." (interactive) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index e056bea2f..202e5cb16 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -2397,43 +2397,43 @@ SCHEDULED: <2014-03-04 tue.>" (org-map-entries #'point "yes&no")))))) (ert-deftest test-org/edit-headline () - "Test `org-edit-headline' specifications." + "Test `org-edit-heading' specifications." (should (equal "* B" (org-test-with-temp-text "* A" - (org-edit-headline "B") + (org-edit-heading "B") (buffer-string)))) ;; Handle empty headings. (should (equal "* " (org-test-with-temp-text "* A" - (org-edit-headline "") + (org-edit-heading "") (buffer-string)))) (should (equal "* A" (org-test-with-temp-text "* " - (org-edit-headline "A") + (org-edit-heading "A") (buffer-string)))) ;; Handle TODO keywords and priority cookies. (should (equal "* TODO B" (org-test-with-temp-text "* TODO A" - (org-edit-headline "B") + (org-edit-heading "B") (buffer-string)))) (should (equal "* [#A] B" (org-test-with-temp-text "* [#A] A" - (org-edit-headline "B") + (org-edit-heading "B") (buffer-string)))) (should (equal "* TODO [#A] B" (org-test-with-temp-text "* TODO [#A] A" - (org-edit-headline "B") + (org-edit-heading "B") (buffer-string)))) ;; Handle tags. (equal "* B :tag:" (org-test-with-temp-text "* A :tag:" - (let ((org-tags-column 4)) (org-edit-headline "B")) + (let ((org-tags-column 4)) (org-edit-heading "B")) (buffer-string)))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0019-Deprecate-org-bibtex-headline-format-function.patch >From 531b57e82558c6ea7f1182f9f355a0c9d71d130b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:23:21 +0300 Subject: [PATCH 19/76] Deprecate org-bibtex-headline-format-function. --- lisp/ol-bibtex.el | 4 ++-- lisp/org-compat.el | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el index 812f57f10..4406a68d4 100644 --- a/lisp/ol-bibtex.el +++ b/lisp/ol-bibtex.el @@ -256,7 +256,7 @@ a missing title field." :version "24.1" :type 'boolean) -(defcustom org-bibtex-headline-format-function +(defcustom org-bibtex-heading-format-function (lambda (entry) (cdr (assq :title entry))) "Function returning the heading text for `org-bibtex-write'. It should take a single argument, the bibtex entry (an alist as @@ -711,7 +711,7 @@ Return the number of saved entries." (val (lambda (field) (cdr (assoc field entry)))) (togtag (lambda (tag) (org-toggle-tag tag 'on)))) (org-insert-heading) - (insert (funcall org-bibtex-headline-format-function entry)) + (insert (funcall org-bibtex-heading-format-function entry)) (org-bibtex-put "TITLE" (funcall val :title)) (org-bibtex-put org-bibtex-type-property-name (downcase (funcall val :type))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c8cf4320e..2ef5b6b0f 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -346,6 +346,8 @@ Counting starts at 1." 'org-babel-ref-heading-body "9.5") (define-obsolete-function-alias 'org-beamer-headline 'org-beamer-heading "9.5") +(define-obsolete-variable-alias 'org-bibtex-headline-format-function + 'org-bibtex-heading-format-function "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0020-Deprecate-org-bibtex-treat-headline-as-title.patch >From a9ff96da65ee14da35520e194978040d6a2881be Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:25:58 +0300 Subject: [PATCH 20/76] Deprecate org-bibtex-treat-headline-as-title. --- lisp/ol-bibtex.el | 6 +++--- lisp/org-compat.el | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el index 4406a68d4..dd3b15300 100644 --- a/lisp/ol-bibtex.el +++ b/lisp/ol-bibtex.el @@ -247,7 +247,7 @@ For example setting to `BIB_' would allow interoperability with fireforg." (const nil) (string))) -(defcustom org-bibtex-treat-headline-as-title t +(defcustom org-bibtex-treat-heading-as-title t "Treat heading text as title if title property is absent. If an entry is missing a title property, use the heading text as the property. If this value is t, `org-bibtex-check' will ignore @@ -458,7 +458,7 @@ With optional argument OPTIONAL, also prompt for optional fields." (keyword (lambda (name) (intern (concat ":" (downcase name))))) (name (lambda (keyword) (substring (symbol-name keyword) 1)))) (dolist (field (append - (if org-bibtex-treat-headline-as-title + (if org-bibtex-treat-heading-as-title (remove :title (funcall val :required (funcall val type org-bibtex-types))) (funcall val :required (funcall val type org-bibtex-types))) (when optional (funcall val :optional (funcall val type org-bibtex-types))))) @@ -633,7 +633,7 @@ If nonew is t, add data to the heading of the entry at point." nil nil (when nonew (org-bibtex-get org-bibtex-type-property-name)))) (type (if (keywordp type) type (intern (concat ":" type)))) - (org-bibtex-treat-headline-as-title (if nonew nil t))) + (org-bibtex-treat-heading-as-title (if nonew nil t))) (unless (assoc type org-bibtex-types) (error "Type:%s is not known" type)) (if nonew diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 2ef5b6b0f..2e571cc17 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -348,6 +348,8 @@ Counting starts at 1." 'org-beamer-heading "9.5") (define-obsolete-variable-alias 'org-bibtex-headline-format-function 'org-bibtex-heading-format-function "9.5") +(define-obsolete-variable-alias 'org-bibtex-treat-headline-as-title + 'org-bibtex-treat-heading-as-title "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0018-Deprecate-org-beamer-headline.patch >From c456d2a97cca7d381662312698b85299155c52a8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:20:34 +0300 Subject: [PATCH 18/76] Deprecate org-beamer-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-beamer.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 95b08e237..c8cf4320e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -344,6 +344,8 @@ Counting starts at 1." 'org-babel-ref-goto-heading-id "9.5") (define-obsolete-function-alias 'org-babel-ref-headline-body 'org-babel-ref-heading-body "9.5") +(define-obsolete-function-alias 'org-beamer-headline + 'org-beamer-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 84a9193ba..5b5524966 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -255,7 +255,7 @@ Return overlay specification, as a string, or nil." :translate-alist '((bold . org-beamer-bold) (export-block . org-beamer-export-block) (export-snippet . org-beamer-export-snippet) - (headline . org-beamer-headline) + (headline . org-beamer-heading) (item . org-beamer-item) (keyword . org-beamer-keyword) (link . org-beamer-link) @@ -308,7 +308,7 @@ channel." ;;;; Heading ;; ;; The main function to translate a heading is -;; `org-beamer-headline'. +;; `org-beamer-heading'. ;; ;; Depending on the level at which a heading is considered as ;; a frame (given by `org-beamer--frame-level'), the heading is @@ -316,7 +316,7 @@ channel." ;; (`org-beamer--format-frame') or a block ;; (`org-beamer--format-block'). ;; -;; `org-beamer-headline' also takes care of special environments +;; `org-beamer-heading' also takes care of special environments ;; like "ignoreheading", "note", "noteNH", "appendix" and ;; "againframe". @@ -586,7 +586,7 @@ used as a communication channel." (when column-width "\\end{column}\n") (when end-columns-p "\\end{columns}")))) -(defun org-beamer-headline (heading contents info) +(defun org-beamer-heading (heading contents info) "Transcode HEADING element into Beamer code. CONTENTS is the contents of the heading. INFO is a plist used as a communication channel." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0017-Deprecate-org-babel-ref-headline-body.patch >From a8a092f38c8b039042cd5d4073f2d6e1e94785e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:18:47 +0300 Subject: [PATCH 17/76] Deprecate org-babel-ref-headline-body. --- lisp/ob-core.el | 4 ++-- lisp/ob-ref.el | 4 ++-- lisp/org-compat.el | 2 ++ 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 3f6f55c86..c25e3fd37 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -44,7 +44,7 @@ (declare-function org-at-table-p "org" (&optional table-type)) (declare-function org-babel-lob-execute-maybe "ob-lob" ()) (declare-function org-babel-ref-goto-heading-id "ob-ref" (id)) -(declare-function org-babel-ref-headline-body "ob-ref" ()) +(declare-function org-babel-ref-heading-body "ob-ref" ()) (declare-function org-babel-ref-parse "ob-ref" (assignment)) (declare-function org-babel-ref-resolve "ob-ref" (ref)) (declare-function org-babel-ref-split-args "ob-ref" (arg-string)) @@ -2882,7 +2882,7 @@ block but are passed literally to the \"example-block\"." (if (stringp raw) raw (format "%S" raw)))) ;; Return the contents of headings literally. ((org-babel-ref-goto-heading-id id) - (org-babel-ref-headline-body)) + (org-babel-ref-heading-body)) ;; Look for a source block named SOURCE-NAME. If ;; found, assume it is unique; do not look after ;; `:noweb-ref' header argument. diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index c728f282b..4a17dc8cf 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -107,7 +107,7 @@ Emacs Lisp representation of the value of the variable." (org-show-context) t)))) -(defun org-babel-ref-headline-body () +(defun org-babel-ref-heading-body () (save-restriction (org-narrow-to-subtree) (buffer-substring @@ -184,7 +184,7 @@ Emacs Lisp representation of the value of the variable." (_ (error "Reference not found"))))))) ;; Check for local or global headings by ID. (when (org-babel-ref-goto-heading-id ref) - (throw :found (org-babel-ref-headline-body))) + (throw :found (org-babel-ref-heading-body))) ;; Check the Library of Babel. (let ((info (cdr (assq (intern ref) org-babel-library-of-babel)))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ae0e3cdb7..95b08e237 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -342,6 +342,8 @@ Counting starts at 1." 'org-ascii-heading-spacing "9.5") (define-obsolete-function-alias 'org-babel-ref-goto-headline-id 'org-babel-ref-goto-heading-id "9.5") +(define-obsolete-function-alias 'org-babel-ref-headline-body + 'org-babel-ref-heading-body "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0016-Deprecate-org-babel-ref-goto-headline-id.patch >From 7642dfa9b388f9f32ad7ebdceb461609078f1718 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:15:26 +0300 Subject: [PATCH 16/76] Deprecate org-babel-ref-goto-headline-id. --- lisp/ob-core.el | 4 ++-- lisp/ob-ref.el | 4 ++-- lisp/org-compat.el | 2 ++ 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 58bc5b25f..3f6f55c86 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -43,7 +43,7 @@ (declare-function org-at-item-p "org-list" ()) (declare-function org-at-table-p "org" (&optional table-type)) (declare-function org-babel-lob-execute-maybe "ob-lob" ()) -(declare-function org-babel-ref-goto-headline-id "ob-ref" (id)) +(declare-function org-babel-ref-goto-heading-id "ob-ref" (id)) (declare-function org-babel-ref-headline-body "ob-ref" ()) (declare-function org-babel-ref-parse "ob-ref" (assignment)) (declare-function org-babel-ref-resolve "ob-ref" (ref)) @@ -2881,7 +2881,7 @@ block but are passed literally to the \"example-block\"." (let ((raw (org-babel-ref-resolve id))) (if (stringp raw) raw (format "%S" raw)))) ;; Return the contents of headings literally. - ((org-babel-ref-goto-headline-id id) + ((org-babel-ref-goto-heading-id id) (org-babel-ref-headline-body)) ;; Look for a source block named SOURCE-NAME. If ;; found, assume it is unique; do not look after diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index 04b797f0f..c728f282b 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -94,7 +94,7 @@ Emacs Lisp representation of the value of the variable." (org-babel-ref-resolve ref)) out)))))) -(defun org-babel-ref-goto-headline-id (id) +(defun org-babel-ref-goto-heading-id (id) (or (let ((h (org-find-property "CUSTOM_ID" id))) (when h (goto-char h))) (let* ((file (org-id-find-id-file id)) @@ -183,7 +183,7 @@ Emacs Lisp representation of the value of the variable." (throw :found v)) (_ (error "Reference not found"))))))) ;; Check for local or global headings by ID. - (when (org-babel-ref-goto-headline-id ref) + (when (org-babel-ref-goto-heading-id ref) (throw :found (org-babel-ref-headline-body))) ;; Check the Library of Babel. (let ((info (cdr (assq (intern ref) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index cc3e14dad..ae0e3cdb7 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -340,6 +340,8 @@ Counting starts at 1." 'org-ascii-heading "9.5") (define-obsolete-variable-alias 'org-ascii-headline-spacing 'org-ascii-heading-spacing "9.5") +(define-obsolete-function-alias 'org-babel-ref-goto-headline-id + 'org-babel-ref-goto-heading-id "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0015-Deprecate-org-ascii-headline-spacing.patch >From 4d50a68dda17ca113f22c9bb36c0eac521379b58 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:12:38 +0300 Subject: [PATCH 15/76] Deprecate org-ascii-headline-spacing. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index b14901339..cc3e14dad 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -338,6 +338,8 @@ Counting starts at 1." 'org-ascii-filter-heading-blank-lines "9.5") (define-obsolete-function-alias 'org-ascii-headline 'org-ascii-heading "9.5") +(define-obsolete-variable-alias 'org-ascii-headline-spacing + 'org-ascii-heading-spacing "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 4a75a69a6..7b4232c4f 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -129,7 +129,7 @@ (:ascii-format-drawer-function nil nil org-ascii-format-drawer-function) (:ascii-format-inlinetask-function nil nil org-ascii-format-inlinetask-function) - (:ascii-headline-spacing nil nil org-ascii-headline-spacing) + (:ascii-headline-spacing nil nil org-ascii-heading-spacing) (:ascii-indented-line-width nil nil org-ascii-indented-line-width) (:ascii-inlinetask-width nil nil org-ascii-inlinetask-width) (:ascii-inner-margin nil nil org-ascii-inner-margin) @@ -204,7 +204,7 @@ This number ignores any margin." :package-version '(Org . "8.0") :type 'integer) -(defcustom org-ascii-headline-spacing '(1 . 2) +(defcustom org-ascii-heading-spacing '(1 . 2) "Number of blank lines inserted around headings. This variable can be set to a cons cell. In that case, its car @@ -1310,7 +1310,7 @@ holding contextual information." ;; exported and seen in `org-ascii--unique-links'. (title (org-ascii--build-title heading info width (not low-level))) ;; Blank lines between heading and its contents. - ;; `org-ascii-headline-spacing', when set, overwrites + ;; `org-ascii-heading-spacing', when set, overwrites ;; original buffer's spacing. (pre-blanks (make-string (or (car (plist-get info :ascii-headline-spacing)) @@ -2036,7 +2036,7 @@ is symbol specifying back-end used for export. INFO is plist containing the communication channel. This function only applies to `ascii' back-end. See -`org-ascii-headline-spacing' for information." +`org-ascii-heading-spacing' for information." (let ((heading-spacing (plist-get info :ascii-headline-spacing))) (if (not heading-spacing) heading (let ((blanks (make-string (1+ (cdr heading-spacing)) ?\n))) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0013-Deprecate-org-ascii-filter-headline-blank-lines.patch >From a4fdf4c31d7ed5633c2b1ac148363876406b1d50 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:08:22 +0300 Subject: [PATCH 13/76] Deprecate org-ascii-filter-headline-blank-lines. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ad82dddba..40ca4e2fe 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -334,6 +334,8 @@ Counting starts at 1." 'org-agenda-search-heading-for-time "9.5") (define-obsolete-variable-alias 'org-agenda-top-headline-filter 'org-agenda-top-heading-filter "9.5") +(define-obsolete-function-alias 'org-ascii-filter-headline-blank-lines + 'org-ascii-filter-heading-blank-lines "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 30ca960ac..b21d0e7e9 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -116,10 +116,10 @@ (?u "As UTF-8 file" (lambda (a s v b) (org-ascii-export-to-ascii a s v b '(:ascii-charset utf-8)))))) - :filters-alist '((:filter-headline . org-ascii-filter-headline-blank-lines) + :filters-alist '((:filter-headline . org-ascii-filter-heading-blank-lines) (:filter-parse-tree org-ascii-filter-paragraph-spacing org-ascii-filter-comment-spacing) - (:filter-section . org-ascii-filter-headline-blank-lines)) + (:filter-section . org-ascii-filter-heading-blank-lines)) :options-alist '((:subtitle "SUBTITLE" nil nil parse) (:ascii-bullets nil nil org-ascii-bullets) @@ -2028,7 +2028,7 @@ contextual information." ;;; Filters -(defun org-ascii-filter-headline-blank-lines (heading _backend info) +(defun org-ascii-filter-heading-blank-lines (heading _backend info) "Filter controlling number of blank lines after a heading. HEADING is a string representing a transcoded heading. BACKEND -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0014-Deprecate-org-ascii-headline.patch >From bf784a2385c1802f20d9a5681c236e77e0ef5b78 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:10:23 +0300 Subject: [PATCH 14/76] Deprecate org-ascii-headline. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 40ca4e2fe..b14901339 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -336,6 +336,8 @@ Counting starts at 1." 'org-agenda-top-heading-filter "9.5") (define-obsolete-function-alias 'org-ascii-filter-headline-blank-lines 'org-ascii-filter-heading-blank-lines "9.5") +(define-obsolete-function-alias 'org-ascii-headline + 'org-ascii-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index b21d0e7e9..4a75a69a6 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -60,7 +60,7 @@ (export-snippet . org-ascii-export-snippet) (fixed-width . org-ascii-fixed-width) (footnote-reference . org-ascii-footnote-reference) - (headline . org-ascii-headline) + (headline . org-ascii-heading) (horizontal-rule . org-ascii-horizontal-rule) (inline-src-block . org-ascii-inline-src-block) (inlinetask . org-ascii-inlinetask) @@ -1297,7 +1297,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;;;; Heading -(defun org-ascii-headline (heading contents info) +(defun org-ascii-heading (heading contents info) "Transcode a HEADING element from Org to ASCII. CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0012-Deprecate-org-agenda-top-headline-filter.patch >From 84f8332590875dbb0a4f45d626192eacdaf4b4c9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:03:31 +0300 Subject: [PATCH 12/76] Deprecate org-agenda-top-headline-filter. --- lisp/org-agenda.el | 20 ++++++++++---------- lisp/org-compat.el | 2 ++ 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index cc9afd1a8..d26b254a0 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2232,7 +2232,7 @@ When nil, `q' will kill the single agenda buffer." org-agenda-columns-active org-agenda-tag-filter org-agenda-category-filter - org-agenda-top-headline-filter + org-agenda-top-heading-filter org-agenda-regexp-filter org-agenda-effort-filter org-agenda-markers @@ -3748,7 +3748,7 @@ removed from the entry content. Currently only `planning' is allowed here." (defvar org-agenda-category-filter nil) (defvar org-agenda-regexp-filter nil) (defvar org-agenda-effort-filter nil) -(defvar org-agenda-top-headline-filter nil) +(defvar org-agenda-top-heading-filter nil) (defvar org-agenda-represented-categories nil "Cache for the list of all categories in the agenda.") @@ -3991,9 +3991,9 @@ agenda display, configure `org-agenda-finalize-hook'." (org-get-tags)))))))) (setq org-agenda-represented-tags nil org-agenda-represented-categories nil) - (when org-agenda-top-headline-filter + (when org-agenda-top-heading-filter (org-agenda-filter-top-heading-apply - org-agenda-top-headline-filter)) + org-agenda-top-heading-filter)) (when org-agenda-tag-filter (org-agenda-filter-apply org-agenda-tag-filter 'tag t)) (when (get 'org-agenda-tag-filter :preset-filter) @@ -7586,7 +7586,7 @@ in the agenda." (org-agenda-keep-modes t) (tag-filter org-agenda-tag-filter) (tag-preset (get 'org-agenda-tag-filter :preset-filter)) - (top-hl-filter org-agenda-top-headline-filter) + (top-hl-filter org-agenda-top-heading-filter) (cat-filter org-agenda-category-filter) (cat-preset (get 'org-agenda-category-filter :preset-filter)) (re-filter org-agenda-regexp-filter) @@ -7626,7 +7626,7 @@ in the agenda." org-agenda-category-filter cat-filter org-agenda-regexp-filter re-filter org-agenda-effort-filter effort-filter - org-agenda-top-headline-filter top-hl-filter) + org-agenda-top-heading-filter top-hl-filter) (message "Rebuilding agenda buffer...done") (put 'org-agenda-tag-filter :preset-filter tag-preset) (put 'org-agenda-category-filter :preset-filter cat-preset) @@ -7709,7 +7709,7 @@ all lines of the category at point." (if org-agenda-filtered-by-top-heading (progn (setq org-agenda-filtered-by-top-heading nil - org-agenda-top-headline-filter nil) + org-agenda-top-heading-filter nil) (org-agenda-filter-show-all-top-filter)) (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker)))) (if toph (org-agenda-filter-top-heading-apply toph strip) @@ -7950,7 +7950,7 @@ which see." (org-agenda-filter-show-all-cat)) (when org-agenda-regexp-filter (org-agenda-filter-show-all-re)) - (when org-agenda-top-headline-filter + (when org-agenda-top-heading-filter (org-agenda-filter-show-all-top-filter)) (when org-agenda-effort-filter (org-agenda-filter-show-all-effort)) @@ -8244,7 +8244,7 @@ grouptags." (beginning-of-line 2))) (when (get-char-property (point) 'invisible) (org-agenda-previous-line)) - (setq org-agenda-top-headline-filter heading + (setq org-agenda-top-heading-filter heading org-agenda-filtered-by-top-heading t)) (defun org-agenda-filter-hide-line (type) @@ -8681,7 +8681,7 @@ so that the date SD will be in that range." (if (or org-agenda-tag-filter org-agenda-category-filter org-agenda-regexp-filter - org-agenda-top-headline-filter) + org-agenda-top-heading-filter) (user-error "Can't show entry text in filtered views") (setq org-agenda-entry-text-mode (or (integerp arg) (not org-agenda-entry-text-mode))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c77c1f295..ad82dddba 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -332,6 +332,8 @@ Counting starts at 1." 'org-agenda-loop-over-headings-in-active-region "9.5") (define-obsolete-variable-alias 'org-agenda-search-headline-for-time 'org-agenda-search-heading-for-time "9.5") +(define-obsolete-variable-alias 'org-agenda-top-headline-filter + 'org-agenda-top-heading-filter "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0011-Deprecate-org-agenda-search-headline-for-time.patch >From 1fb95b18b391ca442d7037d0cb6c342d20536f39 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 19:14:07 +0300 Subject: [PATCH 11/76] Deprecate org-agenda-search-headline-for-time. --- lisp/org-agenda.el | 8 ++++---- lisp/org-compat.el | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index e2d9efbe4..cc9afd1a8 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1492,7 +1492,7 @@ value, don't limit agenda view by outline level." :tag "Org Agenda Time Grid" :group 'org-agenda) -(defcustom org-agenda-search-headline-for-time t +(defcustom org-agenda-search-heading-for-time t "Non-nil means search heading for a time-of-day. If the heading contains a time-of-day in one format or another, it will be used to sort the entry into the time sequence of items for a day. @@ -4432,7 +4432,7 @@ items if they have an hour specification like [h]h:mm." org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))) ;; all entries (when org-agenda-include-diary - (let ((org-agenda-search-headline-for-time t)) + (let ((org-agenda-search-heading-for-time t)) (require 'diary-lib) (setq rtn (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) @@ -5970,7 +5970,7 @@ then those holidays will be skipped." (encode-time ; DATE bound by calendar 0 0 0 (nth 1 date) (car date) (nth 2 date))) 1 11)))) - (org-agenda-search-headline-for-time nil) + (org-agenda-search-heading-for-time nil) marker hdmarker priority category level tags closedp type statep clockp state ee txt extra timestr rest clocked inherited-tags) (goto-char (point-min)) @@ -6723,7 +6723,7 @@ Any match of REMOVE-RE will be removed from TXT." time (ts (when dotime (concat (if (stringp dotime) dotime "") - (and org-agenda-search-headline-for-time txt)))) + (and org-agenda-search-heading-for-time txt)))) (time-of-day (and dotime (org-get-time-of-day ts))) stamp plain s0 s1 s2 rtn srp l duration breadcrumbs) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ac8073cad..c77c1f295 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -330,6 +330,8 @@ Counting starts at 1." 'org-agenda-heading-snapshot-before-repeat "9.5") (define-obsolete-variable-alias 'org-agenda-loop-over-headlines-in-active-region 'org-agenda-loop-over-headings-in-active-region "9.5") +(define-obsolete-variable-alias 'org-agenda-search-headline-for-time + 'org-agenda-search-heading-for-time "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0010-Deprecate-org-agenda-loop-over-headlines-in-active-r.patch >From edba5580946e0f55ddd4e7388fb0dce5ddb166d2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 16:33:39 +0300 Subject: [PATCH 10/76] Deprecate org-agenda-loop-over-headlines-in-active-region. --- lisp/org-agenda.el | 14 +++++++------- lisp/org-compat.el | 2 ++ lisp/org.el | 2 +- 3 files changed, 10 insertions(+), 8 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 119fd0b7b..e2d9efbe4 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8948,7 +8948,7 @@ When called with a prefix argument, include all archive files as well." Point is in the buffer where the item originated.") ;; Defined later in org-agenda.el -(defvar org-agenda-loop-over-headlines-in-active-region nil) +(defvar org-agenda-loop-over-headings-in-active-region nil) (defun org-agenda-do-in-region (beg end cmd &optional arg force-arg delete) "Between region BEG and END, call agenda command CMD. @@ -8958,10 +8958,10 @@ deletes the agenda entry and don't move to the next entry." (save-excursion (goto-char beg) (let ((mend (move-marker (make-marker) end)) - (all (eq org-agenda-loop-over-headlines-in-active-region t)) - (match (and (stringp org-agenda-loop-over-headlines-in-active-region) - org-agenda-loop-over-headlines-in-active-region)) - (level (and (eq org-agenda-loop-over-headlines-in-active-region 'start-level) + (all (eq org-agenda-loop-over-headings-in-active-region t)) + (match (and (stringp org-agenda-loop-over-headings-in-active-region) + org-agenda-loop-over-headings-in-active-region)) + (level (and (eq org-agenda-loop-over-headings-in-active-region 'start-level) (org-get-at-bol 'level)))) (while (< (point) mend) (let ((ov (make-overlay (point) (point-at-eol)))) @@ -8983,7 +8983,7 @@ deletes the agenda entry and don't move to the next entry." Pass ARG, FORCE-ARG, DELETE and BODY to `org-agenda-do-in-region'." (declare (debug t)) `(if (and (called-interactively-p 'any) - org-agenda-loop-over-headlines-in-active-region + org-agenda-loop-over-headings-in-active-region (org-region-active-p)) (org-agenda-do-in-region (region-beginning) (region-end) ,cmd ,arg ,force-arg ,delete) @@ -10443,7 +10443,7 @@ bulk action." :version "24.1" :type 'boolean) -(defcustom org-agenda-loop-over-headlines-in-active-region t +(defcustom org-agenda-loop-over-headings-in-active-region t "Shall some commands act upon headings in the active region? When set to t, some commands will be performed in all headings diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 77d9a06a7..ac8073cad 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -328,6 +328,8 @@ Counting starts at 1." 'org-agenda-filtered-by-top-heading "9.5") (define-obsolete-variable-alias 'org-agenda-headline-snapshot-before-repeat 'org-agenda-heading-snapshot-before-repeat "9.5") +(define-obsolete-variable-alias 'org-agenda-loop-over-headlines-in-active-region + 'org-agenda-loop-over-headings-in-active-region "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org.el b/lisp/org.el index b41986246..a79000b83 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -929,7 +929,7 @@ The list of commands is: `org-schedule', `org-deadline', `org-archive-to-archive-sibling'. The archiving commands skip already archived entries. -See `org-agenda-loop-over-headlines-in-active-region' for the +See `org-agenda-loop-over-headings-in-active-region' for the equivalent option for agenda views." :type '(choice (const :tag "Don't loop" nil) (const :tag "All headings in active region" t) -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0009-Deprecate-org-agenda-headline-snapshot-before-repeat.patch >From f5f787cf51a2e11a3764aba1d0fd085b4d6371c3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 16:15:20 +0300 Subject: [PATCH 09/76] Deprecate org-agenda-headline-snapshot-before-repeat. --- lisp/org-agenda.el | 10 +++++----- lisp/org-compat.el | 2 ++ lisp/org.el | 6 +++--- 3 files changed, 10 insertions(+), 8 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 553b2d454..119fd0b7b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9423,7 +9423,7 @@ by a remote command from the agenda.") (interactive) (org-agenda-todo 'previousset)) -(defvar org-agenda-headline-snapshot-before-repeat) +(defvar org-agenda-heading-snapshot-before-repeat) (defun org-agenda-todo (&optional arg) "Cycle TODO state of line at point, also in Org file. @@ -9442,7 +9442,7 @@ the same tree node, and the heading of the tree node in the Org file." (todayp (org-agenda-today-p (org-get-at-bol 'day))) (inhibit-read-only t) org-loop-over-headlines-in-active-region - org-agenda-headline-snapshot-before-repeat newhead just-one) + org-agenda-heading-snapshot-before-repeat newhead just-one) (org-with-remote-undo buffer (with-current-buffer buffer (widen) @@ -9456,11 +9456,11 @@ the same tree node, and the heading of the tree node in the Org file." (org-add-log-note))) (and (bolp) (forward-char 1)) (setq newhead (org-get-heading)) - (when (and org-agenda-headline-snapshot-before-repeat - (not (equal org-agenda-headline-snapshot-before-repeat + (when (and org-agenda-heading-snapshot-before-repeat + (not (equal org-agenda-heading-snapshot-before-repeat newhead)) todayp) - (setq newhead org-agenda-headline-snapshot-before-repeat + (setq newhead org-agenda-heading-snapshot-before-repeat just-one t)) (save-excursion (org-back-to-heading) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c825a187e..77d9a06a7 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -326,6 +326,8 @@ Counting starts at 1." 'org-agenda-filter-top-heading-apply "9.5") (define-obsolete-variable-alias 'org-agenda-filtered-by-top-headline 'org-agenda-filtered-by-top-heading "9.5") +(define-obsolete-variable-alias 'org-agenda-headline-snapshot-before-repeat + 'org-agenda-heading-snapshot-before-repeat "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/org.el b/lisp/org.el index 197fc7e59..b41986246 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9650,7 +9650,7 @@ transformed into canonical form." ) Each function takes arguments (NEW-MARK OLD-MARK) and returns either nil or a string to be used for the todo mark." ) -(defvar org-agenda-headline-snapshot-before-repeat) +(defvar org-agenda-heading-snapshot-before-repeat) (defun org-current-effective-time () "Return current time adjusted for `org-extend-today-until' variable." @@ -9918,10 +9918,10 @@ When called through ELisp, arg is also interpreted in the following way: (put-text-property (point-at-bol) (point-at-eol) 'org-todo-head head) ;; Do we need to trigger a repeat? (when now-done-p - (when (boundp 'org-agenda-headline-snapshot-before-repeat) + (when (boundp 'org-agenda-heading-snapshot-before-repeat) ;; This is for the agenda, take a snapshot of the heading. (save-match-data - (setq org-agenda-headline-snapshot-before-repeat + (setq org-agenda-heading-snapshot-before-repeat (org-get-heading)))) (org-auto-repeat-maybe org-state)) ;; Fixup cursor location if close to the keyword. -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0008-Deprecate-org-agenda-filtered-by-top-headline.patch >From ef1e81d408e1afaf0cfd507db998f12546ccfa43 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 16:00:52 +0300 Subject: [PATCH 08/76] Deprecate org-agenda-filtered-by-top-headline. --- lisp/org-agenda.el | 8 ++++---- lisp/org-compat.el | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 48539f3e5..553b2d454 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7700,15 +7700,15 @@ search from." "^\\[[0-9]+/[0-9]+\\] *\\|^\\[%[0-9]+\\] *" "" (nth 4 (org-heading-components))))))) -(defvar org-agenda-filtered-by-top-headline nil) +(defvar org-agenda-filtered-by-top-heading nil) (defun org-agenda-filter-by-top-heading (strip) "Keep only those lines that are descendants from the same top heading. The top heading is that of the current line. With prefix arg STRIP, hide all lines of the category at point." (interactive "P") - (if org-agenda-filtered-by-top-headline + (if org-agenda-filtered-by-top-heading (progn - (setq org-agenda-filtered-by-top-headline nil + (setq org-agenda-filtered-by-top-heading nil org-agenda-top-headline-filter nil) (org-agenda-filter-show-all-top-filter)) (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker)))) @@ -8245,7 +8245,7 @@ grouptags." (when (get-char-property (point) 'invisible) (org-agenda-previous-line)) (setq org-agenda-top-headline-filter heading - org-agenda-filtered-by-top-headline t)) + org-agenda-filtered-by-top-heading t)) (defun org-agenda-filter-hide-line (type) "If current line is TYPE, hide it in the agenda buffer." diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 8f078f8d5..c825a187e 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -324,6 +324,8 @@ Counting starts at 1." 'org-agenda-filter-by-top-heading "9.5") (define-obsolete-function-alias 'org-agenda-filter-top-headline-apply 'org-agenda-filter-top-heading-apply "9.5") +(define-obsolete-variable-alias 'org-agenda-filtered-by-top-headline + 'org-agenda-filtered-by-top-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0007-Deprecate-org-agenda-filter-top-headline-apply.patch >From 41e09b617ed97f4e509e3c80ee0409b34a8334f5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 15:59:05 +0300 Subject: [PATCH 07/76] Deprecate org-agenda-filter-top-headline-apply. --- lisp/org-agenda.el | 18 +++++++++--------- lisp/org-compat.el | 2 ++ 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 28cde5378..48539f3e5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3992,7 +3992,7 @@ agenda display, configure `org-agenda-finalize-hook'." (setq org-agenda-represented-tags nil org-agenda-represented-categories nil) (when org-agenda-top-headline-filter - (org-agenda-filter-top-headline-apply + (org-agenda-filter-top-heading-apply org-agenda-top-headline-filter)) (when org-agenda-tag-filter (org-agenda-filter-apply org-agenda-tag-filter 'tag t)) @@ -7640,7 +7640,7 @@ in the agenda." (when cat (org-agenda-filter-apply cat 'category)) (when effort (org-agenda-filter-apply effort 'effort)) (when re (org-agenda-filter-apply re 'regexp))) - (and top-hl-filter (org-agenda-filter-top-headline-apply top-hl-filter)) + (and top-hl-filter (org-agenda-filter-top-heading-apply top-hl-filter)) (and cols (called-interactively-p 'any) (org-agenda-columns)) (org-goto-line line) (when (called-interactively-p 'any) (recenter window-line)))) @@ -7712,7 +7712,7 @@ all lines of the category at point." org-agenda-top-headline-filter nil) (org-agenda-filter-show-all-top-filter)) (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker)))) - (if toph (org-agenda-filter-top-headline-apply toph strip) + (if toph (org-agenda-filter-top-heading-apply toph strip) (error "No top-level heading at point"))))) (defvar org-agenda-regexp-filter nil) @@ -8230,21 +8230,21 @@ grouptags." (when (get-char-property (point) 'invisible) (ignore-errors (org-agenda-previous-line)))) -(defun org-agenda-filter-top-headline-apply (hl &optional negative) - "Filter by top heading HL." +(defun org-agenda-filter-top-heading-apply (heading &optional negative) + "Filter by top HEADING." (org-agenda-set-mode-name) (save-excursion (goto-char (point-min)) (while (not (eobp)) (let* ((pos (org-get-at-bol 'org-hd-marker)) - (tophl (and pos (org-find-top-headline pos)))) - (when (and tophl (funcall (if negative 'identity 'not) - (string= hl tophl))) + (top-heading (and pos (org-find-top-headline pos)))) + (when (and top-heading (funcall (if negative 'identity 'not) + (string= heading top-heading))) (org-agenda-filter-hide-line 'top-headline))) (beginning-of-line 2))) (when (get-char-property (point) 'invisible) (org-agenda-previous-line)) - (setq org-agenda-top-headline-filter hl + (setq org-agenda-top-headline-filter heading org-agenda-filtered-by-top-headline t)) (defun org-agenda-filter-hide-line (type) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 498d61344..8f078f8d5 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -322,6 +322,8 @@ Counting starts at 1." 'org-add-log-current-heading "9.5") (define-obsolete-function-alias 'org-agenda-filter-by-top-headline 'org-agenda-filter-by-top-heading "9.5") +(define-obsolete-function-alias 'org-agenda-filter-top-headline-apply + 'org-agenda-filter-top-heading-apply "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0006-Deprecate-org-agenda-filter-by-top-headline.patch >From cd8f90639359e3ce26874a425e78f768389cabf0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 15:06:11 +0300 Subject: [PATCH 06/76] Deprecate org-agenda-filter-by-top-headline. --- lisp/org-agenda.el | 6 +++--- lisp/org-compat.el | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ddfaf9a66..28cde5378 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2456,7 +2456,7 @@ The following commands are available: (org-defkey org-agenda-mode-map "|" #'org-agenda-filter-remove-all) (org-defkey org-agenda-mode-map "~" #'org-agenda-limit-interactively) (org-defkey org-agenda-mode-map "<" #'org-agenda-filter-by-category) -(org-defkey org-agenda-mode-map "^" #'org-agenda-filter-by-top-headline) +(org-defkey org-agenda-mode-map "^" #'org-agenda-filter-by-top-heading) (org-defkey org-agenda-mode-map ";" #'org-timer-set-timer) (org-defkey org-agenda-mode-map "\C-c\C-x_" #'org-timer-stop) (org-defkey org-agenda-mode-map "?" #'org-agenda-show-the-flagging-note) @@ -2540,7 +2540,7 @@ The following commands are available: ["by tag" org-agenda-filter-by-tag t] ["by effort" org-agenda-filter-by-effort t] ["by regexp" org-agenda-filter-by-regexp t] - ["by top-level headline" org-agenda-filter-by-top-headline t] + ["by top-level heading" org-agenda-filter-by-top-heading t] "--" ["Remove all filtering" org-agenda-filter-remove-all t] "--" @@ -7701,7 +7701,7 @@ search from." (nth 4 (org-heading-components))))))) (defvar org-agenda-filtered-by-top-headline nil) -(defun org-agenda-filter-by-top-headline (strip) +(defun org-agenda-filter-by-top-heading (strip) "Keep only those lines that are descendants from the same top heading. The top heading is that of the current line. With prefix arg STRIP, hide all lines of the category at point." diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 800b425a7..498d61344 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -320,6 +320,8 @@ Counting starts at 1." ;; /s/headline/heading (define-obsolete-function-alias 'org-add-log-current-headline 'org-add-log-current-heading "9.5") +(define-obsolete-function-alias 'org-agenda-filter-by-top-headline + 'org-agenda-filter-by-top-heading "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0005-Deprecate-org-add-log-current-headline.patch >From b4807e7953d16d20948a67ef83245102d5dabc46 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 15:02:00 +0300 Subject: [PATCH 05/76] Deprecate org-add-log-current-headline. --- lisp/org-compat.el | 6 +++++- lisp/org.el | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 19ffe244b..800b425a7 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -317,6 +317,10 @@ Counting starts at 1." (define-obsolete-function-alias 'org-file-url-p 'org-url-p "9.5") +;; /s/headline/heading +(define-obsolete-function-alias 'org-add-log-current-headline + 'org-add-log-current-heading "9.5") + (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." (save-match-data @@ -976,7 +980,7 @@ To get rid of the restriction, use `\\[org-agenda-remove-restriction-lock]'." ;;;; Add Log -(defun org-add-log-current-headline () +(defun org-add-log-current-heading () "Return current heading or nil. This function ignores inlinetasks. It is meant to be used as `add-log-current-defun-function' value." diff --git a/lisp/org.el b/lisp/org.el index b7b54dbc2..197fc7e59 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -4890,7 +4890,7 @@ The following commands are available: ;; Next error for sparse trees (setq-local next-error-function 'org-occur-next-match) ;; Make commit log messages from Org documents easier. - (setq-local add-log-current-defun-function #'org-add-log-current-headline) + (setq-local add-log-current-defun-function #'org-add-log-current-heading) ;; Make sure dependence stuff works reliably, even for users who set it ;; too late :-( (if org-enforce-todo-dependencies -- 2.33.0 --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: attachment; filename=0004-Fix-internals-with-no-impact-on-the-user.patch Content-Transfer-Encoding: quoted-printable >From 1df505064362ebd98f1bb68cd955cabb0d1bb574 Mon Sep 17 00:00:00 2001 From: =3D?UTF-8?q?Andr=3DC3=3DA9=3D20A=3D2E=3D20Gomes?=3D Date: Wed, 6 Oct 2021 10:46:43 +0300 Subject: [PATCH 04/76] Fix internals with no impact on the user. Replace dummy variables. --- lisp/org-clock.el | 46 +++++++-------- lisp/org-colview.el | 2 +- lisp/org-compat.el | 6 +- lisp/org-element.el | 26 ++++----- lisp/org-feed.el | 6 +- lisp/org-lint.el | 6 +- lisp/org.el | 12 ++-- lisp/ox-ascii.el | 52 ++++++++--------- lisp/ox-beamer.el | 128 ++++++++++++++++++++--------------------- lisp/ox-html.el | 96 +++++++++++++++---------------- lisp/ox-icalendar.el | 20 +++---- lisp/ox-koma-letter.el | 18 +++--- lisp/ox-latex.el | 42 +++++++------- lisp/ox-man.el | 18 +++--- lisp/ox-md.el | 62 ++++++++++---------- lisp/ox-odt.el | 84 +++++++++++++-------------- lisp/ox-org.el | 18 +++--- lisp/ox-texinfo.el | 42 +++++++------- lisp/ox.el | 80 +++++++++++++------------- 19 files changed, 382 insertions(+), 382 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 26fbc28c0..0094d7255 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1852,13 +1852,13 @@ With prefix arg SELECT, offer recently clocked task= s for selection." "Holds the file total time in minutes, after a call to `org-clock-sum'.") =20 ;;;###autoload -(defun org-clock-sum-today (&optional headline-filter) +(defun org-clock-sum-today (&optional heading-filter) "Sum the times for each subtree for today." (let ((range (org-clock-special-range 'today))) (org-clock-sum (car range) (cadr range) - headline-filter :org-clock-minutes-today))) + heading-filter :org-clock-minutes-today))) =20 -(defun org-clock-sum-custom (&optional headline-filter range propname) +(defun org-clock-sum-custom (&optional heading-filter range propname) "Sum the times for each subtree for today." (let ((r (or (and (symbolp range) (org-clock-special-range range)) (org-clock-special-range @@ -1869,16 +1869,16 @@ With prefix arg SELECT, offer recently clocked task= s for selection." "interactive") nil t)))))) (org-clock-sum (car r) (cadr r) - headline-filter (or propname :org-clock-minutes-custom)))) + heading-filter (or propname :org-clock-minutes-custom)))) =20 ;;;###autoload -(defun org-clock-sum (&optional tstart tend headline-filter propname) +(defun org-clock-sum (&optional tstart tend heading-filter propname) "Sum the times for each subtree. -Puts the resulting times in minutes as a text property on each headline. +Puts the resulting times in minutes as a text property on each heading. TSTART and TEND can mark a time range to be considered. -HEADLINE-FILTER is a zero-arg function that, if specified, is called for -each headline in the time range with point at the headline. Headlines for -which HEADLINE-FILTER returns nil are excluded from the clock summation. +HEADING-FILTER is a zero-arg function that, if specified, is called for +each heading in the time range with point at the heading. Headings for +which HEADING-FILTER returns nil are excluded from the clock summation. PROPNAME lets you set a custom text property instead of :org-clock-minutes= ." (with-silent-modifications (let* ((re (concat "^\\(\\*+\\)[ \t]\\|^[ \t]*" @@ -1931,26 +1931,26 @@ PROPNAME lets you set a custom text property instea= d of :org-clock-minutes." (time-since org-clock-start-time)) 60))) (setq t1 (+ t1 time)))) - (let* ((headline-forced + (let* ((heading-forced (get-text-property (point) :org-clock-force-headline-inclusion)) - (headline-included - (or (null headline-filter) + (heading-included + (or (null heading-filter) (save-excursion - (save-match-data (funcall headline-filter)))))) + (save-match-data (funcall heading-filter)))))) (setq level (- (match-end 1) (match-beginning 1))) (when (>=3D level lmax) (setq ltimes (vconcat ltimes (make-vector lmax 0)) lmax (* 2 lmax))) (when (or (> t1 0) (> (aref ltimes level) 0)) - (when (or headline-included headline-forced) - (if headline-included + (when (or heading-included heading-forced) + (if heading-included (cl-loop for l from 0 to level do (aset ltimes l (+ (aref ltimes l) t1)))) (setq time (aref ltimes level)) (goto-char (match-beginning 0)) (put-text-property (point) (point-at-eol) (or propname :org-clock-minutes) time) - (when headline-filter + (when heading-filter (save-excursion (save-match-data (while (org-up-heading-safe) @@ -2043,12 +2043,12 @@ that it will be easy to remove. This function assu= mes point is on a heading." (org-match-line org-complex-heading-regexp) (goto-char (match-beginning 4)) - (let* ((headline (match-string 4)) - (text (concat headline + (let* ((heading (match-string 4)) + (text (concat heading (org-add-props (make-string (max (- (- 60 (current-column)) - (org-string-width headline) + (org-string-width heading) (length (org-get-at-bol 'line-prefix))) 0) ?\=C2=B7) @@ -2974,11 +2974,11 @@ PROPERTIES: The list properties specified in the `:= properties' parameter (when (and time (> time 0) (org-at-heading-p)) (let ((level (org-reduced-level (org-current-level)))) (when (<=3D level maxlevel) - (let* ((headline (org-get-heading t t t t)) + (let* ((heading (org-get-heading t t t t)) (hdl - (if (not link) headline + (if (not link) heading (let ((search - (org-link-heading-search-string headline))) + (org-link-heading-search-string heading))) (org-link-make-string (if (not (buffer-file-name)) search (format "file:%s::%s" (buffer-file-name) search)) @@ -2989,7 +2989,7 @@ PROPERTIES: The list properties specified in the `:pr= operties' parameter (org-link-display-format (replace-regexp-in-string "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]" "" - headline))))))) + heading))))))) (tgs (and tags (org-get-tags))) (tsp (and timestamp diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 5275b03bf..955b9809b 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -33,7 +33,7 @@ =20 (declare-function org-agenda-redo "org-agenda" (&optional all)) (declare-function org-agenda-do-context-action "org-agenda" ()) -(declare-function org-clock-sum-today "org-clock" (&optional headline-filt= er)) +(declare-function org-clock-sum-today "org-clock" (&optional heading-filte= r)) (declare-function org-element-extract-element "org-element" (element)) (declare-function org-element-interpret-data "org-element" (data)) (declare-function org-element-map "org-element" (data types fun &optional = info first-match no-recursion with-affiliated)) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 8f0bbde29..19ffe244b 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -886,11 +886,11 @@ This also applied for speedbar access." (last-level 0)) (while (re-search-backward re nil t) (let ((level (org-reduced-level (funcall outline-level))) - (headline (org-no-properties + (heading (org-no-properties (org-link-display-format (org-get-heading t t t t))))) - (when (and (<=3D level org-imenu-depth) (org-string-nw-p headline)) + (when (and (<=3D level org-imenu-depth) (org-string-nw-p heading)) (let* ((m (point-marker)) - (item (propertize headline 'org-imenu-marker m 'org-imenu t))) + (item (propertize heading 'org-imenu-marker m 'org-imenu t))) (push m org-imenu-markers) (if (>=3D level last-level) (push (cons item m) (aref subs level)) diff --git a/lisp/org-element.el b/lisp/org-element.el index da682c4a2..5c300d6c2 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -1048,7 +1048,7 @@ Assume point is at beginning of the heading." (progn (goto-char end) (skip-chars-backward " \r\t\n") (line-beginning-position 2))))) - (let ((headline + (let ((heading (list 'headline (nconc (list :raw-value raw-value @@ -1075,7 +1075,7 @@ Assume point is at beginning of the heading." time-props standard-props)))) (org-element-put-property - headline :title + heading :title (if raw-secondary-p raw-value (org-element--parse-objects (progn (goto-char title-start) @@ -1086,21 +1086,21 @@ Assume point is at beginning of the heading." (point)) nil (org-element-restriction 'headline) - headline))))))) + heading))))))) =20 -(defun org-element-headline-interpreter (headline contents) - "Interpret HEADLINE element as Org syntax. +(defun org-element-headline-interpreter (heading contents) + "Interpret HEADING element as Org syntax. CONTENTS is the contents of the element." - (let* ((level (org-element-property :level headline)) - (todo (org-element-property :todo-keyword headline)) - (priority (org-element-property :priority headline)) + (let* ((level (org-element-property :level heading)) + (todo (org-element-property :todo-keyword heading)) + (priority (org-element-property :priority heading)) (title (org-element-interpret-data - (org-element-property :title headline))) - (tags (let ((tag-list (org-element-property :tags headline))) + (org-element-property :title heading))) + (tags (let ((tag-list (org-element-property :tags heading))) (and tag-list (format ":%s:" (mapconcat #'identity tag-list ":"))))) - (commentedp (org-element-property :commentedp headline)) - (pre-blank (or (org-element-property :pre-blank headline) 0)) + (commentedp (org-element-property :commentedp heading)) + (pre-blank (or (org-element-property :pre-blank heading) 0)) (heading (concat (make-string (if org-odd-levels-only (1- (* level 2)) level) ?*) @@ -1109,7 +1109,7 @@ CONTENTS is the contents of the element." (and priority (format " [#%c]" priority)) " " (if (and org-footnote-section - (org-element-property :footnote-section-p headline)) + (org-element-property :footnote-section-p heading)) org-footnote-section title)))) (concat diff --git a/lisp/org-feed.el b/lisp/org-feed.el index ea93d8704..9996fc8ec 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -306,7 +306,7 @@ it can be a list structured like an entry in `org-feed-= alist'." (url (nth 1 feed)) (file (or (nth 2 feed) (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) - (headline (nth 3 feed)) + (heading (nth 3 feed)) (filter (nth 1 (memq :filter feed))) (formatter (nth 1 (memq :formatter feed))) (new-handler (nth 1 (memq :new-handler feed))) @@ -330,7 +330,7 @@ it can be a list structured like an entry in `org-feed-= alist'." (ignore-errors (kill-buffer feed-buffer)) (save-excursion (save-window-excursion - (setq inbox-pos (org-feed-goto-inbox-internal file headline)) + (setq inbox-pos (org-feed-goto-inbox-internal file heading)) (setq old-status (org-feed-read-previous-status inbox-pos drawer)) ;; Add the "handled" status to the appropriate entries (setq entries (mapcar (lambda (e) @@ -420,7 +420,7 @@ it can be a list structured like an entry in `org-feed-= alist'." (message "Added %d new item%s from feed %s to file %s, heading %s" (length new) (if (> (length new) 1) "s" "") name - (file-name-nondirectory file) headline) + (file-name-nondirectory file) heading) (run-hooks 'org-feed-after-adding-hook) (length new)))))) =20 diff --git a/lisp/org-lint.el b/lisp/org-lint.el index da5e6ae79..ec5859a92 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -544,14 +544,14 @@ Use :header-args: instead" (org-element-map ast 'drawer (lambda (d) (when (equal (org-element-property :drawer-name d) "PROPERTIES") - (let ((headline? (org-element-lineage d '(headline))) + (let ((heading? (org-element-lineage d '(headline))) (before (mapcar #'org-element-type (assq d (reverse (org-element-contents (org-element-property :parent d))))))) (list (org-element-property :post-affiliated d) - (if (or (and headline? (member before '(nil (planning)))) - (and (null headline?) (member before '(nil (comment))))) + (if (or (and heading? (member before '(nil (planning)))) + (and (null heading?) (member before '(nil (comment))))) "Incorrect contents for PROPERTIES drawer" "Incorrect location for PROPERTIES drawer"))))))) =20 diff --git a/lisp/org.el b/lisp/org.el index 5dca48f59..b7b54dbc2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -141,7 +141,7 @@ Stars are put in group 1 and the trimmed body in group = 2.") (declare-function org-clock-out-if-current "org-clock" ()) (declare-function org-clock-remove-overlays "org-clock" (&optional beg end= noremove)) (declare-function org-clock-report "org-clock" (&optional arg)) -(declare-function org-clock-sum "org-clock" (&optional tstart tend headlin= e-filter propname)) +(declare-function org-clock-sum "org-clock" (&optional tstart tend heading= -filter propname)) (declare-function org-clock-sum-current-item "org-clock" (&optional tstart= )) (declare-function org-clock-timestamps-down "org-clock" (&optional n)) (declare-function org-clock-timestamps-up "org-clock" (&optional n)) @@ -7119,7 +7119,7 @@ Return nil before first heading." (looking-at org-complex-heading-regexp) (let ((todo (and (not no-todo) (match-string 2))) (priority (and (not no-priority) (match-string 3))) - (headline (pcase (match-string 4) + (heading (pcase (match-string 4) (`nil "") ((and (guard no-comment) h) (replace-regexp-in-string @@ -7129,7 +7129,7 @@ Return nil before first heading." (h h))) (tags (and (not no-tags) (match-string 5)))) (mapconcat #'identity - (delq nil (list todo priority headline tags)) + (delq nil (list todo priority heading tags)) " ")))))) =20 (defun org-heading-components () @@ -20516,11 +20516,11 @@ This function also checks ancestors of the curren= t heading, unless optional argument NO-INHERITANCE is non-nil." (cond ((org-before-first-heading-p) nil) - ((let ((headline (nth 4 (org-heading-components)))) - (and headline + ((let ((heading (nth 4 (org-heading-components)))) + (and heading (let ((case-fold-search nil)) (string-match-p (concat "^" org-comment-string "\\(?: \\|$\\)") - headline))))) + heading))))) (no-inheritance nil) (t (save-excursion (and (org-up-heading-safe) (org-in-commented-heading-p= )))))) diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 185f1fe1f..30ca960ac 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -654,10 +654,10 @@ the title. =20 When optional argument TOC is non-nil, use optional title if possible. It doesn't apply to `inlinetask' elements." - (let* ((headlinep (eq (org-element-type element) 'headline)) + (let* ((headingp (eq (org-element-type element) 'headline)) (numbers ;; Numbering is specific to headings. - (and headlinep + (and headingp (org-export-numbered-headline-p element info) (let ((numbering (org-export-get-headline-number element info))) (if toc (format "%d. " (org-last numbering)) @@ -666,7 +666,7 @@ possible. It doesn't apply to `inlinetask' elements." (text (org-trim (org-export-data - (if (and toc headlinep) (org-export-get-alt-title element info) + (if (and toc headingp) (org-export-get-alt-title element info) (org-element-property :title element)) info))) (todo @@ -694,7 +694,7 @@ possible. It doesn't apply to `inlinetask' elements." tags)) ;; Maybe underline text, if ELEMENT type is `headline' and an ;; underline character has been defined. - (when (and underline headlinep) + (when (and underline headingp) (let ((under-char (nth (1- (org-export-get-relative-level element info)) (cdr (assq (plist-get info :ascii-charset) @@ -763,13 +763,13 @@ contents according to the specified scope." (- (plist-get info :ascii-text-width) (plist-get info :ascii-global-margin))))) (mapconcat - (lambda (headline) - (let* ((level (org-export-get-relative-level headline info)) + (lambda (heading) + (let* ((level (org-export-get-relative-level heading info)) (indent (* (1- level) 3))) (concat (unless (zerop indent) (concat (make-string (1- indent) ?.) " ")) (org-ascii--build-title - headline info (- text-width indent) nil + heading info (- text-width indent) nil (or (not (plist-get info :with-tags)) (eq (plist-get info :with-tags) 'not-in-toc)) 'toc)))) @@ -1297,34 +1297,34 @@ CONTENTS is nil. INFO is a plist holding contextua= l information." =20 ;;;; Heading =20 -(defun org-ascii-headline (headline contents info) - "Transcode a HEADLINE element from Org to ASCII. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-ascii-headline (heading contents info) + "Transcode a HEADING element from Org to ASCII. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." ;; Don't export footnote section, which will be handled at the end ;; of the template. - (unless (org-element-property :footnote-section-p headline) - (let* ((low-level (org-export-low-level-p headline info)) - (width (org-ascii--current-text-width headline info)) + (unless (org-element-property :footnote-section-p heading) + (let* ((low-level (org-export-low-level-p heading info)) + (width (org-ascii--current-text-width heading info)) ;; Export title early so that any link in it can be ;; exported and seen in `org-ascii--unique-links'. - (title (org-ascii--build-title headline info width (not low-level))) + (title (org-ascii--build-title heading info width (not low-level))) ;; Blank lines between heading and its contents. ;; `org-ascii-headline-spacing', when set, overwrites ;; original buffer's spacing. (pre-blanks (make-string (or (car (plist-get info :ascii-headline-spacing)) - (org-element-property :pre-blank headline) + (org-element-property :pre-blank heading) 0) ?\n)) (links (and (plist-get info :ascii-links-to-notes) (org-ascii--describe-links - (org-ascii--unique-links headline info) width info))) + (org-ascii--unique-links heading info) width info))) ;; Re-build contents, inserting section links at the right ;; place. The cost is low since build results are cached. (body (if (not (org-string-nw-p links)) contents - (let* ((contents (org-element-contents headline)) + (let* ((contents (org-element-contents heading)) (section (let ((first (car contents))) (and (eq (org-element-type first) 'section) first)))) @@ -1754,8 +1754,8 @@ contextual information." (if (not (org-string-nw-p links)) contents (concat (org-element-normalize-string contents) "\n\n" links)) ;; Do not apply inner margin if parent heading is low level. - (let ((headline (org-export-get-parent-headline section))) - (if (or (not headline) (org-export-low-level-p headline info)) 0 + (let ((heading (org-export-get-parent-headline section))) + (if (or (not heading) (org-export-low-level-p heading info)) 0 (plist-get info :ascii-inner-margin)))))) =20 =20 @@ -2028,19 +2028,19 @@ contextual information." ;;; Filters =20 -(defun org-ascii-filter-headline-blank-lines (headline _backend info) - "Filter controlling number of blank lines after a headline. +(defun org-ascii-filter-headline-blank-lines (heading _backend info) + "Filter controlling number of blank lines after a heading. =20 -HEADLINE is a string representing a transcoded headline. BACKEND +HEADING is a string representing a transcoded heading. BACKEND is symbol specifying back-end used for export. INFO is plist containing the communication channel. =20 This function only applies to `ascii' back-end. See `org-ascii-headline-spacing' for information." - (let ((headline-spacing (plist-get info :ascii-headline-spacing))) - (if (not headline-spacing) headline - (let ((blanks (make-string (1+ (cdr headline-spacing)) ?\n))) - (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" blanks headline))))) + (let ((heading-spacing (plist-get info :ascii-headline-spacing))) + (if (not heading-spacing) heading + (let ((blanks (make-string (1+ (cdr heading-spacing)) ?\n))) + (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" blanks heading))))) =20 (defun org-ascii-filter-paragraph-spacing (tree _backend info) "Filter controlling number of blank lines between paragraphs. diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index fbed11f58..84a9193ba 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -320,18 +320,18 @@ channel." ;; like "ignoreheading", "note", "noteNH", "appendix" and ;; "againframe". =20 -(defun org-beamer--get-label (headline info) - "Return label for HEADLINE, as a string. +(defun org-beamer--get-label (heading info) + "Return label for HEADING, as a string. =20 INFO is a plist used as a communication channel. =20 The value is either the label specified in \"BEAMER_opt\" property, the custom ID, if there is one and `:latex-prefer-user-labels' property has a non-nil value, or -a unique internal label. This function assumes HEADLINE will be +a unique internal label. This function assumes HEADING will be treated as a frame." (cond - ((let ((opt (org-element-property :BEAMER_OPT headline))) + ((let ((opt (org-element-property :BEAMER_OPT heading))) (and (stringp opt) (string-match "\\(?:^\\|,\\)label=3D\\(.*?\\)\\(?:$\\|,\\)" opt) (let ((label (match-string 1 opt))) @@ -339,26 +339,26 @@ treated as a frame." (substring label 1 -1) label))))) ((and (plist-get info :latex-prefer-user-labels) - (org-element-property :CUSTOM_ID headline))) - (t (format "sec:%s" (org-export-get-reference headline info))))) + (org-element-property :CUSTOM_ID heading))) + (t (format "sec:%s" (org-export-get-reference heading info))))) =20 -(defun org-beamer--frame-level (headline info) - "Return frame level in subtree containing HEADLINE. +(defun org-beamer--frame-level (heading info) + "Return frame level in subtree containing HEADING. INFO is a plist used as a communication channel." (or ;; 1. Look for "frame" environment in parents, starting from the ;; farthest. (catch 'exit - (dolist (parent (nreverse (org-element-lineage headline))) + (dolist (parent (nreverse (org-element-lineage heading))) (let ((env (org-element-property :BEAMER_ENV parent))) (when (and env (member-ignore-case env '("frame" "fullframe"))) (throw 'exit (org-export-get-relative-level parent info)))))) ;; 2. Look for "frame" environment in HEADING. - (let ((env (org-element-property :BEAMER_ENV headline))) + (let ((env (org-element-property :BEAMER_ENV heading))) (and env (member-ignore-case env '("frame" "fullframe")) - (org-export-get-relative-level headline info))) + (org-export-get-relative-level heading info))) ;; 3. Look for "frame" environment in sub-tree. - (org-element-map headline 'headline + (org-element-map heading 'headline (lambda (hl) (let ((env (org-element-property :BEAMER_ENV hl))) (when (and env (member-ignore-case env '("frame" "fullframe"))) @@ -367,11 +367,11 @@ INFO is a plist used as a communication channel." ;; 4. No "frame" environment in tree: use default value. (plist-get info :headline-levels))) =20 -(defun org-beamer--format-section (headline contents info) - "Format HEADLINE as a sectioning part. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-beamer--format-section (heading contents info) + "Format HEADING as a sectioning part. +CONTENTS holds the contents of the heading. INFO is a plist used as a communication channel." - (let ((latex-headline + (let ((latex-heading (org-export-with-backend ;; We create a temporary export back-end which behaves the ;; same as current one, but adds "\protect" in front of the @@ -388,40 +388,40 @@ used as a communication channel." (mapcar (lambda (type) (cons type protected-output)) '(bold footnote-reference italic strike-through timestamp underline)))) - headline + heading contents info)) - (mode-specs (org-element-property :BEAMER_ACT headline))) + (mode-specs (org-element-property :BEAMER_ACT heading))) (if (and mode-specs (string-match "\\`\\\\\\(.*?\\)\\(?:\\*\\|\\[.*\\]\\)?{" - latex-headline)) + latex-heading)) ;; Insert overlay specifications. - (replace-match (concat (match-string 1 latex-headline) + (replace-match (concat (match-string 1 latex-heading) (format "<%s>" mode-specs)) - nil nil latex-headline 1) - latex-headline))) + nil nil latex-heading 1) + latex-heading))) =20 -(defun org-beamer--format-frame (headline contents info) - "Format HEADLINE as a frame. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-beamer--format-frame (heading contents info) + "Format HEADING as a frame. +CONTENTS holds the contents of the heading. INFO is a plist used as a communication channel." (let ((fragilep ;; FRAGILEP is non-nil when HEADING contains an element ;; among `org-beamer-verbatim-elements'. - (org-element-map headline org-beamer-verbatim-elements 'identity + (org-element-map heading org-beamer-verbatim-elements 'identity info 'first-match))) (concat "\\begin{frame}" ;; Overlay specification, if any. When surrounded by ;; square brackets, consider it as a default ;; specification. - (let ((action (org-element-property :BEAMER_ACT headline))) + (let ((action (org-element-property :BEAMER_ACT heading))) (cond ((not action) "") ((string-match "\\`\\[.*\\]\\'" action ) (org-beamer--normalize-argument action 'defaction)) (t (org-beamer--normalize-argument action 'action)))) ;; Options, if any. - (let* ((beamer-opt (org-element-property :BEAMER_OPT headline)) + (let* ((beamer-opt (org-element-property :BEAMER_OPT heading)) (options ;; Collect nonempty options from default value and ;; heading's properties. @@ -450,7 +450,7 @@ used as a communication channel." (not (cl-some (lambda (s) (string-match-p "^label=3D" s)) options)) (list - (let ((label (org-beamer--get-label headline info))) + (let ((label (org-beamer--get-label heading info))) ;; Labels containing colons need to be ;; wrapped within braces. (format (if (string-match-p ":" label) @@ -462,11 +462,11 @@ used as a communication channel." (mapconcat #'identity (append label fragile options) ",") 'option)) ;; Title. - (let ((env (org-element-property :BEAMER_ENV headline))) + (let ((env (org-element-property :BEAMER_ENV heading))) (format "{%s}" (if (and env (equal (downcase env) "fullframe")) "" (org-export-data - (org-element-property :title headline) info)))) + (org-element-property :title heading) info)))) "\n" ;; The following workaround is required in fragile frames ;; as Beamer will append "\par" to the beginning of the @@ -479,16 +479,16 @@ used as a communication channel." (replace-regexp-in-string "\\`\n*" "\\& " (or contents ""))) "\\end{frame}"))) =20 -(defun org-beamer--format-block (headline contents info) - "Format HEADLINE as a block. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-beamer--format-block (heading contents info) + "Format HEADING as a block. +CONTENTS holds the contents of the heading. INFO is a plist used as a communication channel." - (let* ((column-width (org-element-property :BEAMER_COL headline)) + (let* ((column-width (org-element-property :BEAMER_COL heading)) ;; ENVIRONMENT defaults to "block" if none is specified and ;; there is no column specification. If there is a column ;; specified but still no explicit environment, ENVIRONMENT ;; is "column". - (environment (let ((env (org-element-property :BEAMER_ENV headline))) + (environment (let ((env (org-element-property :BEAMER_ENV heading))) (cond ;; "block" is the fallback environment. ((and (not env) (not column-width)) "block") @@ -496,16 +496,16 @@ used as a communication channel." ((not env) "column") ;; Use specified environment. (t env)))) - (raw-title (org-element-property :raw-value headline)) + (raw-title (org-element-property :raw-value heading)) (env-format (cond ((member environment '("column" "columns")) nil) ((assoc environment (append (plist-get info :beamer-environments-extra) org-beamer-environments-default))) - (t (user-error "Wrong block type at a headline named \"%s\"" + (t (user-error "Wrong block type at a heading named \"%s\"" raw-title)))) - (title (org-export-data (org-element-property :title headline) info)) - (raw-options (org-element-property :BEAMER_OPT headline)) + (title (org-export-data (org-element-property :title heading) info)) + (raw-options (org-element-property :BEAMER_OPT heading)) (options (if raw-options (org-beamer--normalize-argument raw-options 'option) "")) @@ -513,17 +513,17 @@ used as a communication channel." ;; when there is no previous heading or the previous ;; heading do not have a BEAMER_column property. (parent-env (org-element-property - :BEAMER_ENV (org-export-get-parent-headline headline))) + :BEAMER_ENV (org-export-get-parent-headline heading))) (start-columns-p (or (equal environment "columns") (and column-width (not (and parent-env (equal (downcase parent-env) "columns"))) - (or (org-export-first-sibling-p headline info) + (or (org-export-first-sibling-p heading info) (not (org-element-property :BEAMER_COL (org-export-get-previous-element - headline info))))))) + heading info))))))) ;; End the "columns" environment when explicitly requested or ;; when there is no next heading or the next heading do not ;; have a BEAMER_column property. @@ -532,10 +532,10 @@ used as a communication channel." (and column-width (not (and parent-env (equal (downcase parent-env) "columns"))) - (or (org-export-last-sibling-p headline info) + (or (org-export-last-sibling-p heading info) (not (org-element-property :BEAMER_COL - (org-export-get-next-element headline info)))))))) + (org-export-get-next-element heading info)))))))) (concat (when start-columns-p ;; Column can accept options only when the environment is @@ -558,7 +558,7 @@ used as a communication channel." ;; brackets, it is a default overlay specification and ;; overlay specification is empty. Otherwise, it is an ;; overlay specification and the default one is nil. - (let ((action (org-element-property :BEAMER_ACT headline))) + (let ((action (org-element-property :BEAMER_ACT heading))) (cond ((not action) (list (cons "a" "") (cons "A" "") (cons "R" ""))) ((and (string-prefix-p "[" action) @@ -586,32 +586,32 @@ used as a communication channel." (when column-width "\\end{column}\n") (when end-columns-p "\\end{columns}")))) =20 -(defun org-beamer-headline (headline contents info) - "Transcode HEADLINE element into Beamer code. -CONTENTS is the contents of the headline. INFO is a plist used +(defun org-beamer-headline (heading contents info) + "Transcode HEADING element into Beamer code. +CONTENTS is the contents of the heading. INFO is a plist used as a communication channel." - (unless (org-element-property :footnote-section-p headline) - (let ((level (org-export-get-relative-level headline info)) - (frame-level (org-beamer--frame-level headline info)) - (environment (let ((env (org-element-property :BEAMER_ENV headline))) + (unless (org-element-property :footnote-section-p heading) + (let ((level (org-export-get-relative-level heading info)) + (frame-level (org-beamer--frame-level heading info)) + (environment (let ((env (org-element-property :BEAMER_ENV heading))) (or (org-string-nw-p env) "block")))) (cond ;; Case 1: Resume frame specified by "BEAMER_ref" property. ((equal environment "againframe") - (let ((ref (org-element-property :BEAMER_REF headline))) + (let ((ref (org-element-property :BEAMER_REF heading))) ;; Reference to frame being resumed is mandatory. Ignore ;; the whole heading if it isn't provided. (when (org-string-nw-p ref) (concat "\\againframe" ;; Overlay specification. - (let ((overlay (org-element-property :BEAMER_ACT headline))) + (let ((overlay (org-element-property :BEAMER_ACT heading))) (when overlay (org-beamer--normalize-argument overlay (if (string-match "\\`\\[.*\\]\\'" overlay) 'defaction 'action)))) ;; Options. - (let ((options (org-element-property :BEAMER_OPT headline))) + (let ((options (org-element-property :BEAMER_OPT heading))) (when options (org-beamer--normalize-argument options 'option))) ;; Resolve reference provided by "BEAMER_ref" @@ -635,19 +635,19 @@ as a communication channel." ;; Case 2: Creation of an appendix is requested. ((equal environment "appendix") (concat "\\appendix" - (org-element-property :BEAMER_ACT headline) + (org-element-property :BEAMER_ACT heading) "\n" - (make-string (org-element-property :pre-blank headline) ?\n) + (make-string (org-element-property :pre-blank heading) ?\n) contents)) ;; Case 3: Ignore heading. ((equal environment "ignoreheading") - (concat (make-string (org-element-property :pre-blank headline) ?\n) + (concat (make-string (org-element-property :pre-blank heading) ?\n) contents)) ;; Case 4: HEADING is a note. ((member environment '("note" "noteNH")) (concat "\\note" ;; Overlay specification. - (let ((overlay (org-element-property :BEAMER_ACT headline))) + (let ((overlay (org-element-property :BEAMER_ACT heading))) (when overlay (org-beamer--normalize-argument overlay @@ -657,19 +657,19 @@ as a communication channel." (concat (and (equal environment "note") (concat (org-export-data - (org-element-property :title headli= ne) + (org-element-property :title headin= g) info) "\n")) (org-trim contents))))) ;; Case 5: HEADING is a frame. ((=3D level frame-level) - (org-beamer--format-frame headline contents info)) + (org-beamer--format-frame heading contents info)) ;; Case 6: Regular section, extracted from ;; `org-latex-classes'. ((< level frame-level) - (org-beamer--format-section headline contents info)) + (org-beamer--format-section heading contents info)) ;; Case 7: Otherwise, HEADING is a block. - (t (org-beamer--format-block headline contents info)))))) + (t (org-beamer--format-block heading contents info)))))) =20 =20 ;;;; Item diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 7acf82418..f48c09be4 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2312,9 +2312,9 @@ a plist used as a communication channel. Optional ar= gument SCOPE is an element defining the scope of the table. Return the table of contents as a string, or nil if it is empty." (let ((toc-entries - (mapcar (lambda (headline) - (cons (org-html--format-toc-headline headline info) - (org-export-get-relative-level headline info))) + (mapcar (lambda (heading) + (cons (org-html--format-toc-headline heading info) + (org-export-get-relative-level heading info))) (org-export-collect-headlines info depth scope)))) (when toc-entries (let ((toc (concat "
" @@ -2342,7 +2342,7 @@ and value is its relative level, as an integer." (concat (mapconcat (lambda (entry) - (let ((headline (car entry)) + (let ((heading (car entry)) (level (cdr entry))) (concat (let* ((cnt (- level prev-level)) @@ -2353,34 +2353,34 @@ and value is its relative level, as an integer." times (cond ((> cnt 0) "\n
    \n
  • ") ((< cnt 0) "
    • \n
\n"))) (if (> cnt 0) "\n
    \n
  • " "
    • \n
  • "))) - headline))) + heading))) toc-entries "") (org-html--make-string (- prev-level start-level) "
    • \n
\n")))) =20 -(defun org-html--format-toc-headline (headline info) - "Return an appropriate table of contents entry for HEADLINE. +(defun org-html--format-toc-headline (heading info) + "Return an appropriate table of contents entry for HEADING. INFO is a plist used as a communication channel." - (let* ((headline-number (org-export-get-headline-number headline info)) + (let* ((heading-number (org-export-get-headline-number heading info)) (todo (and (plist-get info :with-todo-keywords) - (let ((todo (org-element-property :todo-keyword headline))) + (let ((todo (org-element-property :todo-keyword heading))) (and todo (org-export-data todo info))))) - (todo-type (and todo (org-element-property :todo-type headline))) + (todo-type (and todo (org-element-property :todo-type heading))) (priority (and (plist-get info :with-priority) - (org-element-property :priority headline))) + (org-element-property :priority heading))) (text (org-export-data-with-backend - (org-export-get-alt-title headline info) + (org-export-get-alt-title heading info) (org-export-toc-entry-backend 'html) info)) (tags (and (eq (plist-get info :with-tags) t) - (org-export-get-tags headline info)))) + (org-export-get-tags heading info)))) (format "%s" ;; Label. - (org-html--reference headline info) + (org-html--reference heading info) ;; Body. (concat - (and (not (org-export-low-level-p headline info)) - (org-export-numbered-headline-p headline info) - (concat (mapconcat #'number-to-string headline-number ".") + (and (not (org-export-low-level-p heading info)) + (org-export-numbered-headline-p heading info) + (concat (mapconcat #'number-to-string heading-number ".") ". ")) (apply (plist-get info :html-format-headline-function) todo todo-type priority text tags :section-number nil))))) @@ -2601,53 +2601,53 @@ CONTENTS is nil. INFO is a plist holding contextua= l information." =20 ;;;; Heading =20 -(defun org-html-headline (headline contents info) - "Transcode a HEADLINE element from Org to HTML. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-html-headline (heading contents info) + "Transcode a HEADING element from Org to HTML. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." - (unless (org-element-property :footnote-section-p headline) - (let* ((numberedp (org-export-numbered-headline-p headline info)) - (numbers (org-export-get-headline-number headline info)) - (level (+ (org-export-get-relative-level headline info) + (unless (org-element-property :footnote-section-p heading) + (let* ((numberedp (org-export-numbered-headline-p heading info)) + (numbers (org-export-get-headline-number heading info)) + (level (+ (org-export-get-relative-level heading info) (1- (plist-get info :html-toplevel-hlevel)))) (todo (and (plist-get info :with-todo-keywords) - (let ((todo (org-element-property :todo-keyword head= line))) + (let ((todo (org-element-property :todo-keyword head= ing))) (and todo (org-export-data todo info))))) - (todo-type (and todo (org-element-property :todo-type headline)= )) + (todo-type (and todo (org-element-property :todo-type heading))) (priority (and (plist-get info :with-priority) - (org-element-property :priority headline))) - (text (org-export-data (org-element-property :title headline) i= nfo)) + (org-element-property :priority heading))) + (text (org-export-data (org-element-property :title heading) in= fo)) (tags (and (plist-get info :with-tags) - (org-export-get-tags headline info))) + (org-export-get-tags heading info))) (full-text (funcall (plist-get info :html-format-headline-funct= ion) todo todo-type priority text tags info)) (contents (or contents "")) - (id (org-html--reference headline info)) + (id (org-html--reference heading info)) (formatted-text (if (plist-get info :html-self-link-headlines) (format "%s" id full-text) full-text))) - (if (org-export-low-level-p headline info) + (if (org-export-low-level-p heading info) ;; This is a deep sub-tree: export it as a list item. (let* ((html-type (if numberedp "ol" "ul"))) (concat - (and (org-export-first-sibling-p headline info) + (and (org-export-first-sibling-p heading info) (apply #'format "<%s class=3D\"org-%s\">\n" (make-list 2 html-type))) (org-html-format-list-item contents (if numberedp 'ordered 'unordered) nil info nil (concat (org-html--anchor id nil nil info) formatted-text)) "\n" - (and (org-export-last-sibling-p headline info) + (and (org-export-last-sibling-p heading info) (format "\n" html-type)))) ;; Standard heading. Export it as a section. (let ((extra-class - (org-element-property :HTML_CONTAINER_CLASS headline)) - (headline-class - (org-element-property :HTML_HEADLINE_CLASS headline)) - (first-content (car (org-element-contents headline)))) + (org-element-property :HTML_CONTAINER_CLASS heading)) + (heading-class + (org-element-property :HTML_HEADLINE_CLASS heading)) + (first-content (car (org-element-contents heading)))) (format "<%s id=3D\"%s\" class=3D\"%s\">%s%s\n" - (org-html--container headline info) + (org-html--container heading info) (format "outline-container-%s" id) (concat (format "outline-%d" level) (and extra-class " ") @@ -2655,8 +2655,8 @@ holding contextual information." (format "\n%s\n" level id - (if (not headline-class) "" - (format " class=3D\"%s\"" headline-class)) + (if (not heading-class) "" + (format " class=3D\"%s\"" heading-class)) (concat (and numberedp (format @@ -2671,7 +2671,7 @@ holding contextual information." ;; `org-info.js'. (if (eq (org-element-type first-content) 'section) conte= nts (concat (org-html-section first-content "" info) conte= nts)) - (org-html--container headline info))))))) + (org-html--container heading info))))))) =20 (defun org-html-format-headline-default-function (todo _todo-type priority text tags info) @@ -2685,9 +2685,9 @@ See `org-html-format-headline-function' for details." text (and tags "   ") tags))) =20 -(defun org-html--container (headline info) - (or (org-element-property :HTML_CONTAINER headline) - (if (=3D 1 (org-export-get-relative-level headline info)) +(defun org-html--container (heading info) + (or (org-element-property :HTML_CONTAINER heading) + (if (=3D 1 (org-export-get-relative-level heading info)) (plist-get info :html-container) "div"))) =20 @@ -2763,7 +2763,7 @@ INFO is a plist holding contextual information. See =20 (defun org-html-format-list-item (contents type checkbox info &optional term-counter-id - headline) + heading) "Format a list item into HTML." (let ((class (if checkbox (format " class=3D\"%s\"" @@ -2771,7 +2771,7 @@ INFO is a plist holding contextual information. See (checkbox (concat (org-html-checkbox checkbox info) (and checkbox " "))) (br (org-html-close-tag "br" nil info)) - (extra-newline (if (and (org-string-nw-p contents) headline) "\n" ""))) + (extra-newline (if (and (org-string-nw-p contents) heading) "\n" ""))) (concat (pcase type (`ordered @@ -2779,13 +2779,13 @@ INFO is a plist holding contextual information. See (extra (if counter (format " value=3D\"%s\"" counter) ""))) (concat (format "" class extra) - (when headline (concat headline br))))) + (when heading (concat heading br))))) (`unordered (let* ((id term-counter-id) (extra (if id (format " id=3D\"%s\"" id) ""))) (concat (format "" class extra) - (when headline (concat headline br))))) + (when heading (concat heading br))))) (`descriptive (let* ((term term-counter-id)) (setq term (or term "(no term)")) diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index b293636e0..8cd561ed8 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -331,12 +331,12 @@ a message if the file was modified." (message "ID properties created in file \"%s\"" file) (sit-for 2)))) =20 -(defun org-icalendar-blocked-headline-p (headline info) - "Non-nil when HEADLINE is considered to be blocked. +(defun org-icalendar-blocked-headline-p (heading info) + "Non-nil when HEADING is considered to be blocked. =20 INFO is a plist used as a communication channel. =20 -A headline is blocked when either +A heading is blocked when either =20 - it has children which are not all in a completed state; =20 @@ -347,13 +347,13 @@ A headline is blocked when either done first or is a child of a blocked grandparent entry." (or ;; Check if any child is not done. - (org-element-map (org-element-contents headline) 'headline + (org-element-map (org-element-contents heading) 'headline (lambda (hl) (eq (org-element-property :todo-type hl) 'todo)) info 'first-match) ;; Check :ORDERED: node property. (catch 'blockedp - (let ((current headline)) - (dolist (parent (org-element-lineage headline)) + (let ((current heading)) + (dolist (parent (org-element-lineage heading)) (cond ((not (org-element-property :todo-keyword parent)) (throw 'blockedp nil)) @@ -515,11 +515,11 @@ or subject for the event." ;;; Filters =20 -(defun org-icalendar-clear-blank-lines (headline _back-end _info) - "Remove blank lines in HEADLINE export. -HEADLINE is a string representing a transcoded headline. +(defun org-icalendar-clear-blank-lines (heading _back-end _info) + "Remove blank lines in HEADING export. +HEADING is a string representing a transcoded heading. BACK-END and INFO are ignored." - (replace-regexp-in-string "^\\(?:[ \t]*\n\\)+" "" headline)) + (replace-regexp-in-string "^\\(?:[ \t]*\n\\)+" "" heading)) =20 =20 diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index 50ef8c04e..b361a856c 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -626,31 +626,31 @@ channel." =20 ;; Heading =20 -(defun org-koma-letter-headline (headline contents info) - "Transcode a HEADLINE element from Org to LaTeX. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-koma-letter-headline (heading contents info) + "Transcode a HEADING element from Org to LaTeX. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information. =20 -Note that if a headline is tagged with a tag from +Note that if a heading is tagged with a tag from `org-koma-letter-special-tags' it will not be exported, but stored in `org-koma-letter-special-contents' and included at the appropriate place." - (let ((special-tag (org-koma-letter--special-tag headline info))) + (let ((special-tag (org-koma-letter--special-tag heading info))) (if (not special-tag) contents (push (cons special-tag contents) org-koma-letter-special-contents) ""))) =20 -(defun org-koma-letter--special-tag (headline info) - "Non-nil if HEADLINE is a special headline. +(defun org-koma-letter--special-tag (heading info) + "Non-nil if HEADING is a special heading. INFO is a plist holding contextual information. Return first -special tag headline." +special tag heading." (let ((special-tags (append (plist-get info :special-tags-in-letter) (plist-get info :special-tags-after-closing) (plist-get info :special-tags-after-letter)))) (cl-some (lambda (tag) (and (assoc-string tag special-tags) tag)) - (org-export-get-tags headline info)))) + (org-export-get-tags heading info)))) =20 (defun org-koma-letter--keyword-or-headline (plist-key pred info) "Return the correct version of opening or closing. diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index ee627f780..dd8776796 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1949,14 +1949,14 @@ CONTENTS is nil. INFO is a plist holding contextua= l information." =20 ;;;; Heading =20 -(defun org-latex-headline (headline contents info) - "Transcode a HEADLINE element from Org to LaTeX. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-latex-headline (heading contents info) + "Transcode a HEADING element from Org to LaTeX. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." - (unless (org-element-property :footnote-section-p headline) + (unless (org-element-property :footnote-section-p heading) (let* ((class (plist-get info :latex-class)) - (level (org-export-get-relative-level headline info)) - (numberedp (org-export-numbered-headline-p headline info)) + (level (org-export-get-relative-level heading info)) + (numberedp (org-export-numbered-headline-p heading info)) (class-sectioning (assoc class (plist-get info :latex-classes))) ;; Section formatting will set two placeholders: one for ;; the title and the other for the contents. @@ -1995,32 +1995,32 @@ holding contextual information." (verbatim . (lambda (o _ _) (org-latex--protect-texttt (org= -element-property :value o))))))) (text (org-export-data-with-backend - (org-element-property :title headline) section-back-end info)) + (org-element-property :title heading) section-back-end info)) (todo (and (plist-get info :with-todo-keywords) - (let ((todo (org-element-property :todo-keyword headline))) + (let ((todo (org-element-property :todo-keyword heading))) (and todo (org-export-data todo info))))) - (todo-type (and todo (org-element-property :todo-type headline))) + (todo-type (and todo (org-element-property :todo-type heading))) (tags (and (plist-get info :with-tags) - (org-export-get-tags headline info))) + (org-export-get-tags heading info))) (priority (and (plist-get info :with-priority) - (org-element-property :priority headline))) + (org-element-property :priority heading))) ;; Create the heading text along with a no-tag version. ;; The latter is required to remove tags from toc. (full-text (funcall (plist-get info :latex-format-headline-function) todo todo-type priority text tags info)) ;; Associate \label to the heading for internal links. - (headline-label (org-latex--label headline info t t)) + (heading-label (org-latex--label heading info t t)) (pre-blanks - (make-string (org-element-property :pre-blank headline) ?\n))) - (if (or (not section-fmt) (org-export-low-level-p headline info)) + (make-string (org-element-property :pre-blank heading) ?\n))) + (if (or (not section-fmt) (org-export-low-level-p heading info)) ;; This is a deep sub-tree: export it as a list item. Also ;; export as items headings for which no section format has ;; been found. (let ((low-level-body (concat ;; If heading is the first sibling, start a list. - (when (org-export-first-sibling-p headline info) + (when (org-export-first-sibling-p heading info) (format "\\begin{%s}\n" (if numberedp 'enumerate 'itemize))) ;; Itemize heading "\\item" @@ -2028,13 +2028,13 @@ holding contextual information." (string-match-p "\\`[ \t]*\\[" full-text) "\\relax") " " full-text "\n" - headline-label + heading-label pre-blanks contents))) ;; If heading is not the last sibling simply return ;; LOW-LEVEL-BODY. Otherwise, also close the list, before ;; any blank line. - (if (not (org-export-last-sibling-p headline info)) low-level-body + (if (not (org-export-last-sibling-p heading info)) low-level-body (replace-regexp-in-string "[ \t\n]*\\'" (format "\n\\\\end{%s}" (if numberedp 'enumerate 'itemize)) @@ -2046,7 +2046,7 @@ holding contextual information." (funcall (plist-get info :latex-format-headline-function) todo todo-type priority (org-export-data-with-backend - (org-export-get-alt-title headline info) + (org-export-get-alt-title heading info) section-back-end info) (and (eq (plist-get info :with-tags) t) tags) info)) @@ -2056,7 +2056,7 @@ holding contextual information." contents (let ((case-fold-search t) (section - (let ((first (car (org-element-contents headline)))) + (let ((first (car (org-element-contents heading)))) (and (eq (org-element-type first) 'section) first)))) (org-element-map section 'keyword (lambda (k) @@ -2076,11 +2076,11 @@ holding contextual information." (replace-regexp-in-string "\\[" "(" (replace-regexp-in-string "\\]" ")" opt-title)) full-text - (concat headline-label pre-blanks contents)) + (concat heading-label pre-blanks contents)) ;; Impossible to add an alternative heading. Fallback to ;; regular sectioning format string. (format section-fmt full-text - (concat headline-label pre-blanks contents)))))))) + (concat heading-label pre-blanks contents)))))))) =20 (defun org-latex-format-headline-default-function (todo _todo-type priority text tags _info) diff --git a/lisp/ox-man.el b/lisp/ox-man.el index 59ddaf284..adededc31 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -442,11 +442,11 @@ CONTENTS is nil. INFO is a plist holding contextual = information." =20 ;;; Heading =20 -(defun org-man-headline (headline contents info) - "Transcode a HEADLINE element from Org to Man. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-man-headline (heading contents info) + "Transcode a HEADING element from Org to Man. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." - (let* ((level (org-export-get-relative-level headline info)) + (let* ((level (org-export-get-relative-level heading info)) ;; Section formatting will set two placeholders: one for the ;; title and the other for the contents. (section-fmt @@ -455,21 +455,21 @@ holding contextual information." (2 ".SS \"%s\"\n%s") (3 ".SS \"%s\"\n%s") (_ nil))) - (text (org-export-data (org-element-property :title headline) info))) + (text (org-export-data (org-element-property :title heading) info))) =20 (cond ;; Case 1: This is a footnote section: ignore it. - ((org-element-property :footnote-section-p headline) nil) + ((org-element-property :footnote-section-p heading) nil) =20 ;; Case 2. This is a deep sub-tree: export it as a list item. ;; Also export as items headings for which no section ;; format has been found. - ((or (not section-fmt) (org-export-low-level-p headline info)) + ((or (not section-fmt) (org-export-low-level-p heading info)) ;; Build the real contents of the sub-tree. (let ((low-level-body (concat ;; If the heading is the first sibling, start a list. - (when (org-export-first-sibling-p headline info) + (when (org-export-first-sibling-p heading info) (format "%s\n" ".RS")) ;; Itemize heading ".TP\n.ft I\n" text "\n.ft\n" @@ -477,7 +477,7 @@ holding contextual information." ;; If heading is not the last sibling simply return ;; LOW-LEVEL-BODY. Otherwise, also close the list, before any ;; blank line. - (if (not (org-export-last-sibling-p headline info)) low-level-body + (if (not (org-export-last-sibling-p heading info)) low-level-body (replace-regexp-in-string "[ \t\n]*\\'" "" low-level-body)))) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index fa0247ca0..9fb75fa57 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -159,15 +159,15 @@ Assume BACKEND is `md'." ;;; Internal functions =20 -(defun org-md--headline-referred-p (headline info) - "Non-nil when HEADLINE is being referred to. +(defun org-md--headline-referred-p (heading info) + "Non-nil when HEADING is being referred to. INFO is a plist used as a communication channel. Links and table -of contents can refer to headlines." - (unless (org-element-property :footnote-section-p headline) +of contents can refer to headings." + (unless (org-element-property :footnote-section-p heading) (or ;; Global table of contents includes HEADING. (and (plist-get info :with-toc) - (memq headline + (memq heading (org-export-collect-headlines info (plist-get info :with-toc)))) ;; A local table of contents includes HEADING. (cl-some @@ -185,15 +185,15 @@ of contents can refer to headlines." (string-match "\\<[0-9]+\\>" value) (string-to-number (match-string 0 value)))) (local? (string-match-p "\\" value))) - (memq headline + (memq heading (org-export-collect-headlines info n (and local? keyword)))))))) info t)))) - (org-element-lineage headline)) + (org-element-lineage heading)) ;; A link refers internally to HEADING. (org-element-map (plist-get info :parse-tree) 'link (lambda (link) - (eq headline + (eq heading (pcase (org-element-property :type link) ((or "custom-id" "id") (org-export-resolve-id-link link info)) ("fuzzy" (org-export-resolve-fuzzy-link link info)) @@ -233,30 +233,30 @@ contents according to the specified element." (title (org-html--translate "Table of Contents" info))) (org-md--headline-title style 1 title nil))) (mapconcat - (lambda (headline) + (lambda (heading) (let* ((indentation (make-string - (* 4 (1- (org-export-get-relative-level headline info))) + (* 4 (1- (org-export-get-relative-level heading info))) ?\s)) (bullet - (if (not (org-export-numbered-headline-p headline info)) "- " + (if (not (org-export-numbered-headline-p heading info)) "- " (let ((prefix (format "%d." (org-last (org-export-get-headline-number - headline info))))) + heading info))))) (concat prefix (make-string (max 1 (- 4 (length prefix))) ?\s))))) (title (format "[%s](#%s)" (org-export-data-with-backend - (org-export-get-alt-title headline info) + (org-export-get-alt-title heading info) (org-export-toc-entry-backend 'md) info) - (or (org-element-property :CUSTOM_ID headline) - (org-export-get-reference headline info)))) + (or (org-element-property :CUSTOM_ID heading) + (org-export-get-reference heading info)))) (tags (and (plist-get info :with-tags) (not (eq 'not-in-toc (plist-get info :with-tags))) (org-make-tag-string - (org-export-get-tags headline info))))) + (org-export-get-tags heading info))))) (concat indentation bullet title tags))) (org-export-collect-headlines info n scope) "\n") "\n")) @@ -345,48 +345,48 @@ CONTENTS is nil. INFO is a plist holding contextual = information." =20 ;;;; Heading =20 -(defun org-md-headline (headline contents info) - "Transcode HEADLINE element into Markdown format. -CONTENTS is the headline contents. INFO is a plist used as +(defun org-md-headline (heading contents info) + "Transcode HEADING element into Markdown format. +CONTENTS is the heading contents. INFO is a plist used as a communication channel." - (unless (org-element-property :footnote-section-p headline) - (let* ((level (org-export-get-relative-level headline info)) - (title (org-export-data (org-element-property :title headline) info)) + (unless (org-element-property :footnote-section-p heading) + (let* ((level (org-export-get-relative-level heading info)) + (title (org-export-data (org-element-property :title heading) info)) (todo (and (plist-get info :with-todo-keywords) (let ((todo (org-element-property :todo-keyword - headline))) + heading))) (and todo (concat (org-export-data todo info) " "))))) (tags (and (plist-get info :with-tags) - (let ((tag-list (org-export-get-tags headline info))) + (let ((tag-list (org-export-get-tags heading info))) (and tag-list (concat " " (org-make-tag-string tag-list)))))) (priority (and (plist-get info :with-priority) - (let ((char (org-element-property :priority headline))) + (let ((char (org-element-property :priority heading))) (and char (format "[#%c] " char))))) ;; Heading text without tags. (heading (concat todo priority title)) (style (plist-get info :md-headline-style))) (cond ;; Cannot create a heading. Fall-back to a list. - ((or (org-export-low-level-p headline info) + ((or (org-export-low-level-p heading info) (not (memq style '(atx setext))) (and (eq style 'atx) (> level 6)) (and (eq style 'setext) (> level 2))) (let ((bullet - (if (not (org-export-numbered-headline-p headline info)) "-" + (if (not (org-export-numbered-headline-p heading info)) "-" (concat (number-to-string (car (last (org-export-get-headline-number - headline info)))) + heading info)))) ".")))) (concat bullet (make-string (- 4 (length bullet)) ?\s) heading tags "\n= \n" (and contents (replace-regexp-in-string "^" " " contents))))) (t (let ((anchor - (and (org-md--headline-referred-p headline info) + (and (org-md--headline-referred-p heading info) (format "" - (or (org-element-property :CUSTOM_ID headline) - (org-export-get-reference headline info)))))) + (or (org-element-property :CUSTOM_ID heading) + (org-export-get-reference heading info)))))) (concat (org-md--headline-title style level heading anchor tags) contents))))))) =20 diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index a506658b1..4da41be2c 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -1148,21 +1148,21 @@ table of contents as a string, or nil." ;; ;; Likewise, links, footnote references and regular targets are also ;; suppressed. - (let* ((headlines (org-export-collect-headlines info depth scope)) + (let* ((headings (org-export-collect-headlines info depth scope)) (backend (org-export-toc-entry-backend (org-export-backend-name (plist-get info :back-end))))) - (when headlines + (when headings (org-odt--format-toc (and (not scope) (org-export-translate "Table of Contents" :utf-8 i= nfo)) (mapconcat - (lambda (headline) + (lambda (heading) (let* ((entry (org-odt-format-headline--wrap - headline backend info 'org-odt-format-toc-headline)) - (level (org-export-get-relative-level headline info)) + heading backend info 'org-odt-format-toc-headline)) + (level (org-export-get-relative-level heading info)) (style (format "Contents_20_%d" level))) (format "\n%s" style entry))) - headlines "\n") + headings "\n") depth)))) =20 =20 @@ -1750,58 +1750,58 @@ CONTENTS is nil. INFO is a plist holding contextua= l information." =20 ;;;; Heading =20 -(defun org-odt-format-headline--wrap (headline backend info +(defun org-odt-format-headline--wrap (heading backend info &optional format-function &rest extra-keys) - "Transcode a HEADLINE element using BACKEND. + "Transcode a HEADING element using BACKEND. INFO is a plist holding contextual information." (setq backend (or backend (plist-get info :back-end))) - (let* ((level (+ (org-export-get-relative-level headline info))) - (headline-number (org-export-get-headline-number headline info)) - (section-number (and (org-export-numbered-headline-p headline info) + (let* ((level (+ (org-export-get-relative-level heading info))) + (heading-number (org-export-get-headline-number heading info)) + (section-number (and (org-export-numbered-headline-p heading info) (mapconcat 'number-to-string - headline-number "."))) + heading-number "."))) (todo (and (plist-get info :with-todo-keywords) - (let ((todo (org-element-property :todo-keyword headline))) + (let ((todo (org-element-property :todo-keyword heading))) (and todo (org-export-data-with-backend todo backend info))))) - (todo-type (and todo (org-element-property :todo-type headline))) + (todo-type (and todo (org-element-property :todo-type heading))) (priority (and (plist-get info :with-priority) - (org-element-property :priority headline))) + (org-element-property :priority heading))) (text (org-export-data-with-backend - (org-element-property :title headline) backend info)) + (org-element-property :title heading) backend info)) (tags (and (plist-get info :with-tags) - (org-export-get-tags headline info))) - (headline-label (org-export-get-reference headline info)) + (org-export-get-tags heading info))) + (heading-label (org-export-get-reference heading info)) (format-function (if (functionp format-function) format-function (cl-function (lambda (todo todo-type priority text tags - &key _level _section-number _headline-label + &key _level _section-number _heading-label &allow-other-keys) (funcall (plist-get info :odt-format-headline-function) todo todo-type priority text tags)))))) (apply format-function todo todo-type priority text tags - :headline-label headline-label + :headline-label heading-label :level level :section-number section-number extra-keys))) =20 -(defun org-odt-headline (headline contents info) - "Transcode a HEADLINE element from Org to ODT. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-odt-headline (heading contents info) + "Transcode a HEADING element from Org to ODT. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." ;; Case 1: This is a footnote section: ignore it. - (unless (org-element-property :footnote-section-p headline) - (let* ((full-text (org-odt-format-headline--wrap headline nil info)) + (unless (org-element-property :footnote-section-p heading) + (let* ((full-text (org-odt-format-headline--wrap heading nil info)) ;; Get level relative to current parsed data. - (level (org-export-get-relative-level headline info)) - (numbered (org-export-numbered-headline-p headline info)) + (level (org-export-get-relative-level heading info)) + (numbered (org-export-numbered-headline-p heading info)) ;; Get canonical label for the heading. - (id (org-export-get-reference headline info)) + (id (org-export-get-reference heading info)) ;; Extra targets. (extra-targets - (let ((id (org-element-property :ID headline))) + (let ((id (org-element-property :ID heading))) (if id (org-odt--target "" (concat "ID-" id)) ""))) ;; Title. (anchored-title (org-odt--target full-text id))) @@ -1809,10 +1809,10 @@ holding contextual information." ;; Case 2. This is a deep sub-tree: export it as a list item. ;; Also export as items headings for which no section ;; format has been found. - ((org-export-low-level-p headline info) + ((org-export-low-level-p heading info) ;; Build the real contents of the sub-tree. (concat - (and (org-export-first-sibling-p headline info) + (and (org-export-first-sibling-p heading info) (format "\n" ;; Choose style based on list type. (if numbered "OrgNumberedList" "OrgBulletedList") @@ -1820,12 +1820,12 @@ holding contextual information." ;; continue numbering. (format "text:continue-numbering=3D\"%s\"" (let* ((parent (org-export-get-parent-headline - headline))) + heading))) (if (and parent (org-export-low-level-p parent info)) "true" "false"))))) - (let ((headline-has-table-p - (let ((section (assq 'section (org-element-contents headline)))) + (let ((heading-has-table-p + (let ((section (assq 'section (org-element-contents heading)))) (assq 'table (and section (org-element-contents section)))))) (format "\n\n%s\n%s" (concat @@ -1833,10 +1833,10 @@ holding contextual information." "Text_20_body" (concat extra-targets anchored-title)) contents) - (if headline-has-table-p + (if heading-has-table-p "" ""))) - (and (org-export-last-sibling-p headline info) + (and (org-export-last-sibling-p heading info) ""))) ;; Case 3. Standard heading. Export it as a section. (t @@ -2654,7 +2654,7 @@ Return nil, otherwise." item-numbers ""))))) ;; Case 2: Locate a regular and numbered heading in the ;; hierarchy. Display its section number. - (let ((headline + (let ((heading (and ;; Test if destination is a numbered heading. (org-export-numbered-headline-p destination info) @@ -2664,22 +2664,22 @@ Return nil, otherwise." (org-export-numbered-headline-p el info)) return el)))) ;; We found one. - (when headline + (when heading (format "%s" label (mapconcat 'number-to-string (org-export-get-headline-number - headline info) ".")))) + heading info) ".")))) ;; Case 4: Locate a regular heading in the hierarchy. Display ;; its title. - (let ((headline (cl-loop for el in (cons destination genealogy) + (let ((heading (cl-loop for el in (cons destination genealogy) when (and (eq (org-element-type el) 'headline) (not (org-export-low-level-p el info))) return el))) ;; We found one. - (when headline + (when heading (format "%s" label - (let ((title (org-element-property :title headline))) + (let ((title (org-element-property :title heading))) (org-export-data title info))))) (error "FIXME?")))) =20 diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 842c3668b..74dfd5531 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -144,19 +144,19 @@ CONTENTS is its contents, as a string or nil. INFO i= s ignored." "^[ \t]*#\\+attr_[-_a-z0-9]+:\\(?: .*\\)?\n" "" (org-export-expand blob contents t)))) =20 -(defun org-org-headline (headline contents info) - "Transcode HEADLINE element back into Org syntax. +(defun org-org-headline (heading contents info) + "Transcode HEADING element back into Org syntax. CONTENTS is its contents, as a string or nil. INFO is ignored." - (unless (org-element-property :footnote-section-p headline) + (unless (org-element-property :footnote-section-p heading) (unless (plist-get info :with-todo-keywords) - (org-element-put-property headline :todo-keyword nil)) + (org-element-put-property heading :todo-keyword nil)) (unless (plist-get info :with-tags) - (org-element-put-property headline :tags nil)) + (org-element-put-property heading :tags nil)) (unless (plist-get info :with-priority) - (org-element-put-property headline :priority nil)) - (org-element-put-property headline :level - (org-export-get-relative-level headline info)) - (org-element-headline-interpreter headline contents))) + (org-element-put-property heading :priority nil)) + (org-element-put-property heading :level + (org-export-get-relative-level heading info)) + (org-element-headline-interpreter heading contents))) =20 (defun org-org-keyword (keyword _contents _info) "Transcode KEYWORD element back into Org syntax. diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 5eef93353..bae16a9b8 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -414,9 +414,9 @@ If two strings share the same prefix (e.g. \"ISO-8859-1= \" and "Remove TAB characters in string S." (replace-regexp-in-string "\t" (make-string tab-width ?\s) s)) =20 -(defun org-texinfo--filter-section-blank-lines (headline _backend _info) +(defun org-texinfo--filter-section-blank-lines (heading _backend _info) "Filter controlling number of blank lines after a section." - (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" "\n\n" headline)) + (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" "\n\n" heading)) =20 (defun org-texinfo--normalize-headlines (tree _backend info) "Normalize headings in TREE. @@ -863,28 +863,28 @@ plist holding contextual information." =20 ;;;; Heading =20 -(defun org-texinfo-headline (headline contents info) - "Transcode a HEADLINE element from Org to Texinfo. -CONTENTS holds the contents of the headline. INFO is a plist +(defun org-texinfo-headline (heading contents info) + "Transcode a HEADING element from Org to Texinfo. +CONTENTS holds the contents of the heading. INFO is a plist holding contextual information." (cond - ((org-element-property :footnote-section-p headline) nil) - ((org-not-nil (org-export-get-node-property :COPYING headline t)) nil) + ((org-element-property :footnote-section-p heading) nil) + ((org-not-nil (org-export-get-node-property :COPYING heading t)) nil) (t - (let* ((index (let ((i (org-export-get-node-property :INDEX headline t= ))) + (let* ((index (let ((i (org-export-get-node-property :INDEX heading t)= )) (and (member i '("cp" "fn" "ky" "pg" "tp" "vr")) i))) - (numbered? (org-export-numbered-headline-p headline info)) - (notoc? (org-export-excluded-from-toc-p headline info)) + (numbered? (org-export-numbered-headline-p heading info)) + (notoc? (org-export-excluded-from-toc-p heading info)) (command (and - (not (org-export-low-level-p headline info)) + (not (org-export-low-level-p heading info)) (let ((sections (org-texinfo--sectioning-structure info))) - (pcase (nth (1- (org-export-get-relative-level headline inf= o)) + (pcase (nth (1- (org-export-get-relative-level heading info= )) sections) (`(,numbered ,unnumbered ,unnumbered-no-toc ,appendix) (cond ((org-not-nil - (org-export-get-node-property :APPENDIX headline t)) + (org-export-get-node-property :APPENDIX heading t)) appendix) (numbered? numbered) (index unnumbered) @@ -895,15 +895,15 @@ holding contextual information." (plist-get info :texinfo-class))))))) (todo (and (plist-get info :with-todo-keywords) - (let ((todo (org-element-property :todo-keyword headline))) + (let ((todo (org-element-property :todo-keyword heading))) (and todo (org-export-data todo info))))) - (todo-type (and todo (org-element-property :todo-type headline))) + (todo-type (and todo (org-element-property :todo-type heading))) (tags (and (plist-get info :with-tags) - (org-export-get-tags headline info))) + (org-export-get-tags heading info))) (priority (and (plist-get info :with-priority) - (org-element-property :priority headline))) + (org-element-property :priority heading))) (text (org-texinfo--sanitize-title - (org-element-property :title headline) info)) + (org-element-property :title heading) info)) (full-text (funcall (plist-get info :texinfo-format-headline-function) todo todo-type priority text tags)) @@ -911,13 +911,13 @@ holding contextual information." (concat "\n" (if (org-string-nw-p contents) (concat "\n" contents) "") (and index (format "\n@printindex %s\n" index)))) - (node (org-texinfo--get-node headline info))) + (node (org-texinfo--get-node heading info))) (if (not command) - (concat (and (org-export-first-sibling-p headline info) + (concat (and (org-export-first-sibling-p heading info) (format "@%s\n" (if numbered? 'enumerate 'itemize))) (format "@item\n@anchor{%s}%s\n" node full-text) contents - (if (org-export-last-sibling-p headline info) + (if (org-export-last-sibling-p heading info) (format "@end %s" (if numbered? 'enumerate 'itemize)) "\n")) (concat diff --git a/lisp/ox.el b/lisp/ox.el index da8cc1475..cf7afbe59 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -1683,13 +1683,13 @@ associated numbering \(in the shape of a list of nu= mbers) or nil for a footnotes section." (let ((numbering (make-vector org-export-max-depth 0))) (org-element-map data 'headline - (lambda (headline) - (when (and (org-export-numbered-headline-p headline options) - (not (org-element-property :footnote-section-p headline))) + (lambda (heading) + (when (and (org-export-numbered-headline-p heading options) + (not (org-element-property :footnote-section-p heading))) (let ((relative-level - (1- (org-export-get-relative-level headline options)))) + (1- (org-export-get-relative-level heading options)))) (cons - headline + heading (cl-loop for n across numbering for idx from 0 to org-export-max-depth @@ -3925,39 +3925,39 @@ process, leading to a different order when footnote= s are nested." ;; as a secondary string, suitable for table of contents. It falls ;; back onto default title. =20 -(defun org-export-get-relative-level (headline info) - "Return HEADLINE relative level within current parsed tree. +(defun org-export-get-relative-level (heading info) + "Return HEADING relative level within current parsed tree. INFO is a plist holding contextual information." - (+ (org-element-property :level headline) + (+ (org-element-property :level heading) (or (plist-get info :headline-offset) 0))) =20 -(defun org-export-low-level-p (headline info) - "Non-nil when HEADLINE is considered as low level. +(defun org-export-low-level-p (heading info) + "Non-nil when HEADING is considered as low level. =20 INFO is a plist used as a communication channel. =20 -A low level headlines has a relative level greater than +A low level headings has a relative level greater than `:headline-levels' property value. =20 -Return value is the difference between HEADLINE relative level +Return value is the difference between HEADING relative level and the last level being considered as high enough, or nil." (let ((limit (plist-get info :headline-levels))) (when (wholenump limit) - (let ((level (org-export-get-relative-level headline info))) + (let ((level (org-export-get-relative-level heading info))) (and (> level limit) (- level limit)))))) =20 -(defun org-export-get-headline-number (headline info) - "Return numbered HEADLINE numbering as a list of numbers. +(defun org-export-get-headline-number (heading info) + "Return numbered HEADING numbering as a list of numbers. INFO is a plist holding contextual information." - (and (org-export-numbered-headline-p headline info) - (cdr (assq headline (plist-get info :headline-numbering))))) + (and (org-export-numbered-headline-p heading info) + (cdr (assq heading (plist-get info :headline-numbering))))) =20 -(defun org-export-numbered-headline-p (headline info) - "Return a non-nil value if HEADLINE element should be numbered. +(defun org-export-numbered-headline-p (heading info) + "Return a non-nil value if HEADING element should be numbered. INFO is a plist used as a communication channel." - (unless (org-not-nil (org-export-get-node-property :UNNUMBERED headline = t)) + (unless (org-not-nil (org-export-get-node-property :UNNUMBERED heading t= )) (let ((sec-num (plist-get info :section-numbers)) - (level (org-export-get-relative-level headline info))) + (level (org-export-get-relative-level heading info))) (if (wholenump sec-num) (<=3D level sec-num) sec-num)))) =20 (defun org-export-number-to-roman (n) @@ -4010,10 +4010,10 @@ If optional argument INHERITED is non-nil, the valu= e can be inherited from a parent heading. =20 Return value is a string or nil." - (let ((headline (if (eq (org-element-type datum) 'headline) datum + (let ((heading (if (eq (org-element-type datum) 'headline) datum (org-export-get-parent-headline datum)))) (if (not inherited) (org-element-property property datum) - (let ((parent headline)) + (let ((parent heading)) (catch 'found (while parent (when (plist-member (nth 1 parent) property) @@ -4038,13 +4038,13 @@ fail, the fall-back value is \"???\"." (and file (file-name-sans-extension (file-name-nondirectory file)))) "???")) =20 -(defun org-export-get-alt-title (headline _) - "Return alternative title for HEADLINE, as a secondary string. +(defun org-export-get-alt-title (heading _) + "Return alternative title for HEADING, as a secondary string. If no optional title is defined, fall-back to the regular title." - (let ((alt (org-element-property :ALT_TITLE headline))) + (let ((alt (org-element-property :ALT_TITLE heading))) (if alt (org-element-parse-secondary-string - alt (org-element-restriction 'headline) headline) - (org-element-property :title headline)))) + alt (org-element-restriction 'headline) heading) + (org-element-property :title heading)))) =20 (defun org-export-first-sibling-p (blob info) "Non-nil when BLOB is the first sibling in its parent. @@ -4377,10 +4377,10 @@ tree or a file name. Assume LINK type is either \"= id\" or (let ((id (org-element-property :path link))) ;; First check if id is within the current parse tree. (or (org-element-map (plist-get info :parse-tree) 'headline - (lambda (headline) - (when (or (equal (org-element-property :ID headline) id) - (equal (org-element-property :CUSTOM_ID headline) id)) - headline)) + (lambda (heading) + (when (or (equal (org-element-property :ID heading) id) + (equal (org-element-property :CUSTOM_ID heading) id)) + heading)) info 'first-match) ;; Otherwise, look for external files. (cdr (assoc id (plist-get info :id-alist))) @@ -5351,19 +5351,19 @@ INFO is a plist used as a communication channel. Return a list of `src-block' elements with a caption." (org-export-collect-elements 'src-block info)) =20 -(defun org-export-excluded-from-toc-p (headline info) - "Non-nil if HEADLINE should be excluded from tables of contents. +(defun org-export-excluded-from-toc-p (heading info) + "Non-nil if HEADING should be excluded from tables of contents. =20 INFO is a plist used as a communication channel. =20 -Note that such headlines are already excluded from +Note that such headings are already excluded from `org-export-collect-headlines'. Therefore, this function is not -necessary if you only need to list headlines in the table of +necessary if you only need to list headings in the table of contents. However, it is useful if some additional processing is -required on headlines excluded from table of contents." - (or (org-element-property :footnote-section-p headline) - (org-export-low-level-p headline info) - (equal "notoc" (org-export-get-node-property :UNNUMBERED headline t)= ))) +required on headings excluded from table of contents." + (or (org-element-property :footnote-section-p heading) + (org-export-low-level-p heading info) + (equal "notoc" (org-export-get-node-property :UNNUMBERED heading t))= )) =20 (defun org-export-toc-entry-backend (parent &rest transcoders) "Return an export back-end appropriate for table of contents entries. --=20 2.33.0 --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: attachment; filename=0003-Fix-docstrings.patch Content-Transfer-Encoding: quoted-printable >From 1bcbd93360d06a5d88bfea7b3b2f6151262c64aa Mon Sep 17 00:00:00 2001 From: =3D?UTF-8?q?Andr=3DC3=3DA9=3D20A=3D2E=3D20Gomes?=3D Date: Wed, 6 Oct 2021 11:59:37 +0300 Subject: [PATCH 03/76] Fix docstrings. These changes don't impact the user. --- lisp/oc.el | 4 +- lisp/ol-bibtex.el | 28 +-- lisp/ol.el | 12 +- lisp/org-agenda.el | 94 +++++----- lisp/org-archive.el | 28 +-- lisp/org-capture.el | 14 +- lisp/org-clock.el | 16 +- lisp/org-colview.el | 6 +- lisp/org-compat.el | 10 +- lisp/org-crypt.el | 4 +- lisp/org-datetree.el | 6 +- lisp/org-element.el | 20 +- lisp/org-faces.el | 32 ++-- lisp/org-feed.el | 14 +- lisp/org-goto.el | 8 +- lisp/org-id.el | 4 +- lisp/org-indent.el | 8 +- lisp/org-inlinetask.el | 4 +- lisp/org-keys.el | 10 +- lisp/org-list.el | 8 +- lisp/org-macs.el | 2 +- lisp/org-mouse.el | 18 +- lisp/org-num.el | 40 ++-- lisp/org-refile.el | 28 +-- lisp/org.el | 408 ++++++++++++++++++++--------------------- lisp/ox-ascii.el | 26 +-- lisp/ox-beamer.el | 22 +-- lisp/ox-html.el | 24 +-- lisp/ox-icalendar.el | 16 +- lisp/ox-koma-letter.el | 26 +-- lisp/ox-latex.el | 22 +-- lisp/ox-man.el | 4 +- lisp/ox-md.el | 10 +- lisp/ox-odt.el | 12 +- lisp/ox-org.el | 10 +- lisp/ox-publish.el | 4 +- lisp/ox-texinfo.el | 26 +-- lisp/ox.el | 88 ++++----- 38 files changed, 558 insertions(+), 558 deletions(-) diff --git a/lisp/oc.el b/lisp/oc.el index 501c7a5c3..e186df6de 100644 --- a/lisp/oc.el +++ b/lisp/oc.el @@ -1049,7 +1049,7 @@ the same object, call `org-cite-adjust-note' first." =20 The return value is suitable as a replacement for a \"print_bibliography\" keyword. As a consequence, the function -raises an error if S contains a headline." +raises an error if S contains a heading." (with-temp-buffer (insert s) (pcase (org-element-contents (org-element-parse-buffer)) @@ -1057,7 +1057,7 @@ raises an error if S contains a headline." (`(,(and section (guard (eq 'section (org-element-type section))))) (org-element-contents section)) (_ - (error "Headlines cannot replace a keyword"))))) + (error "Headings cannot replace a keyword"))))) =20 (defun org-cite-parse-objects (s &optional affix) "Parse string S as a secondary string. diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el index 23b00d5d8..812f57f10 100644 --- a/lisp/ol-bibtex.el +++ b/lisp/ol-bibtex.el @@ -248,8 +248,8 @@ For example setting to `BIB_' would allow interoperabil= ity with fireforg." (string))) =20 (defcustom org-bibtex-treat-headline-as-title t - "Treat headline text as title if title property is absent. -If an entry is missing a title property, use the headline text as + "Treat heading text as title if title property is absent. +If an entry is missing a title property, use the heading text as the property. If this value is t, `org-bibtex-check' will ignore a missing title field." :group 'org-bibtex @@ -258,7 +258,7 @@ a missing title field." =20 (defcustom org-bibtex-headline-format-function (lambda (entry) (cdr (assq :title entry))) - "Function returning the headline text for `org-bibtex-write'. + "Function returning the heading text for `org-bibtex-write'. It should take a single argument, the bibtex entry (an alist as returned by `org-bibtex-read'). The default value simply returns the entry title." @@ -279,7 +279,7 @@ not placed in the exported bibtex entry." (defcustom org-bibtex-key-property "CUSTOM_ID" "Property that holds the bibtex key. By default, this is CUSTOM_ID, which enables easy linking to -bibtex headlines from within an org file. This can be set to ID +bibtex headings from within an org file. This can be set to ID to enable global links, but only with great caution, as global IDs must be unique." :group 'org-bibtex @@ -354,7 +354,7 @@ and `org-tags-exclude-from-inheritance'." value))) =20 (defun org-bibtex-headline () - "Return a bibtex entry of the given headline as a string." + "Return a bibtex entry of the given heading as a string." (letrec ((val (lambda (key lst) (cdr (assoc key lst)))) (to (lambda (string) (intern (concat ":" string)))) (from (lambda (key) (substring (symbol-name key) 1))) @@ -433,7 +433,7 @@ and `org-tags-exclude-from-inheritance'." (when (> (length result) 0) result))))) =20 (defun org-bibtex-autokey () - "Generate an autokey for the current headline." + "Generate an autokey for the current heading." (org-bibtex-put org-bibtex-key-property (if org-bibtex-autogen-keys (let* ((entry (org-bibtex-headline)) @@ -580,8 +580,8 @@ ARG, when non-nil, is a universal prefix argument. See ;;; Bibtex <-> Org heading translation functions (defun org-bibtex (filename) - "Export each headline in the current file to a bibtex entry. -Headlines are exported using `org-bibtex-headline'." + "Export each heading in the current file to a bibtex entry. +Headings are exported using `org-bibtex-headline'." (interactive (list (read-file-name "Bibtex file: " nil nil nil @@ -607,7 +607,7 @@ Headlines are exported using `org-bibtex-headline'." (message "Bibtex error at %S" (nth 4 (org-heading-components)))))) =20 (defun org-bibtex-check (&optional optional) - "Check the current headline for required fields. + "Check the current heading for required fields. With prefix argument OPTIONAL also prompt for optional fields." (interactive "P") (save-restriction @@ -617,14 +617,14 @@ With prefix argument OPTIONAL also prompt for optiona= l fields." (when type (org-bibtex-fleshout type optional))))) =20 (defun org-bibtex-check-all (&optional optional) - "Check all headlines in the current file. + "Check all headings in the current file. With prefix argument OPTIONAL also prompt for optional fields." (interactive) (org-map-entries (lambda () (org-bibtex-check optional)))) =20 (defun org-bibtex-create (&optional arg nonew) "Create a new entry at the given level. With a prefix arg, query for optional fields as well. -If nonew is t, add data to the headline of the entry at point." +If nonew is t, add data to the heading of the entry at point." (interactive "P") (let* ((type (completing-read "Type: " (mapcar (lambda (type) @@ -732,7 +732,7 @@ Return the number of saved entries." (mapc togtag org-bibtex-tags))) =20 (defun org-bibtex-yank () - "If kill ring holds a bibtex entry yank it as an Org headline." + "If kill ring holds a bibtex entry yank it as an Org heading." (interactive) (let (entry) (with-temp-buffer (yank 1) (setf entry (org-bibtex-read))) @@ -741,7 +741,7 @@ Return the number of saved entries." (error "Yanked text does not appear to contain a BibTeX entry")))) =20 (defun org-bibtex-import-from-file (file) - "Read bibtex entries from FILE and insert as Org headlines after point." + "Read bibtex entries from FILE and insert as Org headings after point." (interactive "fFile: ") (dotimes (_ (org-bibtex-read-file file)) (save-excursion (org-bibtex-write)) @@ -749,7 +749,7 @@ Return the number of saved entries." (open-line 1) (forward-char 1))) =20 (defun org-bibtex-export-to-kill-ring () - "Export current headline to kill ring as bibtex entry." + "Export current heading to kill ring as bibtex entry." (interactive) (let ((result (org-bibtex-headline))) (kill-new result) result)) diff --git a/lisp/ol.el b/lisp/ol.el index 3b93ad721..4a26efc2d 100644 --- a/lisp/ol.el +++ b/lisp/ol.el @@ -337,11 +337,11 @@ another window." (const wl-other-frame))))) =20 (defcustom org-link-search-must-match-exact-headline 'query-to-create - "Non-nil means internal fuzzy links can only match headlines. + "Non-nil means internal fuzzy links can only match headings. =20 When nil, the a fuzzy link may point to a target or a named construct in the document. When set to the special value -`query-to-create', offer to create a new headline when none +`query-to-create', offer to create a new heading when none matched. =20 Spaces and statistics cookies are ignored during heading searches." @@ -349,8 +349,8 @@ Spaces and statistics cookies are ignored during headin= g searches." :version "24.1" :type '(choice (const :tag "Use fuzzy text search" nil) - (const :tag "Match only exact headline" t) - (const :tag "Match exact headline or query to create it" + (const :tag "Match only exact heading" t) + (const :tag "Match exact heading or query to create it" query-to-create)) :safe #'symbolp) =20 @@ -1261,13 +1261,13 @@ of matched result, which is either `dedicated' or `= fuzzy'." type)) =20 (defun org-link-heading-search-string (&optional string) - "Make search string for the current headline or STRING. + "Make search string for the current heading or STRING. =20 Search string starts with an asterisk. COMMENT keyword and statistics cookies are removed, and contiguous spaces are packed into a single one. =20 -When optional argument STRING is non-nil, assume it a headline, +When optional argument STRING is non-nil, assume it a heading, without any asterisk, TODO or COMMENT keyword, and without any priority cookie or tag." (concat "*" diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5fb136fb5..ddfaf9a66 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -313,7 +313,7 @@ the daily/weekly agenda, see `org-agenda-skip-function'= .") (choice :tag "Setting" (list :tag "Heading for this block" (const org-agenda-overriding-header) - (string :tag "Headline")) + (string :tag "Heading")) (list :tag "Files to be searched" (const org-agenda-files) (list @@ -461,7 +461,7 @@ desc A description of the command, when omitted or = nil, a default type The command type, any of the following symbols: agenda The daily/weekly agenda. todo Entries with a specific TODO keyword, in all agenda = files. - search Entries containing search words entry or headline. + search Entries containing search words entry or heading. tags Tags/Property/TODO match in all agenda files. tags-todo Tags/P/T match in all agenda files, TODO entries onl= y. todo-tree Sparse tree of specific TODO keyword in *current* fi= le. @@ -595,13 +595,13 @@ you can then use it to define a custom command." This is a list of four items: 1. A tags/todo/property matcher string that is used to identify a project. See the manual for a description of tag and property searches. - The entire tree below a headline matched by this is considered one proj= ect. + The entire tree below a heading matched by this is considered one proje= ct. 2. A list of TODO keywords identifying non-stuck projects. - If the project subtree contains any headline with one of these todo + If the project subtree contains any heading with one of these todo keywords, the project is considered to be not stuck. If you specify \"*\" as a keyword, any TODO keyword will mark the project unstuck. 3. A list of tags identifying non-stuck projects. - If the project subtree contains any headline with one of these tags, + If the project subtree contains any heading with one of these tags, the project is considered to be not stuck. If you specify \"*\" as a tag, any tag will mark the project unstuck. Note that this is about the explicit presence of a tag somewhere in the subtree, inherited @@ -674,7 +674,7 @@ files will be included.") =20 (defcustom org-agenda-restriction-lock-highlight-subtree t "Non-nil means highlight the whole subtree when restriction is active. -Otherwise only highlight the headline. Highlighting the whole subtree is +Otherwise only highlight the heading. Highlighting the whole subtree is useful to ensure no edits happen beyond the restricted region." :group 'org-agenda :type 'boolean) @@ -1012,7 +1012,7 @@ The buffer is still writable when the hook is called. =20 You can modify some of the buffer substrings but you should be extra careful not to modify the text properties of the agenda -headlines as the agenda display heavily relies on them." +headings as the agenda display heavily relies on them." :group 'org-agenda-startup :type 'hook) =20 @@ -1480,7 +1480,7 @@ When nil, they may also match part of a word." (defcustom org-agenda-search-view-max-outline-level 0 "Maximum outline level to display in search view. E.g. when this is set to 1, the search view will only -show headlines of level 1. When set to 0, the default +show headings of level 1. When set to 0, the default value, don't limit agenda view by outline level." :group 'org-agenda-search-view :version "26.1" @@ -1493,12 +1493,12 @@ value, don't limit agenda view by outline level." :group 'org-agenda) =20 (defcustom org-agenda-search-headline-for-time t - "Non-nil means search headline for a time-of-day. -If the headline contains a time-of-day in one format or another, it will + "Non-nil means search heading for a time-of-day. +If the heading contains a time-of-day in one format or another, it will be used to sort the entry into the time sequence of items for a day. -Some people have time stamps in the headline that refer to the creation +Some people have time stamps in the heading that refer to the creation time or so, and then this produces an unwanted side effect. If this is -the case for your, use this variable to turn off searching the headline +the case for your, use this variable to turn off searching the heading for a time." :group 'org-agenda-time-grid :type 'boolean) @@ -1608,8 +1608,8 @@ user-defined-up Sort according to `org-agenda-cmp-= user-defined', high last. user-defined-down Sort according to `org-agenda-cmp-user-defined', high f= irst. habit-up Put entries that are habits first. habit-down Put entries that are habits last. -alpha-up Sort headlines alphabetically. -alpha-down Sort headlines alphabetically, reversed. +alpha-up Sort headings alphabetically. +alpha-down Sort headings alphabetically, reversed. =20 The different possibilities will be tried in sequence, and testing stops if one comparison returns a \"not-equal\". For example, the default @@ -1827,14 +1827,14 @@ to capture the number of days." (defcustom org-agenda-remove-times-when-in-prefix t "Non-nil means remove duplicate time specifications in agenda items. When the format `org-agenda-prefix-format' contains a `%t' specifier, a -time-of-day specification in a headline or diary entry is extracted and +time-of-day specification in a heading or diary entry is extracted and placed into the prefix. If this option is non-nil, the original specifica= tion \(a timestamp or -range, or just a plain time(range) specification like 11:30-4pm) will be removed for agenda display. This makes the agenda less cluttered. The option can be t or nil. It may also be the symbol `beg', indicating that the time should only be removed when it is located at the beginning of -the headline/diary entry." +the heading/diary entry." :group 'org-agenda-line-format :type '(choice (const :tag "Always" t) @@ -1922,7 +1922,7 @@ Nil means don't hide any tags." 'org-agenda-remove-tags) =20 (defcustom org-agenda-remove-tags nil - "Non-nil means remove the tags from the headline copy in the agenda. + "Non-nil means remove the tags from the heading copy in the agenda. When this is the symbol `prefix', only remove tags when `org-agenda-prefix-format' contains a `%T' specifier." :group 'org-agenda-line-format @@ -2825,9 +2825,9 @@ a Call `org-agenda-list' to display the agenda fo= r current day or week. t Call `org-todo-list' to display the global todo list. T Call `org-todo-list' to display the global todo list, select only entries with a specific TODO keyword (the user gets a prompt). -m Call `org-tags-view' to display headlines with tags matching +m Call `org-tags-view' to display headings with tags matching a condition (the user is prompted for the condition). -M Like `m', but select only TODO entries, no ordinary headlines. +M Like `m', but select only TODO entries, no ordinary headings. e Export views to associated files. s Search entries for keywords. S Search entries for keywords, only with TODO keywords. @@ -3364,7 +3364,7 @@ item is a list of comma-separated values, like this: category,head,type,todo,tags,date,time,extra,priority-l,priority-n =20 category The category of the item -head The headline, without TODO kwd, TAGS and PRIORITY +head The heading, without TODO kwd, TAGS and PRIORITY type The type of the agenda entry, can be todo selected in TODO match tagsmatch selected in tags match @@ -4574,7 +4574,7 @@ regular expressions that must or (when preceded with = \"-\") must not match in the entry. Snippets enclosed into double quotes will be taken as a whole, to include whitespace. =20 -- If the search string starts with an asterisk, search only in headlines. +- If the search string starts with an asterisk, search only in headings. - If (possibly after the leading star) the search string starts with an exclamation mark, this also means to look at TODO entries only, an effect that can also be achieved with a prefix argument. @@ -4949,7 +4949,7 @@ to search again: (0)[ALL]")) =20 ;;;###autoload (defun org-tags-view (&optional todo-only match) - "Show all headlines for all `org-agenda-files' matching a TAGS criterion. + "Show all headings for all `org-agenda-files' matching a TAGS criterion. The prefix arg TODO-ONLY limits the search to TODO entries." (interactive "P") (when org-agenda-overriding-arguments @@ -5014,7 +5014,7 @@ The prefix arg TODO-ONLY limits the search to TODO en= tries." (setq rtnall (append rtnall rtn)))))))) (org-agenda--insert-overriding-header (with-temp-buffer - (insert "Headlines with TAGS match: ") + (insert "Headings with TAGS match: ") (add-text-properties (point-min) (1- (point)) (list 'face 'org-agenda-structure 'short-heading @@ -6675,7 +6675,7 @@ specifier in the format. DOTIME, when non-nil, indicates that a time-of-day should be extracted from TXT for sorting of this entry, and for the `%t' specifier in the format. When DOTIME is a string, this string is searched for a time before TXT is. -TAGS can be the tags of the headline. +TAGS can be the tags of the heading. Any match of REMOVE-RE will be removed from TXT." ;; We keep the org-prefix-* variable values along with a compiled ;; formatter, so that multiple agendas existing at the same time do @@ -7237,7 +7237,7 @@ The optional argument TYPE tells the agenda type." ((< lb la) +1)))) =20 (defsubst org-cmp-alpha (a b) - "Compare the headlines, alphabetically." + "Compare the headings, alphabetically." (let* ((pla (text-property-any 0 (length a) 'org-heading t a)) (plb (text-property-any 0 (length b) 'org-heading t b)) (ta (and pla (substring a pla))) @@ -7366,7 +7366,7 @@ their type." ;;; Agenda restriction lock =20 (defvar org-agenda-restriction-lock-overlay (make-overlay 1 1) - "Overlay to mark the headline to which agenda commands are restricted.") + "Overlay to mark the heading to which agenda commands are restricted.") (overlay-put org-agenda-restriction-lock-overlay 'face 'org-agenda-restriction-lock) (overlay-put org-agenda-restriction-lock-overlay @@ -7395,7 +7395,7 @@ Argument ARG is the prefix argument." When in a restricted subtree, remove it. =20 The restriction will span over the entire file if TYPE is `file', -or if type is '(4), or if the cursor is before the first headline +or if type is '(4), or if the cursor is before the first heading in the file. Otherwise, only apply the restriction to the current subtree." (interactive "P") @@ -7687,7 +7687,7 @@ filter." (t (error "No category at point")))))) =20 (defun org-find-top-headline (&optional pos) - "Find the topmost parent headline and return it. + "Find the topmost parent heading and return it. POS when non-nil is the marker or buffer position to start the search from." (save-excursion @@ -7702,8 +7702,8 @@ search from." =20 (defvar org-agenda-filtered-by-top-headline nil) (defun org-agenda-filter-by-top-headline (strip) - "Keep only those lines that are descendants from the same top headline. -The top headline is that of the current line. With prefix arg STRIP, hide + "Keep only those lines that are descendants from the same top heading. +The top heading is that of the current line. With prefix arg STRIP, hide all lines of the category at point." (interactive "P") (if org-agenda-filtered-by-top-headline @@ -7713,7 +7713,7 @@ all lines of the category at point." (org-agenda-filter-show-all-top-filter)) (let ((toph (org-find-top-headline (org-get-at-bol 'org-hd-marker)))) (if toph (org-agenda-filter-top-headline-apply toph strip) - (error "No top-level headline at point"))))) + (error "No top-level heading at point"))))) =20 (defvar org-agenda-regexp-filter nil) (defun org-agenda-filter-by-regexp (strip-or-accumulate) @@ -8231,7 +8231,7 @@ grouptags." (ignore-errors (org-agenda-previous-line)))) =20 (defun org-agenda-filter-top-headline-apply (hl &optional negative) - "Filter by top headline HL." + "Filter by top heading HL." (org-agenda-set-mode-name) (save-excursion (goto-char (point-min)) @@ -9410,7 +9410,7 @@ the dedicated frame." (org-tree-to-indirect-buffer arg))))) =20 (defvar org-last-heading-marker (make-marker) - "Marker pointing to the headline that last changed its TODO state + "Marker pointing to the heading that last changed its TODO state by a remote command from the agenda.") =20 (defun org-agenda-todo-nextset () @@ -9428,7 +9428,7 @@ by a remote command from the agenda.") (defun org-agenda-todo (&optional arg) "Cycle TODO state of line at point, also in Org file. This changes the line at point, all other lines in the agenda referring to -the same tree node, and the headline of the tree node in the Org file." +the same tree node, and the heading of the tree node in the Org file." (interactive "P") (org-agenda-check-no-diary) (org-agenda-maybe-loop @@ -9608,7 +9608,7 @@ current line." (defun org-agenda-priority (&optional force-direction) "Set the priority of line at point, also in Org file. This changes the line at point, all other lines in the agenda -referring to the same tree node, and the headline of the tree +referring to the same tree node, and the heading of the tree node in the Org file. =20 Called with one universal prefix arg, show the priority instead @@ -9639,7 +9639,7 @@ When called programmatically, FORCE-DIRECTION can be = `set', `up', =20 ;; FIXME: should fix the tags property of the agenda line. (defun org-agenda-set-tags (&optional tag onoff) - "Set tags for the current headline." + "Set tags for the current heading." (interactive) (org-agenda-check-no-diary) (if (and (org-region-active-p) (called-interactively-p 'any)) @@ -9664,7 +9664,7 @@ When called programmatically, FORCE-DIRECTION can be = `set', `up', (beginning-of-line 1))))) =20 (defun org-agenda-set-property () - "Set a property for the current headline." + "Set a property for the current heading." (interactive) (org-agenda-check-no-diary) (org-agenda-maybe-loop @@ -9683,7 +9683,7 @@ When called programmatically, FORCE-DIRECTION can be = `set', `up', (call-interactively 'org-set-property)))))) =20 (defun org-agenda-set-effort () - "Set the effort property for the current headline." + "Set the effort property for the current heading." (interactive) (org-agenda-check-no-diary) (org-agenda-maybe-loop @@ -10049,7 +10049,7 @@ top-level as top-level entries at the end o= f the file." =20 (defun org-agenda-add-entry-to-org-agenda-diary-file (type text &optional = d1 d2) "Add a diary entry with TYPE to `org-agenda-diary-file'. -If TEXT is not empty, it will become the headline of the new entry, and +If TEXT is not empty, it will become the heading of the new entry, and the resulting entry will not be shown. When TEXT is empty, switch to `org-agenda-diary-file' and let the user finish the entry there." (let ((cw (current-window-configuration))) @@ -10126,7 +10126,7 @@ the resulting entry will not be shown. When TEXT i= s empty, switch to =20 (defun org-agenda-insert-diary-as-top-level (text) "Make new entry as a top-level entry at the end of the file. -Add TEXT as headline, and position the cursor in the second line so that +Add TEXT as heading, and position the cursor in the second line so that a timestamp can be added there." (widen) (goto-char (point-max)) @@ -10444,17 +10444,17 @@ bulk action." :type 'boolean) =20 (defcustom org-agenda-loop-over-headlines-in-active-region t - "Shall some commands act upon headlines in the active region? + "Shall some commands act upon headings in the active region? =20 -When set to t, some commands will be performed in all headlines +When set to t, some commands will be performed in all headings within the active region. =20 When set to `start-level', some commands will be performed in all -headlines within the active region, provided that these headlines +headlines within the active region, provided that these headings are of the same level than the first one. =20 When set to a regular expression, those commands will be -performed on the matching headlines within the active region. +performed on the matching headings within the active region. =20 The list of commands is: `org-agenda-schedule', `org-agenda-deadline', `org-agenda-date-prompt', @@ -10463,8 +10463,8 @@ The list of commands is: `org-agenda-schedule', See `org-loop-over-headlines-in-active-region' for the equivalent option for Org buffers." :type '(choice (const :tag "Don't loop" nil) - (const :tag "All headlines in active region" t) - (const :tag "In active region, headlines at the same level than the fir= st one" start-level) + (const :tag "All headings in active region" t) + (const :tag "In active region, headings at the same level than the firs= t one" start-level) (regexp :tag "Regular expression matcher")) :version "27.1" :package-version '(Org . "9.4") @@ -10794,7 +10794,7 @@ either `headline' or `category'. For example: \\=3D'((headline \"IMPORTANT\") (category \"Work\")) =20 -will only add headlines containing IMPORTANT or headlines +will only add headings containing IMPORTANT or headings belonging to the \"Work\" category. =20 ARGS are symbols indicating what kind of entries to consider. diff --git a/lisp/org-archive.el b/lisp/org-archive.el index fc73f5926..24d4aad1b 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -119,11 +119,11 @@ This variable can be a list of any of the following s= ymbols: =20 time The time of archiving. file The file where the entry originates. -ltags The local tags, in the headline of the subtree. +ltags The local tags, in the heading of the subtree. itags The tags the subtree inherits from further up the hierarchy. todo The pre-archive TODO state. category The category, taken from file name or #+CATEGORY lines. -olpath The outline path to the item. These are all headlines above +olpath The outline path to the item. These are all headings above the current item, separated by /, like a file path. =20 For each symbol present in the list, a property will be created in @@ -207,8 +207,8 @@ trees without any open TODO items and archive them (aft= er getting confirmation from the user). When called with a double prefix argument, find whole trees with timestamps before today and archive them (after getting confirmation from the user). If the -cursor is not at a headline when these commands are called, try -all level 1 trees. If the cursor is on a headline, only try the +cursor is not at a heading when these commands are called, try +all level 1 trees. If the cursor is on a heading, only try the direct children of this heading." (interactive "P") (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) @@ -494,8 +494,8 @@ Archiving time is retained in the ARCHIVE_TIME node pro= perty." =20 (defun org-archive-all-done (&optional tag) "Archive sublevels of the current tree without open TODO items. -If the cursor is not on a headline, try all level 1 trees. If -it is on a headline, try all direct children. +If the cursor is not on a heading, try all level 1 trees. If +it is on a heading, try all direct children. When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag." (org-archive-all-matches (lambda (_beg end) @@ -506,8 +506,8 @@ When TAG is non-nil, don't move trees, but mark them wi= th the ARCHIVE tag." =20 (defun org-archive-all-old (&optional tag) "Archive sublevels of the current tree with timestamps prior to today. -If the cursor is not on a headline, try all level 1 trees. If -it is on a headline, try all direct children. +If the cursor is not on a heading, try all level 1 trees. If +it is on a heading, try all direct children. When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag." (org-archive-all-matches (lambda (_beg end) @@ -527,14 +527,14 @@ When TAG is non-nil, don't move trees, but mark them = with the ARCHIVE tag." "Archive sublevels of the current tree that match PREDICATE. =20 PREDICATE is a function of two arguments, BEG and END, which -specify the beginning and end of the headline being considered. -It is called with point positioned at BEG. The headline will be +specify the beginning and end of the heading being considered. +It is called with point positioned at BEG. The heading will be archived if PREDICATE returns non-nil. If the return value of PREDICATE is a string, it should describe the reason for archiving the heading. =20 -If the cursor is not on a headline, try all level 1 trees. If it -is on a headline, try all direct children. When TAG is non-nil, +If the cursor is not on a heading, try all level 1 trees. If it +is on a heading, try all direct children. When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag." (let ((rea (concat ".*:" org-archive-tag ":")) re1 (begm (make-marker)) @@ -579,8 +579,8 @@ don't move trees, but mark them with the ARCHIVE tag." =20 ;;;###autoload (defun org-toggle-archive-tag (&optional find-done) - "Toggle the archive tag for the current headline. -With prefix ARG, check all children of current headline and offer tagging + "Toggle the archive tag for the current heading. +With prefix ARG, check all children of current heading and offer tagging the children that do not contain any open TODO items." (interactive "P") (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 837ef3a80..0657ff12d 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -158,7 +158,7 @@ description A short string describing the template, wi= ll be shown during selection. =20 type The type of entry. Valid types are: - entry an Org node, with a headline. Will be filed + entry an Org node, with a heading. Will be filed as the child of the target entry or as a top-level entry. Its default template is: \"* %?\n %a\" @@ -195,7 +195,7 @@ target Specification of where the captured item s= hould be placed. (id \"id of existing Org entry\") File as child of this entry, or in the body of the entry =20 - (file+headline \"path/to/file\" \"node headline\") + (file+headline \"path/to/file\" \"node heading\") Fast configuration if the target heading is unique in the= file =20 (file+olp \"path/to/file\" \"Level 1 heading\" \"Level 2\" ..= .) @@ -296,7 +296,7 @@ properties are: =20 The template defines the text to be inserted. Often this is an Org mode entry (so the first line should start with a star) that -will be filed as a child of the target headline. It can also be +will be filed as a child of the target heading. It can also be freely formatted text. Furthermore, the following %-escapes will be replaced with content and expanded: =20 @@ -402,15 +402,15 @@ you can escape ambiguous cases with a backward slash,= e.g., \\%i." (list :tag "ID" (const :format "" id) (string :tag " ID")) - (list :tag "File & Headline" + (list :tag "File & Heading" (const :format "" file+headline) ,file-variants - (string :tag " Headline")) + (string :tag " Heading")) (list :tag "File & Outline path" (const :format "" file+olp) ,file-variants (repeat :tag "Outline path" :inline t - (string :tag "Headline"))) + (string :tag "Heading"))) (list :tag "File & Regexp" (const :format "" file+regexp) ,file-variants @@ -419,7 +419,7 @@ you can escape ambiguous cases with a backward slash, e= .g., \\%i." (const :format "" file+olp+datetree) ,file-variants (option (repeat :tag "Outline path" :inline t - (string :tag "Headline")))) + (string :tag "Heading")))) (list :tag "File & function" (const :format "" file+function) ,file-variants diff --git a/lisp/org-clock.el b/lisp/org-clock.el index c590680a6..26fbc28c0 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -182,7 +182,7 @@ which case all digits and capital letters are used up b= y the (defcustom org-clock-heading-function nil "When non-nil, should be a function to create `org-clock-heading'. This is the string shown in the mode line when a clock is running. -The function is called with point at the beginning of the headline." +The function is called with point at the beginning of the heading." :group 'org-clock :type '(choice (const nil) (function))) =20 @@ -2037,10 +2037,10 @@ Use `\\[org-clock-remove-overlays]' to remove the s= ubtree times." (defvar-local org-clock-overlays nil) =20 (defun org-clock-put-overlay (time) - "Put an overlay on the headline at point, displaying TIME. + "Put an overlay on the heading at point, displaying TIME. Create a new overlay and store it in `org-clock-overlays', so that it will be easy to remove. This function assumes point is -on a headline." +on a heading." (org-match-line org-complex-heading-regexp) (goto-char (match-beginning 4)) (let* ((headline (match-string 4)) @@ -2904,17 +2904,17 @@ the correct buffer is current, and that the wanted = restriction is in place. The return value will be a list with the file name and the total file time (in minutes) as 1st and 2nd elements. The third element -of this list will be a list of headline entries. Each entry has the +of this list will be a list of heading entries. Each entry has the following structure: =20 - (LEVEL HEADLINE TAGS TIMESTAMP TIME PROPERTIES) + (LEVEL HEADING TAGS TIMESTAMP TIME PROPERTIES) =20 -LEVEL: The level of the headline, as an integer. This will be +LEVEL: The level of the heading, as an integer. This will be the reduced level, so 1,2,3,... even if only odd levels are being used. -HEADLINE: The text of the headline. Depending on PARAMS, this may +HEADLINE: The text of the heading. Depending on PARAMS, this may already be formatted like a link. -TAGS: The list of tags of the headline. +TAGS: The list of tags of the heading. TIMESTAMP: If PARAMS require it, this will be a time stamp found in the entry, any of SCHEDULED, DEADLINE, NORMAL, or first inactive, in this sequence. diff --git a/lisp/org-colview.el b/lisp/org-colview.el index ca3de4cb8..5275b03bf 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -85,7 +85,7 @@ or (LABEL SUMMARIZE COLLECT) where a string summarizing the list of values. =20 COLLECT is a function called with one argument, a property - name. It is called in the context of a headline and must + name. It is called in the context of a heading and must return the collected property, or the empty string. You can use this to only collect a property if a related conditional properties is set, e.g., to return VACATION_DAYS only if @@ -724,7 +724,7 @@ an integer, select that value." (`(,_ ,_ ,_ ,(or "X" "X/" "X%") ,_) '("[ ]" "[X]"))) (org-colview-construct-allowed-dates value)))) (if previous (reverse all) all)))) - (when (equal key "ITEM") (error "Cannot edit item headline from here")) + (when (equal key "ITEM") (error "Cannot edit item heading from here")) (unless (or allowed (member key '("SCHEDULED" "DEADLINE" "CLOCKSUM"))) (error "Allowed values for this property have not been defined")) (let* ((l (length allowed)) @@ -1461,7 +1461,7 @@ PARAMS is a property list of parameters: =20 `:maxlevel' =20 - When set to a number, don't capture headlines below this level. + When set to a number, don't capture headings below this level. =20 `:skip-empty-rows' =20 diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 24c4b35f2..8f0bbde29 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -602,17 +602,17 @@ use of this function is for the stuck project list." (define-obsolete-function-alias 'org-get-tags-at 'org-get-tags "9.2") =20 (defun org-get-local-tags () - "Get a list of tags defined in the current headline." + "Get a list of tags defined in the current heading." (declare (obsolete "use `org-get-tags' instead." "9.2")) (org-get-tags nil 'local)) =20 (defun org-get-local-tags-at (&optional pos) - "Get a list of tags defined in the current headline." + "Get a list of tags defined in the current heading." (declare (obsolete "use `org-get-tags' instead." "9.2")) (org-get-tags pos 'local)) =20 (defun org-get-tags-string () - "Get the TAGS string in the current headline." + "Get the TAGS string in the current heading." (declare (obsolete "use `org-make-tag-string' instead." "9.2")) (org-make-tag-string (org-get-tags nil t))) =20 @@ -865,7 +865,7 @@ attention to case differences." :group 'org-structure) =20 (defcustom org-imenu-depth 2 - "The maximum level for Imenu access to Org headlines. + "The maximum level for Imenu access to Org headings. This also applied for speedbar access." :group 'org-imenu-and-speedbar :type 'integer) @@ -977,7 +977,7 @@ To get rid of the restriction, use `\\[org-agenda-remov= e-restriction-lock]'." ;;;; Add Log =20 (defun org-add-log-current-headline () - "Return current headline or nil. + "Return current heading or nil. This function ignores inlinetasks. It is meant to be used as `add-log-current-defun-function' value." (org-with-limited-levels (org-get-heading t t t t))) diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el index 3ccc526bc..55b96f65b 100644 --- a/lisp/org-crypt.el +++ b/lisp/org-crypt.el @@ -205,7 +205,7 @@ Assume `epg-context' is set." =20 ;;;###autoload (defun org-encrypt-entry () - "Encrypt the content of the current headline." + "Encrypt the content of the current heading." (interactive) (unless (org-at-encrypted-entry-p) (require 'epg) @@ -248,7 +248,7 @@ Assume `epg-context' is set." =20 ;;;###autoload (defun org-decrypt-entry () - "Decrypt the content of the current headline." + "Decrypt the content of the current heading." (interactive) (pcase (org-at-encrypted-entry-p) (`(,beg . ,end) diff --git a/lisp/org-datetree.el b/lisp/org-datetree.el index 74442b038..1e73c2109 100644 --- a/lisp/org-datetree.el +++ b/lisp/org-datetree.el @@ -55,7 +55,7 @@ Added time stamp is active unless value is `inactive'." If KEEP-RESTRICTION is non-nil, do not widen the buffer. When it is nil, the buffer will be widened to make sure an existing date tree can be found. If it is the symbol `subtree-at-point', then the tree -will be built under the headline at point." +will be built under the heading at point." (org-datetree--find-create-group d 'day keep-restriction)) =20 ;;;###autoload @@ -66,7 +66,7 @@ entries grouped by month instead of days. If KEEP-RESTRICTION is non-nil, do not widen the buffer. When it is nil, the buffer will be widened to make sure an existing date tree can be found. If it is the symbol `subtree-at-point', then the tree -will be built under the headline at point." +will be built under the heading at point." (org-datetree--find-create-group d 'month keep-restriction)) =20 (defun org-datetree--find-create-group @@ -114,7 +114,7 @@ Compared to `org-datetree-find-date-create' this functi= on creates entries ordered by week instead of months. When it is nil, the buffer will be widened to make sure an existing date tree can be found. If it is the symbol `subtree-at-point', then the tree -will be built under the headline at point." +will be built under the heading at point." (setq-local org-datetree-base-level 1) (save-restriction (if (eq keep-restriction 'subtree-at-point) diff --git a/lisp/org-element.el b/lisp/org-element.el index 9127105ca..da682c4a2 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -948,7 +948,7 @@ CONTENTS is the contents of the footnote-definition." ;;;; Heading =20 (defun org-element--get-node-properties () - "Return node properties associated to headline at point. + "Return node properties associated to heading at point. Upcase property names. It avoids confusion between properties obtained through property drawer and default properties from the parser (e.g. `:end' and :END:). Return value is a plist." @@ -966,7 +966,7 @@ parser (e.g. `:end' and :END:). Return value is a plis= t." properties)))) =20 (defun org-element--get-time-properties () - "Return time properties associated to headline at point. + "Return time properties associated to heading at point. Return value is a plist." (save-excursion (when (progn (forward-line) (looking-at org-planning-line-re)) @@ -984,7 +984,7 @@ Return value is a plist." plist)))) =20 (defun org-element-headline-parser (limit &optional raw-secondary-p) - "Parse a headline. + "Parse a heading. =20 Return a list whose CAR is `headline' and CDR is a plist containing `:raw-value', `:title', `:begin', `:end', @@ -1000,10 +1000,10 @@ beginning (e.g., `:CUSTOM_ID'). =20 LIMIT is a buffer position bounding the search. =20 -When RAW-SECONDARY-P is non-nil, headline's title will not be +When RAW-SECONDARY-P is non-nil, heading's title will not be parsed as a secondary string, but as a plain string instead. =20 -Assume point is at beginning of the headline." +Assume point is at beginning of the heading." (save-excursion (let* ((begin (point)) (level (prog1 (org-reduced-level (skip-chars-forward "*")) @@ -4239,9 +4239,9 @@ buffer. Optional argument GRANULARITY determines the depth of the recursion. It can be set to the following symbols: =20 -`headline' Only parse headlines. +`headline' Only parse headings. `greater-element' Don't recurse into greater elements except - headlines and sections. Thus, elements + headings and sections. Thus, elements parsed are the top-level ones. `element' Parse everything but objects and plain text. `object' Parse the complete buffer (default). @@ -4353,7 +4353,7 @@ and `example-block' elements in it: =20 (org-element-map tree \\=3D'(example-block src-block) #\\=3D'identity) =20 -The following snippet will find the first headline with a level +The following snippet will find the first heading with a level of 1 and a \"phone\" tag, and will return its beginning position: =20 (org-element-map tree \\=3D'headline @@ -5609,7 +5609,7 @@ request." "Parse elements in current section, down to POS. =20 Start parsing from the closest between the last known element in -cache or headline above. Return the smallest element containing +cache or heading above. Return the smallest element containing POS. =20 When optional argument SYNCP is non-nil, return the parent of the @@ -5751,7 +5751,7 @@ the process stopped before finding the expected resul= t." ":\\(?:\\w\\|[-_]\\)+:[ \t]*$" "\\)") "Regexp matching a sensitive line, structure wise. -A sensitive line is a headline, inlinetask, block, drawer, or +A sensitive line is a heading, inlinetask, block, drawer, or latex-environment boundary. When such a line is modified, structure changes in the document may propagate in the whole section, possibly making cache invalid.") diff --git a/lisp/org-faces.el b/lisp/org-faces.el index b151045a9..aabf1f825 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -41,7 +41,7 @@ '((default :inherit fixed-pitch) (((background light)) (:foreground "white")) (((background dark)) (:foreground "black"))) - "Face used to hide leading stars in headlines. + "Face used to hide leading stars in headings. The foreground color of this face should be equal to the background color of the frame." :group 'org-faces) @@ -61,35 +61,35 @@ color of the frame." :group 'org-faces) =20 (defface org-level-1 '((t :inherit outline-1)) - "Face used for level 1 headlines." + "Face used for level 1 headings." :group 'org-faces) =20 (defface org-level-2 '((t :inherit outline-2)) - "Face used for level 2 headlines." + "Face used for level 2 headings." :group 'org-faces) =20 (defface org-level-3 '((t :inherit outline-3)) - "Face used for level 3 headlines." + "Face used for level 3 headings." :group 'org-faces) =20 (defface org-level-4 '((t :inherit outline-4)) - "Face used for level 4 headlines." + "Face used for level 4 headings." :group 'org-faces) =20 (defface org-level-5 '((t :inherit outline-5)) - "Face used for level 5 headlines." + "Face used for level 5 headings." :group 'org-faces) =20 (defface org-level-6 '((t :inherit outline-6)) - "Face used for level 6 headlines." + "Face used for level 6 headings." :group 'org-faces) =20 (defface org-level-7 '((t :inherit outline-7)) - "Face used for level 7 headlines." + "Face used for level 7 headings." :group 'org-faces) =20 (defface org-level-8 '((t :inherit outline-8)) - "Face used for level 8 headlines." + "Face used for level 8 headings." :group 'org-faces) =20 (defface org-special-keyword '((t :inherit font-lock-keyword-face)) @@ -165,7 +165,7 @@ set the properties in the `org-column' face. For examp= le, set :group 'org-faces) =20 (defface org-archived '((t :inherit shadow)) - "Face for headline with the ARCHIVE tag." + "Face for heading with the ARCHIVE tag." :group 'org-faces) =20 (defface org-cite '((t :inherit link)) @@ -271,18 +271,18 @@ of the frame, for example." '((((class color) (min-colors 16) (background light)) (:foreground "Red4= ")) (((class color) (min-colors 16) (background dark)) (:foreground "Pink2= ")) (((class color) (min-colors 8) (background light)) (:bold t))) - "Face used to indicate that a headline is marked as TODO. + "Face used to indicate that a heading is marked as TODO. This face is only used if `org-fontify-todo-headline' is set. If applies -to the part of the headline after the TODO keyword." +to the part of the heading after the TODO keyword." :group 'org-faces) =20 (defface org-headline-done ;Copied from `font-lock-string-face' '((((class color) (min-colors 16) (background light)) (:foreground "Rosy= Brown")) (((class color) (min-colors 16) (background dark)) (:foreground "Light= Salmon")) (((class color) (min-colors 8) (background light)) (:bold nil))) - "Face used to indicate that a headline is DONE. + "Face used to indicate that a heading is DONE. This face is only used if `org-fontify-done-headline' is set. If applies -to the part of the headline after the DONE keyword." +to the part of the heading after the DONE keyword." :group 'org-faces) =20 (defcustom org-faces-easy-properties @@ -670,8 +670,8 @@ month and 365.24 days for a year)." org-level-5 org-level-6 org-level-7 org-level-8)) =20 (defcustom org-n-level-faces (length org-level-faces) - "The number of different faces to be used for headlines. -Org mode defines 8 different headline faces, so this can be at most 8. + "The number of different faces to be used for headings. +Org mode defines 8 different heading faces, so this can be at most 8. If it is less than 8, the level-1 face gets re-used for level N+1 etc." :type 'integer :group 'org-faces) diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 5df3b6976..ea93d8704 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -118,7 +118,7 @@ URL the Feed URL file the target Org file where entries should be listed, when nil the target becomes the current buffer (may be an indirect buffer) each time the feed update is invoked -headline the headline under which entries should be listed +headline the heading under which entries should be listed =20 Additional arguments can be given using keyword-value pairs. Many of these specify functions that receive one or a list of \"entries\" as their single @@ -144,7 +144,7 @@ Here are the keyword-value pair allows in `org-feed-ali= st'. =20 :template template-string The default action on new items in the feed is to add them as children - under the headline for the feed. The template describes how the entry + under the heading for the feed. The template describes how the entry should be formatted. If not given, it defaults to `org-feed-default-template'. =20 @@ -161,13 +161,13 @@ Here are the keyword-value pair allows in `org-feed-a= list'. list. The handler should do what needs to be done, and org-feed will mark all items given to this handler as \"handled\", i.e. they will n= ot be passed to this handler again in future readings of the feed. - When the handler is called, point will be at the feed headline. + When the handler is called, point will be at the feed heading. =20 :changed-handler function This function gets passed a list of all entries that have been handled before, but are now still in the feed and have *changed* since last handled (as evidenced by a different sha1 hash). - When the handler is called, point will be at the feed headline. + When the handler is called, point will be at the feed heading. =20 :parse-feed function This function gets passed a buffer, and should return a list @@ -187,7 +187,7 @@ Here are the keyword-value pair allows in `org-feed-ali= st'. (string :tag "Name") (string :tag "Feed URL") (file :tag "File for inbox") - (string :tag "Headline for inbox") + (string :tag "Heading for inbox") (repeat :inline t (choice (list :inline t :tag "Filter" @@ -452,7 +452,7 @@ it can be a list structured like an entry in `org-feed-= alist'." =20 (defun org-feed-goto-inbox-internal (file heading) "Find or create HEADING in FILE. -Switch to that buffer, and return the position of that headline." +Switch to that buffer, and return the position of that heading." (find-file file) (widen) (goto-char (point-min)) @@ -496,7 +496,7 @@ This will find DRAWER and extract the alist." (insert (pp-to-string status))))) =20 (defun org-feed-add-items (pos entries) - "Add the formatted items to the headline as POS." + "Add the formatted items to the heading as POS." (let (entry level) (save-excursion (goto-char pos) diff --git a/lisp/org-goto.el b/lisp/org-goto.el index 0a3470f54..d55ff9bd8 100644 --- a/lisp/org-goto.el +++ b/lisp/org-goto.el @@ -38,7 +38,7 @@ (defconst org-goto-help "Browse buffer copy, to find location or copy text.%s RET=3Djump to location C-g=3Dquit and return to previous locat= ion -\[Up]/[Down]=3Dnext/prev headline TAB=3Dcycle visibility [/] org-occur= ") +\[Up]/[Down]=3Dnext/prev heading TAB=3Dcycle visibility [/] org-occur") =20 =20 @@ -62,7 +62,7 @@ Allowed values are: =20 `outline-path-completion' =20 - Headlines in the current buffer are offered via completion. + headings in the current buffer are offered via completion. This is the interface also used by the refile command." :group 'org-goto :type '(choice @@ -137,7 +137,7 @@ When nil, you can use these keybindings to navigate the= buffer: (define-key org-goto-local-auto-isearch-map [return] nil)) =20 (defun org-goto--local-search-headings (string bound noerror) - "Search and make sure that any matches are in headlines." + "Search and make sure that any matches are in headings." (catch 'return (while (if isearch-forward (search-forward string bound noerror) @@ -254,7 +254,7 @@ into the tree in that copy, use `org-occur' and increme= ntal search to find a location. When pressing RET or `Q', the command returns to the original buffer in which the visibility is still unchanged. After RET it will also jump to the location selected -in the indirect buffer and expose the headline hierarchy above. +in the indirect buffer and expose the heading hierarchy above. =20 With a prefix argument, use the alternative interface: e.g., if `org-goto-interface' is `outline' use `outline-path-completion'." diff --git a/lisp/org-id.el b/lisp/org-id.el index 56783d108..1ecf1fb7b 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -110,7 +110,7 @@ use-existing Use existing ID, do not create one. =20 nil Never use an ID to make a link, instead link using a text search for - the headline text." + the heading text." :group 'org-link-store :group 'org-id :version "24.3" @@ -297,7 +297,7 @@ In any case, the ID of the entry is returned." (defun org-id-get-with-outline-path-completion (&optional targets) "Use `outline-path-completion' to retrieve the ID of an entry. TARGETS may be a setting for `org-refile-targets' to define -eligible headlines. When omitted, all headlines in the current +eligible headings. When omitted, all headings in the current file are eligible. This function returns the ID of the entry. If necessary, the ID is created." (let* ((org-refile-targets (or targets '((nil . (:maxlevel . 10))))) diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 66e3b941a..2768fffeb 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -72,7 +72,7 @@ Delay used when the buffer to initialize isn't current.") "Position of initialization before interrupt. This is used locally in each buffer being initialized.") (defvar org-indent-modified-headline-flag nil - "Non-nil means the last deletion operated on a headline. + "Non-nil means the last deletion operated on a heading. It is modified by `org-indent-notify-modified-headline'.") =20 =20 @@ -110,16 +110,16 @@ useful to make it ever so slightly different." "Vector containing line prefixes strings for regular text.") =20 (defvar org-indent--heading-line-prefixes nil - "Vector containing line prefix strings for headlines.") + "Vector containing line prefix strings for headings.") =20 (defvar org-indent--inlinetask-line-prefixes nil "Vector containing line prefix strings for inline tasks.") =20 (defconst org-indent--deepest-level 50 - "Maximum theoretical headline depth.") + "Maximum theoretical heading depth.") =20 (defun org-indent--compute-prefixes () - "Compute prefix strings for regular text and headlines." + "Compute prefix strings for regular text and headings." (setq org-indent--heading-line-prefixes (make-vector org-indent--deepest-level nil)) (setq org-indent--inlinetask-line-prefixes diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index e8f373286..17ba88729 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -86,7 +86,7 @@ :group 'org-structure) =20 (defcustom org-inlinetask-min-level 15 - "Minimum level a headline must have before it is treated as an inline ta= sk. + "Minimum level a heading must have before it is treated as an inline tas= k. Don't set it to something higher than `29' or clocking will break since th= is is the hardcoded maximum number of stars `org-clock-sum' will work with. =20 @@ -277,7 +277,7 @@ If the task has an end part, also demote it." (defvar org-indent-indentation-per-level) ; defined in org-indent.el =20 (defface org-inlinetask '((t :inherit shadow)) - "Face for inlinetask headlines." + "Face for inlinetask headings." :group 'org-faces) =20 (defun org-inlinetask-fontify (limit) diff --git a/lisp/org-keys.el b/lisp/org-keys.el index a10db7e66..9de71f080 100644 --- a/lisp/org-keys.el +++ b/lisp/org-keys.el @@ -674,19 +674,19 @@ COMMANDS is a list of alternating OLDDEF NEWDEF comma= nd names." ;;; Speed keys =20 (defcustom org-use-speed-commands nil - "Non-nil means activate single letter commands at beginning of a headlin= e. + "Non-nil means activate single letter commands at beginning of a heading. This may also be a function to test for appropriate locations where speed commands should be active. =20 For example, to activate speed commands when the point is on any -star at the beginning of the headline, you can do this: +star at the beginning of the heading, you can do this: =20 (setq org-use-speed-commands (lambda () (and (looking-at org-outline-regexp) (looking-back \"^\\*= *\"))))" :group 'org-structure :type '(choice (const :tag "Never" nil) - (const :tag "At beginning of headline stars" t) + (const :tag "At beginning of heading stars" t) (function))) =20 (defcustom org-speed-command-hook @@ -777,7 +777,7 @@ command." :package-version '(Org . "9.5") :type '(repeat :value ("k" . ignore) (choice :value ("k" . ignore) - (list :tag "Descriptive Headline" (string :tag "Headline")) + (list :tag "Descriptive Heading" (string :tag "Heading")) (cons :tag "Letter and Command" (string :tag "Command letter") (choice @@ -820,7 +820,7 @@ command." (setq truncate-lines t))) =20 (defun org-speed-move-safe (cmd) - "Execute CMD, but make sure that the cursor always ends up in a headline. + "Execute CMD, but make sure that the cursor always ends up in a heading. If not, return to the original position and throw an error." (interactive) (let ((pos (point))) diff --git a/lisp/org-list.el b/lisp/org-list.el index 93aa00a73..b8a62e355 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -2353,7 +2353,7 @@ When there is an active region, toggle status or pres= ence of the first checkbox there, and make every item inside have the same status or presence, respectively. =20 -If point is on a headline, apply this to all checkbox items in +If point is on a heading, apply this to all checkbox items in the text below the heading, taking as reference the first item in subtree, ignoring planning line and any drawer following it." (interactive "P") @@ -2884,7 +2884,7 @@ a function to be called with point at the beginning o= f the record. It must return a value that is compatible with COMPARE-FUNC, the function used to compare entries. =20 -Sorting is done against the visible part of the headlines, it +Sorting is done against the visible part of the headings, it ignores hidden links. =20 A non-nil value for INTERACTIVE? is used to signal that this @@ -2983,8 +2983,8 @@ function is being called interactively." "Convert headings or normal lines to items, items to normal lines. If there is no active region, only the current line is considered. =20 -If the first non blank line in the region is a headline, convert -all headlines to items, shifting text accordingly. +If the first non blank line in the region is a heading, convert +all headings to items, shifting text accordingly. =20 If it is an item, convert all items to normal lines. =20 diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 52fc09a06..258352411 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -1138,7 +1138,7 @@ the value in cadr." "Non-nil if the character after POS is invisible. If POS is nil, use `point' instead. When optional argument FOLDING-ONLY is non-nil, only consider invisible parts due to -folding of a headline, a block or a drawer, i.e., not because of +folding of a heading, a block or a drawer, i.e., not because of fontification." (let ((value (get-char-property (or pos (point)) 'invisible))) (cond ((not value) nil) diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index 66a153c9c..8f61f48eb 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -177,7 +177,7 @@ Changing this variable requires a restart of Emacs to g= et activated." (const :tag "Mouse-3 shows context menu" context-menu) (const :tag "C-mouse-1 and mouse-3 move trees" move-tree) (const :tag "S-mouse-2 and drag-mouse-3 yank link" yank-link) - (const :tag "Activate headline stars" activate-stars) + (const :tag "Activate heading stars" activate-stars) (const :tag "Activate item bullets" activate-bullets) (const :tag "Activate checkboxes" activate-checkboxes))) =20 @@ -187,7 +187,7 @@ Changing this variable requires a restart of Emacs to g= et activated." (re-search-forward regexp (point-at-eol) t)) =20 (defun org-mouse-end-headline () - "Go to the end of current headline (ignoring tags)." + "Go to the end of current heading (ignoring tags)." (interactive) (end-of-line) (skip-chars-backward "\t ") @@ -355,7 +355,7 @@ nor a function, elements of KEYWORDS are used directly." :selected ,(not (member (match-string group) keywords))])))) =20 (defun org-mouse-show-headlines () - "Change the visibility of the current org buffer to only show headlines." + "Change the visibility of the current org buffer to only show headings." (interactive) (let ((this-command 'org-cycle) (last-command 'org-cycle) @@ -364,13 +364,13 @@ nor a function, elements of KEYWORDS are used directl= y." (org-cycle '(4)))) =20 (defun org-mouse-show-overview () - "Change visibility of current org buffer to first-level headlines only." + "Change visibility of current org buffer to first-level headings only." (interactive) (let ((org-cycle-global-status nil)) (org-cycle '(4)))) =20 (defun org-mouse-set-priority (priority) - "Set the priority of the current headline to PRIORITY." + "Set the priority of the current heading to PRIORITY." (org-priority priority)) =20 (defvar org-mouse-priority-regexp "\\[#\\([A-Z]\\)\\]" @@ -379,8 +379,8 @@ Differs from `org-priority-regexp' in that it doesn't c= ontain the leading `.*?'.") =20 (defun org-mouse-get-priority (&optional default) - "Return the priority of the current headline. -DEFAULT is returned if no priority is given in the headline." + "Return the priority of the current heading. +DEFAULT is returned if no priority is given in the heading." (save-excursion (if (org-mouse-re-search-line org-mouse-priority-regexp) (match-string 1) @@ -485,7 +485,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:" (popup-menu `("Main Menu" ["Show Overview" org-mouse-show-overview t] - ["Show Headlines" org-mouse-show-headlines t] + ["Show Headings" org-mouse-show-headlines t] ["Show All" org-show-all t] ["Remove Highlights" org-remove-occur-highlights :visible org-occur-highlights] @@ -789,7 +789,7 @@ This means, between the beginning of line and the point= ." ((and (assq :headline contextlist) (not (eolp))) (let ((priority (org-mouse-get-priority t))) (popup-menu - `("Headline Menu" + `("Heading Menu" ("Tags and Priorities" ,@(org-mouse-keyword-menu (org-mouse-priority-list) diff --git a/lisp/org-num.el b/lisp/org-num.el index 849368481..35ce61155 100644 --- a/lisp/org-num.el +++ b/lisp/org-num.el @@ -82,12 +82,12 @@ =20 (defcustom org-num-face nil "Face to use for numbering. -When nil, use the same face as the headline. This value is +When nil, use the same face as the heading. This value is ignored if `org-num-format-function' specifies a face for its output." :group 'org-appearance :package-version '(Org . "9.3") - :type '(choice (const :tag "Like the headline" nil) + :type '(choice (const :tag "Like the heading" nil) (face :tag "Use face")) :safe (lambda (val) (or (null val) (facep val)))) =20 @@ -102,8 +102,8 @@ Any `face' text property on the returned string overrid= es :type 'function) =20 (defcustom org-num-max-level nil - "Level below which headlines are not numbered. -When set to nil, all headlines are numbered." + "Level below which headings are not numbered. +When set to nil, all headings are numbered." :group 'org-appearance :package-version '(Org . "9.3") :type '(choice (const :tag "Number everything" nil) @@ -149,23 +149,23 @@ control tag inheritance." ;;; Internal Variables =20 (defconst org-num--comment-re (format "\\`%s\\(?: \\|$\\)" org-comment-str= ing) - "Regexp matching a COMMENT keyword at headline beginning.") + "Regexp matching a COMMENT keyword at heading beginning.") =20 (defvar-local org-num--overlays nil "Ordered list of overlays used for numbering outlines.") =20 (defvar-local org-num--skip-level nil - "Level below which headlines from current tree are not numbered. -When nil, all headlines are numbered. It is used to handle + "Level below which headings from current tree are not numbered. +When nil, all headings are numbered. It is used to handle inheritance of no-numbering attributes.") =20 (defvar-local org-num--numbering nil - "Current headline numbering. + "Current heading numbering. A numbering is a list of integers, in reverse order. So numbering -for headline \"1.2.3\" is (3 2 1).") +for heading \"1.2.3\" is (3 2 1).") =20 (defvar-local org-num--missing-overlay nil - "Buffer position signaling a headline without an overlay.") + "Buffer position signaling a heading without an overlay.") =20 (defvar-local org-num--invalid-flag nil "Non-nil means an overlay became invalid since last update.") @@ -174,7 +174,7 @@ for headline \"1.2.3\" is (3 2 1).") ;;; Internal Functions =20 (defsubst org-num--headline-regexp () - "Return regexp matching a numbered headline." + "Return regexp matching a numbered heading." (if (null org-num-max-level) (org-with-limited-levels org-outline-regexp= -bol) (format "^\\*\\{1,%d\\} " (if org-odd-levels-only (1- (* 2 org-num-max-level)) @@ -200,13 +200,13 @@ Update `org-num--invalid-flag' accordingly." (setq org-num--overlays nil)) =20 (defun org-num--make-overlay (numbering level skip) - "Return overlay for numbering headline at point. + "Return overlay for numbering heading at point. =20 NUMBERING is the numbering to use, as a list of integers, or nil if nothing should be displayed. LEVEL is the level of the headline. SKIP is its skip value. =20 -Assume point is at a headline." +Assume point is at a heading." (let ((after-edit-functions (list (lambda (o &rest _) (org-num--invalidate-overlay o)))) (o (save-excursion @@ -242,8 +242,8 @@ nil if nothing should be displayed. Assume OVERLAY is = valid." (overlay-put overlay 'after-string display))) =20 (defun org-num--skip-value () - "Return skip value for headline at point. -Value is t when headline should not be numbered, and nil + "Return skip value for heading at point. +Value is t when heading should not be numbered, and nil otherwise." (org-match-line org-complex-heading-regexp) (let ((title (match-string 4)) @@ -267,9 +267,9 @@ otherwise." t)))) =20 (defun org-num--current-numbering (level skip) - "Return numbering for current headline. -LEVEL is headline's level, and SKIP its skip value. Return nil -if headline should be skipped." + "Return numbering for current heading. +LEVEL is heading's level, and SKIP its skip value. Return nil +if heading should be skipped." (cond ;; Skipped by inheritance. ((and org-num--skip-level (> level org-num--skip-level)) nil) @@ -452,12 +452,12 @@ NUMBERING is a list of numbers." =20 ;;;###autoload (define-minor-mode org-num-mode - "Dynamic numbering of headlines in an Org buffer." + "Dynamic numbering of headings in an Org buffer." :lighter " o#" (cond (org-num-mode (unless (derived-mode-p 'org-mode) - (user-error "Cannot activate headline numbering outside Org mode")) + (user-error "Cannot activate heading numbering outside Org mode")) (setq org-num--numbering nil) (setq org-num--overlays (nreverse (org-num--number-region nil nil))) (add-hook 'after-change-functions #'org-num--verify nil t) diff --git a/lisp/org-refile.el b/lisp/org-refile.el index e5908e9d8..69d459b98 100644 --- a/lisp/org-refile.el +++ b/lisp/org-refile.el @@ -74,16 +74,16 @@ This is a list of cons cells. Each cell contains: - A specification of how to find candidate refile targets. This may be any of: - a cons cell (:tag . \"TAG\") to identify refile targets by a tag. - This tag has to be present in all target headlines, inheritance will + This tag has to be present in all target headings, inheritance will not be considered. - a cons cell (:todo . \"KEYWORD\") to identify refile targets by todo keyword. - a cons cell (:regexp . \"REGEXP\") with a regular expression matching - headlines that are refiling targets. - - a cons cell (:level . N). Any headline of level N is considered a tar= get. + headings that are refiling targets. + - a cons cell (:level . N). Any heading of level N is considered a targ= et. Note that, when `org-odd-levels-only' is set, level corresponds to order in hierarchy, not to the number of stars. - - a cons cell (:maxlevel . N). Any headline with level <=3D N is a targ= et. + - a cons cell (:maxlevel . N). Any heading with level <=3D N is a targe= t. Note that, when `org-odd-levels-only' is set, level corresponds to order in hierarchy, not to the number of stars. =20 @@ -92,9 +92,9 @@ The union of these sets is presented (with completion) to the user by `org-refile'. =20 You can set the variable `org-refile-target-verify-function' to a function -to verify each headline found by the simple criteria above. +to verify each heading found by the simple criteria above. =20 -When this variable is nil, all top-level headlines in the current buffer +When this variable is nil, all top-level headings in the current buffer are used, equivalent to the value `((nil . (:level . 1))'." :group 'org-refile :type '(repeat @@ -103,7 +103,7 @@ are used, equivalent to the value `((nil . (:level . 1)= )'." (const :tag "All agenda files" org-agenda-files) (const :tag "Current buffer" nil) (function) (variable) (file)) - (choice :tag "Identify target headline by" + (choice :tag "Identify target heading by" (cons :tag "Specific tag" (const :value :tag) (string)) (cons :tag "TODO keyword" (const :value :todo) (string)) (cons :tag "Regular expression" (const :value :regexp) (regexp)) @@ -111,10 +111,10 @@ are used, equivalent to the value `((nil . (:level . = 1))'." (cons :tag "Max Level number" (const :value :maxlevel) (integer)))))) =20 (defcustom org-refile-target-verify-function nil - "Function to verify if the headline at point should be a refile target. + "Function to verify if the heading at point should be a refile target. The function will be called without arguments, with point at the -beginning of the headline. It should return t and leave point -where it is if the headline is a valid target for refiling. +beginning of the heading. It should return t and leave point +where it is if the heading is a valid target for refiling. =20 If the target should not be selected, the function must return nil. In addition to this, it may move point to a place from where the search @@ -143,7 +143,7 @@ if you find that easier, \ =20 (defcustom org-refile-use-outline-path nil "Non-nil means provide refile targets as paths. -So a level 3 headline will be available as level1/level2/level3. +So a level 3 heading will be available as level1/level2/level3. =20 When the value is `file', also include the file name (without directory) into the path. In this case, you can also stop the completion after @@ -164,7 +164,7 @@ When `buffer-name', use the buffer name." "Non-nil means complete the outline path in hierarchical steps. When Org uses the refile interface to select an outline path (see `org-refile-use-outline-path'), the completion of the path can be -done in a single go, or it can be done in steps down the headline +done in a single go, or it can be done in steps down the heading hierarchy. Going in steps is probably the best if you do not use a special completion package like `ido' or `icicles'. However, when using these packages, going in one step can be very fast, @@ -195,7 +195,7 @@ heading." By default `org-refile' doesn't allow refiling regions if they don't contain a set of subtrees, but it might be convenient to do so sometimes: in that case, the first line of the region is -converted to a headline before refiling." +converted to a heading before refiling." :group 'org-refile :version "24.1" :type 'boolean) @@ -677,7 +677,7 @@ this function appends the default value from (user-error "Invalid target location"))))) =20 (defun org-refile-check-position (refile-pointer) - "Check if the refile pointer matches the headline to which it points." + "Check if the refile pointer matches the heading to which it points." (let* ((file (nth 1 refile-pointer)) (re (nth 2 refile-pointer)) (pos (nth 3 refile-pointer)) diff --git a/lisp/org.el b/lisp/org.el index 01d15aa91..5dca48f59 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -100,15 +100,15 @@ ;; `org-outline-regexp' ought to be a defconst but is let-bound in ;; some places -- e.g. see the macro `org-with-limited-levels'. (defvar org-outline-regexp "\\*+ " - "Regexp to match Org headlines.") + "Regexp to match Org headings.") =20 (defvar org-outline-regexp-bol "^\\*+ " - "Regexp to match Org headlines. + "Regexp to match Org headings. This is similar to `org-outline-regexp' but additionally makes sure that we are at the beginning of the line.") =20 (defvar org-heading-regexp "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ \t]*$" - "Matches a headline, putting stars and text into groups. + "Matches a heading, putting stars and text into groups. Stars are put in group 1 and the trimmed body in group 2.") =20 (declare-function calendar-check-holidays "holidays" (date)) @@ -578,14 +578,14 @@ Group 1 contains drawer's name or \"END\".") =20 (defconst org-heading-keyword-regexp-format "^\\(\\*+\\)\\(?: +%s\\)\\(?: +\\(.*?\\)\\)?[ \t]*$" - "Printf format for a regexp matching a headline with some keyword. + "Printf format for a regexp matching a heading with some keyword. This regexp will match the headline of any node which has the exact keyword that is put into the format. The keyword isn't in any group by default, but the stars and the body are.") =20 (defconst org-heading-keyword-maybe-regexp-format "^\\(\\*+\\)\\(?: +%s\\)?\\(?: +\\(.*?\\)\\)?[ \t]*$" - "Printf format for a regexp matching a headline, possibly with some keyw= ord. + "Printf format for a regexp matching a heading, possibly with some keywo= rd. This regexp can match any headline with the specified keyword, or without a keyword. The keyword isn't in any group by default, but the stars and the body are.") @@ -605,7 +605,7 @@ without the enclosing colons.") =20 (defconst org-tag-line-re "^\\*+ \\(?:.*[ \t]\\)?\\(:\\([[:alnum:]_@#%:]+\\):\\)[ \t]*$" - "Regexp matching tags in a headline. + "Regexp matching tags in a heading. Tags are stored in match group 1. Match group 2 stores the tags without the enclosing colons.") =20 @@ -876,7 +876,7 @@ outside these special contexts, under control of this v= ariable. =20 The default of this variable is nil, to avoid confusing behavior. Shifted cursor keys will then execute Org commands in the following contexts: -- on a headline, changing TODO state (left/right) and priority (up/down) +- on a heading, changing TODO state (left/right) and priority (up/down) - on a time stamp, changing the time - in a plain list item, changing the bullet type - in a property definition line, switching between allowed values @@ -891,7 +891,7 @@ cycling will no longer happen anywhere in an item line,= but only if the cursor is exactly on the bullet. =20 If you set this variable to the symbol `always', then the keys -will not be special in headlines, property lines, item lines, and +will not be special in headings, property lines, item lines, and table cells, to make shift selection work there as well. If this is what you want, you can use the following alternative commands: `\\[org-todo]' and `\\[org-priority]' \ @@ -910,17 +910,17 @@ will still edit the time stamp - this is just too goo= d to give up." (const :tag "Everywhere except timestamps" always))) =20 (defcustom org-loop-over-headlines-in-active-region t - "Shall some commands act upon headlines in the active region? + "Shall some commands act upon headings in the active region? =20 -When set to t, some commands will be performed in all headlines +When set to t, some commands will be performed in all headings within the active region. =20 When set to `start-level', some commands will be performed in all -headlines within the active region, provided that these headlines +headlines within the active region, provided that these headings are of the same level than the first one. =20 When set to a string, those commands will be performed on the -matching headlines within the active region. Such string must be +matching headings within the active region. Such string must be a tags/property/todo match as it is used in the agenda tags view. =20 The list of commands is: `org-schedule', `org-deadline', @@ -932,8 +932,8 @@ already archived entries. See `org-agenda-loop-over-headlines-in-active-region' for the equivalent option for agenda views." :type '(choice (const :tag "Don't loop" nil) - (const :tag "All headlines in active region" t) - (const :tag "In active region, headlines at the same level than the fir= st one" start-level) + (const :tag "All headings in active region" t) + (const :tag "In active region, headings at the same level than the firs= t one" start-level) (string :tag "Tags/Property/Todo matcher")) :package-version '(Org . "9.4") :group 'org-todo @@ -963,7 +963,7 @@ time." (const :tag "fold: show three levels" show3levels) (const :tag "fold: show four levels" show4evels) (const :tag "fold: show five levels" show5levels) - (const :tag "content: all headlines" content) + (const :tag "content: all headings" content) (const :tag "show everything, even drawers" showeverything))) =20 (defcustom org-startup-truncated t @@ -1199,27 +1199,27 @@ or context. Valid contexts are =20 Allowed visibility spans are =20 - minimal show current headline; if point is not on heading, + minimal show current heading; if point is not on heading, also show entry =20 - local show current headline, entry and next headline + local show current heading, entry and next heading =20 - ancestors show current headline and its direct ancestors; if - point is not on headline, also show entry + ancestors show current heading and its direct ancestors; if + point is not on heading, also show entry =20 ancestors-full show current subtree and its direct ancestors =20 - lineage show current headline, its direct ancestors and all + lineage show current heading, its direct ancestors and all their children; if point is not on heading, also show entry and first child =20 - tree show current headline, its direct ancestors and all + tree show current heading, its direct ancestors and all their children; if point is not on heading, also show entry and all children =20 - canonical show current headline, its direct ancestors along with + canonical show current heading, its direct ancestors along with their entries and children; if point is not located on - the headline, also show current entry and all children + the heading, also show current entry and all children =20 As special cases, a nil or t value means show all contexts in `minimal' or `canonical' view, respectively. @@ -1458,9 +1458,9 @@ is not set." =20 (defcustom org-cycle-max-level nil "Maximum level which should still be subject to visibility cycling. -Levels higher than this will, for cycling, be treated as text, not a headl= ine. +Levels higher than this will, for cycling, be treated as text, not a headi= ng. When `org-odd-levels-only' is set, a value of N in this variable actually -means 2N-1 stars as the limiting headline. +means 2N-1 stars as the limiting heading. When nil, cycle all levels. Note that the limiting level of cycling is also influenced by `org-inlinetask-min-level'. When `org-cycle-max-level' is not set but @@ -1482,12 +1482,12 @@ This can also be set in on a per-file basis with :type 'boolean) =20 (defcustom org-cycle-global-at-bob nil - "Cycle globally if cursor is at beginning of buffer and not at a headlin= e. + "Cycle globally if cursor is at beginning of buffer and not at a heading. =20 This makes it possible to do global cycling without having to use `S-TAB' or `\\[universal-argument] TAB'. For this special case to work, the first= \ line of the buffer -must not be a headline -- it may be empty or some other text. +must not be a heading -- it may be empty or some other text. =20 When used in this way, `org-cycle-hook' is disabled temporarily to make sure the cursor stays at the beginning of the buffer. @@ -1500,10 +1500,10 @@ the buffer." (defcustom org-cycle-level-after-item/entry-creation t "Non-nil means cycle entry level or item indentation in new empty entrie= s. =20 -When the cursor is at the end of an empty headline, i.e., with only stars +When the cursor is at the end of an empty heading, i.e., with only stars and maybe a TODO keyword, TAB will then switch the entry to become a child, and then all possible ancestor states, before returning to the original st= ate. -This makes data entry extremely fast: M-RET to create a new headline, +This makes data entry extremely fast: M-RET to create a new heading, on TAB to make it a child, two or more tabs to make it a (grand-)uncle. =20 When the cursor is at the end of an empty plain list item, one TAB will @@ -1517,26 +1517,26 @@ higher up in the item hierarchy." nil Never white Only in completely white lines whitestart Only at the beginning of lines, before the first non-white char -t Everywhere except in headlines -exc-hl-bol Everywhere except at the start of a headline +t Everywhere except in headings +exc-hl-bol Everywhere except at the start of a heading If TAB is used in a place where it does not emulate TAB, the current subtr= ee visibility is cycled." :group 'org-cycle :type '(choice (const :tag "Never" nil) (const :tag "Only in completely white lines" white) (const :tag "Before first char in a line" whitestart) - (const :tag "Everywhere except in headlines" t) - (const :tag "Everywhere except at bol in headlines" exc-hl-bol))) + (const :tag "Everywhere except in headings" t) + (const :tag "Everywhere except at bol in headings" exc-hl-bol))) =20 (defcustom org-cycle-separator-lines 2 "Number of empty lines needed to keep an empty line between collapsed tr= ees. If you leave an empty line between the end of a subtree and the following -headline, this empty line is hidden when the subtree is folded. +heading, this empty line is hidden when the subtree is folded. Org mode will leave (exactly) one empty line visible if the number of empty lines is equal or larger to the number given in this variable. So the default 2 means at least 2 empty lines after the end of a subtree are needed to produce free space between a collapsed subtree and the -following headline. +following heading. =20 If the number is negative, and the number of empty lines is at least -N, all empty lines are shown. @@ -1595,10 +1595,10 @@ lines to the buffer: "Non-nil means adapt indentation to outline node level. =20 When set to t, Org assumes that you write outlines by indenting -text in each node to align with the headline, after the stars. +text in each node to align with the heading, after the stars. =20 When this variable is set to `headline-data', Org only adapts the -indentation of the data lines right below the headline, such as +indentation of the data lines right below the heading, such as planning/clock lines and property/logbook drawers. =20 The following issues are influenced by this variable: @@ -1606,14 +1606,14 @@ The following issues are influenced by this variabl= e: - The indentation is increased by one space in a demotion command, and decreased by one in a promotion command. However, in the latter case, if shifting some line in the entry body - would alter document structure (e.g., insert a new headline), + would alter document structure (e.g., insert a new heading), indentation is not changed at all. =20 - Property drawers and planning information is inserted indented when this variable is set. When nil, they will not be indented. =20 - TAB indents a line relative to current level. The lines below - a headline will be indented when this variable is set to t. + a heading will be indented when this variable is set to t. =20 Note that this is all about true indentation, by adding and removing space characters. See also \"org-indent.el\" which does @@ -1622,7 +1622,7 @@ time in Emacs." :group 'org-edit-structure :type '(choice (const :tag "Adapt indentation for all lines" t) - (const :tag "Adapt indentation for headline data lines" + (const :tag "Adapt indentation for heading data lines" headline-data) (const :tag "Do not adapt indentation at all" nil)) :safe (lambda (x) (memq x '(t nil headline-data)))) @@ -1630,16 +1630,16 @@ time in Emacs." (defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e) =20 (defcustom org-special-ctrl-a/e nil - "Non-nil means `C-a' and `C-e' behave specially in headlines and items. + "Non-nil means `C-a' and `C-e' behave specially in headings and items. =20 When t, `C-a' will bring back the cursor to the beginning of the -headline text, i.e. after the stars and after a possible TODO +heading text, i.e. after the stars and after a possible TODO keyword. In an item, this will be the position after bullet and check-box, if any. When the cursor is already at that position, another `C-a' will bring it to the beginning of the line. =20 -`C-e' will jump to the end of the headline, ignoring the presence -of tags in the headline. A second `C-e' will then jump to the +`C-e' will jump to the end of the heading, ignoring the presence +of tags in the heading. A second `C-e' will then jump to the true end of the line, after any tags. This also means that, when this variable is non-nil, `C-e' also will never jump beyond the end of the heading of a folded section, i.e. not after the @@ -1668,20 +1668,20 @@ This may also be a cons cell where the behavior for= `C-a' and (const :tag "reversed: after tags first" reversed))))) =20 (defcustom org-special-ctrl-k nil - "Non-nil means `C-k' will behave specially in headlines. + "Non-nil means `C-k' will behave specially in headings. When nil, `C-k' will call the default `kill-line' command. -When t, the following will happen while the cursor is in the headline: +When t, the following will happen while the cursor is in the heading: =20 -- When at the beginning of a headline, kill the entire subtree. -- When in the middle of the headline text, kill the text up to the tags. -- When after the headline text and before the tags, kill all the tags." +- When at the beginning of a heading, kill the entire subtree. +- When in the middle of the heading text, kill the text up to the tags. +- When after the heading text and before the tags, kill all the tags." :group 'org-edit-structure :type 'boolean) =20 (defcustom org-ctrl-k-protect-subtree nil "Non-nil means, do not delete a hidden subtree with `C-k'. When set to the symbol `error', simply throw an error when `C-k' is -used to kill (part-of) a headline that has hidden text behind it. +used to kill (part-of) a heading that has hidden text behind it. Any other non-nil value will result in a query to the user, if it is OK to kill that hidden subtree. When nil, kill without remorse." :group 'org-edit-structure @@ -1742,7 +1742,7 @@ new line. You may also set this option in a different way for different contexts. Valid contexts are: =20 -headline when creating a new headline +headline when creating a new heading item when creating a new item table in a table field default the value to be used for all contexts not explicitly @@ -1863,7 +1863,7 @@ angle Links in angular brackets that may contain = whitespace like . plain Plain links in normal text, no whitespace, like https://gnu.org. radio Text that is matched by a radio target, see manual for details. -tag Tag settings in a headline (link to tag search). +tag Tag settings in a heading (link to tag search). date Time stamps (link to calendar). footnote Footnote labels. =20 @@ -2032,7 +2032,7 @@ are followed by a letter in parenthesis, like TODO(t)= ." =20 (defcustom org-provide-todo-statistics t "Non-nil means update todo statistics after insert and toggle. -ALL-HEADLINES means update todo statistics by including headlines +ALL-HEADLINES means update todo statistics by including headings with no TODO keyword as well, counting them as not done. A list of TODO keywords means the same, but skip keywords that are not in this list. @@ -2321,7 +2321,7 @@ because Agenda Log mode depends on the format of thes= e entries." =20 (defcustom org-log-into-drawer nil "Non-nil means insert state change notes and time stamps into a drawer. -When nil, state changes notes will be inserted after the headline and +When nil, state changes notes will be inserted after the heading and any scheduling and clock lines, but not inside a drawer. =20 The value of this variable should be the name of the drawer to use. @@ -2365,7 +2365,7 @@ be used instead of the default value." =20 (defcustom org-log-state-notes-insert-after-drawers nil "Non-nil means insert state change notes after any drawers in entry. -Only the drawers that *immediately* follow the headline and the +Only the drawers that *immediately* follow the heading and the deadline/scheduled line are skipped. When nil, insert notes right after the heading and perhaps the line with deadline/scheduling if present. @@ -2520,9 +2520,9 @@ See also `org-priority-default'." (defvaralias 'org-get-priority-function 'org-priority-get-priority-functio= n) (defcustom org-priority-get-priority-function nil "Function to extract the priority from a string. -The string is normally the headline. If this is nil, Org +The string is normally the heading. If this is nil, Org computes the priority from the priority cookie like [#A] in the -headline. It returns an integer, increasing by 1000 for each +heading. It returns an integer, increasing by 1000 for each priority level. =20 The user can set a different function here, which should take a @@ -2890,18 +2890,18 @@ displaying the tags menu is not even shown, until y= ou press `C-c' again." This is an undocumented feature, you should not rely on it.") =20 (defcustom org-tags-column -77 - "The column to which tags should be indented in a headline. + "The column to which tags should be indented in a heading. If this number is positive, it specifies the column. If it is negative, it means that the tags should be flushright to that column. For example, -80 works well for a normal 80 character screen. -When 0, place tags directly after headline text, with only one space in +When 0, place tags directly after heading text, with only one space in between." :group 'org-tags :type 'integer) =20 (defcustom org-auto-align-tags t - "Non-nil keeps tags aligned when modifying headlines. -Some operations (i.e. demoting) change the length of a headline and + "Non-nil keeps tags aligned when modifying headings. +Some operations (i.e. demoting) change the length of a heading and therefore shift the tags around. With this option turned on, after each such operation the tags are again aligned to `org-tags-column'." :group 'org-tags @@ -2948,7 +2948,7 @@ see the variable `org-use-tag-inheritance'." (t (error "Invalid setting of `org-use-tag-inheritance'")))) =20 (defcustom org-tags-match-list-sublevels t - "Non-nil means list also sublevels of headlines matching a search. + "Non-nil means list also sublevels of headings matching a search. This variable applies to tags/property searches, and also to stuck projects because this search is based on a tags match as well. =20 @@ -2956,7 +2956,7 @@ When set to the symbol `indented', sublevels are inde= nted with leading dots. =20 Because of tag inheritance (see variable `org-use-tag-inheritance'), -the sublevels of a headline matching a tag search often also match +the sublevels of a heading matching a tag search often also match the same search. Listing all of them can create very long lists. Setting this variable to nil causes subtrees of a match to be skipped. =20 @@ -3583,15 +3583,15 @@ Make sure that you only list packages here which: :group 'org) =20 (defcustom org-level-color-stars-only nil - "Non-nil means fontify only the stars in each headline. -When nil, the entire headline is fontified. + "Non-nil means fontify only the stars in each heading. +When nil, the entire heading is fontified. Changing it requires restart of `font-lock-mode' to become effective also in regions already fontified." :group 'org-appearance :type 'boolean) =20 (defcustom org-hide-leading-stars nil - "Non-nil means hide the first N-1 stars in a headline. + "Non-nil means hide the first N-1 stars in a heading. This works by using the face `org-hide' for these stars. This face is white for a light background, and black for a dark background. You may have to customize the face `org-hide' to @@ -3628,9 +3628,9 @@ hide them with `org-toggle-custom-properties-visibili= ty'." :type '(repeat (string :tag "Property Name"))) =20 (defcustom org-fontify-todo-headline nil - "Non-nil means change the face of a headline if it is marked as TODO. -Normally, only the TODO/DONE keyword indicates the state of a headline. -When this is non-nil, the headline after the keyword is set to the + "Non-nil means change the face of a heading if it is marked as TODO. +Normally, only the TODO/DONE keyword indicates the state of a heading. +When this is non-nil, the heading after the keyword is set to the `org-headline-todo' as an additional indication." :group 'org-appearance :package-version '(Org . "9.4") @@ -3638,9 +3638,9 @@ When this is non-nil, the headline after the keyword = is set to the :safe #'booleanp) =20 (defcustom org-fontify-done-headline t - "Non-nil means change the face of a headline if it is marked DONE. -Normally, only the TODO/DONE keyword indicates the state of a headline. -When this is non-nil, the headline after the keyword is set to the + "Non-nil means change the face of a heading if it is marked DONE. +Normally, only the TODO/DONE keyword indicates the state of a heading. +When this is non-nil, the heading after the keyword is set to the `org-headline-done' as an additional indication." :group 'org-appearance :package-version '(Org . "9.4") @@ -3861,7 +3861,7 @@ This is needed for font-lock setup.") (defvar org-clock-marker (make-marker) "Marker recording the last clock-in.") (defvar org-clock-hd-marker (make-marker) - "Marker recording the last clock-in, but the headline position.") + "Marker recording the last clock-in, but the heading position.") (defvar org-clock-heading "" "The heading of the current clock entry.") (defun org-clocking-buffer () @@ -4088,35 +4088,35 @@ Since TODO keywords are case-sensitive, `case-fold-= search' is expected to be bound to nil when matching against this regexp.") =20 (defvar-local org-not-done-heading-regexp nil - "Matches a TODO headline that is not done. + "Matches a TODO heading that is not done. Since TODO keywords are case-sensitive, `case-fold-search' is expected to be bound to nil when matching against this regexp.") =20 (defvar-local org-todo-line-regexp nil - "Matches a headline and puts TODO state into group 2 if present. + "Matches a heading and puts TODO state into group 2 if present. Since TODO keywords are case-sensitive, `case-fold-search' is expected to be bound to nil when matching against this regexp.") =20 (defvar-local org-complex-heading-regexp nil - "Matches a headline and puts everything into groups: + "Matches a heading and puts everything into groups: =20 group 1: Stars group 2: The TODO keyword, maybe group 3: Priority cookie -group 4: True headline +group 4: True heading group 5: Tags =20 Since TODO keywords are case-sensitive, `case-fold-search' is expected to be bound to nil when matching against this regexp.") =20 (defvar-local org-complex-heading-regexp-format nil - "Printf format to make regexp to match an exact headline. -This regexp will match the headline of any node which has the -exact headline text that is put into the format, but may have any + "Printf format to make regexp to match an exact heading. +This regexp will match the heading of any node which has the +exact heading text that is put into the format, but may have any TODO state, priority and tags.") =20 (defvar-local org-todo-line-tags-regexp nil - "Matches a headline and puts TODO state into group 2 if present. + "Matches a heading and puts TODO state into group 2 if present. Also put tags into group 4 if tags are present.") =20 (defconst org-plain-time-of-day-regexp @@ -5261,7 +5261,7 @@ See also the `org-block' face." =20 (defcustom org-allow-promoting-top-level-subtree nil "When non-nil, allow promoting a top level subtree. -The leading star of the top level headline will be replaced +The leading star of the top level heading will be replaced by a #." :type 'boolean :version "24.1" @@ -5601,7 +5601,7 @@ highlighting was done, nil otherwise." (defun org-outline-level () "Compute the outline level of the heading at point. =20 -If this is called at a normal headline, the level is the number +If this is called at a normal heading, the level is the number of stars. Use `org-reduced-level' to remove the effect of `org-odd-levels'. Unlike to `org-current-level', this function takes into consideration inlinetasks." @@ -5864,7 +5864,7 @@ needs to be inserted at a specific position in the fo= nt-lock sequence.") (buffer-string)))) =20 (defun org-get-level-face (n) - "Get the right face for match N in font-lock matching of headlines." + "Get the right face for match N in font-lock matching of headings." (let* ((org-l0 (- (match-end 2) (match-beginning 1) 1)) (org-l (if org-odd-levels-only (1+ (/ org-l0 2)) org-l0)) (org-f (if org-cycle-level-faces @@ -6011,7 +6011,7 @@ and subscripts." (delete-overlay o)))) =20 (defun org-show-empty-lines-in-parent () - "Move to the parent and re-show empty lines before visible headlines." + "Move to the parent and re-show empty lines before visible headings." (save-excursion (let ((context (if (org-up-heading-safe) 'children 'overview))) (org-cycle-show-empty-lines context)))) @@ -6042,7 +6042,7 @@ open and agenda-wise Org files." (save-excursion (org-end-of-subtree t) (point)))) =20 (defun org-first-headline-recenter () - "Move cursor to the first headline and recenter the headline." + "Move cursor to the first heading and recenter the heading." (let ((window (get-buffer-window))) (when window (goto-char (point-min)) @@ -6314,8 +6314,8 @@ in special contexts. When this function is called with a `\\[universal-argument]' prefix, rotat= e \ the entire buffer through 3 states (global cycling) - 1. OVERVIEW: Show only top-level headlines. - 2. CONTENTS: Show all headlines of all levels, but no body text. + 1. OVERVIEW: Show only top-level headings. + 2. CONTENTS: Show all headings of all levels, but no body text. 3. SHOW ALL: Show everything. =20 With a `\\[universal-argument] \\[universal-argument]' prefix argument, \ @@ -6329,31 +6329,31 @@ any drawers. =20 When inside a table, re-align the table and move to the next field. =20 -When point is at the beginning of a headline, rotate the subtree started +When point is at the beginning of a heading, rotate the subtree started by this line through 3 different states (local cycling) - 1. FOLDED: Only the main headline is shown. - 2. CHILDREN: The main headline and the direct children are shown. + 1. FOLDED: Only the main heading is shown. + 2. CHILDREN: The main heading and the direct children are shown. From this state, you can move to one of the children and zoom in further. 3. SUBTREE: Show the entire subtree, including body text. If there is no subtree, switch directly from CHILDREN to FOLDED. =20 -When point is at the beginning of an empty headline and the variable +When point is at the beginning of an empty heading and the variable `org-cycle-level-after-item/entry-creation' is set, cycle the level -of the headline by demoting and promoting it to likely levels. This +of the heading by demoting and promoting it to likely levels. This speeds up creation document structure by pressing `TAB' once or several -times right after creating a new headline. +times right after creating a new heading. =20 When there is a numeric prefix, go up to a heading with level ARG, do a `show-subtree' and return to the previous cursor position. If ARG is negative, go up that many levels. =20 -When point is not at the beginning of a headline, execute the global +When point is not at the beginning of a heading, execute the global binding for `TAB', which is re-indenting the line. See the option `org-cycle-emulate-tab' for details. =20 As a special case, if point is at the very beginning of the buffer, if -there is no headline there, and if the variable `org-cycle-global-at-bob' +there is no heading there, and if the variable `org-cycle-global-at-bob' is non-nil, this function acts as if called with prefix argument \ \(`\\[universal-argument] TAB', same as `S-TAB') also when called without prefix argument." @@ -6603,7 +6603,7 @@ Use `\\[org-edit-special]' to edit table.el tables")) (defun org-global-cycle (&optional arg) "Cycle the global visibility. For details see `org-cycle'. With `\\[universal-argument]' prefix ARG, switch to startup visibility. -With a numeric prefix, show all headlines up to that level." +With a numeric prefix, show all headings up to that level." (interactive "P") (cond ((integerp arg) @@ -6669,7 +6669,7 @@ With a numeric prefix, show all headlines up to that = level." (org-end-of-subtree))))))) =20 (defun org-overview () - "Switch to overview mode, showing only top-level headlines." + "Switch to overview mode, showing only top-level headings." (interactive) (org-show-all '(headings drawers)) (save-excursion @@ -6686,7 +6686,7 @@ With a numeric prefix, show all headlines up to that = level." (org-flag-region last (point) t 'outline))))) =20 (defun org-content (&optional arg) - "Show all headlines in the buffer, like a table of contents. + "Show all headings in the buffer, like a table of contents. With numerical argument N, show content up to level N." (interactive "p") (org-show-all '(headings drawers)) @@ -6755,11 +6755,11 @@ This function is the default value of the hook `org= -cycle-hook'." (org-cycle-show-empty-lines 'overview))))) =20 (defun org-cycle-show-empty-lines (state) - "Show empty lines above all visible headlines. + "Show empty lines above all visible headings. The region to be covered depends on STATE when called through `org-cycle-hook'. Lisp program can use t for STATE to get the entire buffer covered. Note that an empty line is only shown if there -are at least `org-cycle-separator-lines' empty lines before the headline." +are at least `org-cycle-separator-lines' empty lines before the heading." (when (/=3D org-cycle-separator-lines 0) (save-excursion (let* ((n (abs org-cycle-separator-lines)) @@ -6849,7 +6849,7 @@ DETAIL is either nil, `minimal', `local', `ancestors', "Hook run before revealing a location.") =20 (defun org-reveal (&optional siblings) - "Show current entry, hierarchy above it, and the following headline. + "Show current entry, hierarchy above it, and the following heading. =20 This can be used to show a consistent set of context around locations exposed with `org-show-context'. @@ -6968,7 +6968,7 @@ frame is not changed." (defun org--blank-before-heading-p (&optional parent) "Non-nil when an empty line should precede a new heading here. When optional argument PARENT is non-nil, consider parent -headline instead of current one." +heading instead of current one." (pcase (assq 'heading org-blank-before-new-entry) (`(heading . auto) (save-excursion @@ -6992,13 +6992,13 @@ headline instead of current one." "Insert a new heading or an item with the same depth at point. =20 If point is at the beginning of a heading, insert a new heading -or a new headline above the current one. When at the beginning +or a new heading above the current one. When at the beginning of a regular line of text, turn it into a heading. =20 If point is in the middle of a line, split it and create a new -headline with the text in the current line after point (see +heading with the text in the current line after point (see `org-M-RET-may-split-line' on how to modify this behavior). As -a special case, on a headline, splitting can only happen on the +a special case, on a heading, splitting can only happen on the title itself. E.g., this excludes breaking stars or tags. =20 With a `\\[universal-argument]' prefix, set \ @@ -7013,7 +7013,7 @@ above the current heading. For example, if point is = within a 2nd-level heading, then it will insert a 2nd-level heading at the end of the 1st-level parent subtree. =20 -When INVISIBLE-OK is set, stop at invisible headlines when going +When INVISIBLE-OK is set, stop at invisible headings when going back. This is important for non-interactive uses of the command. =20 @@ -7139,7 +7139,7 @@ This is a list with the following elements: - the reduced level, different if `org-odd-levels-only' is set. - the TODO keyword, or nil - the priority character, like ?A, or nil if no priority is given -- the headline text itself, or the tags string if no headline text +- the heading text itself, or the tags string if no heading text - the tags string, or nil." (save-excursion (org-back-to-heading t) @@ -7158,7 +7158,7 @@ This is a list with the following elements: (buffer-substring (point-at-bol 2) (org-end-of-subtree t)))) =20 (defun org-edit-headline (&optional heading) - "Edit the current headline. + "Edit the current heading. Set it to HEADING when provided." (interactive) (org-with-wide-buffer @@ -7309,18 +7309,18 @@ headings in the region." ((equal (char-after) ?\s) (forward-char 1)))))) =20 (defun org-current-level () - "Return the level of the current entry, or nil if before the first headl= ine. + "Return the level of the current entry, or nil if before the first headi= ng. The level is the number of stars at the beginning of the -headline. Use `org-reduced-level' to remove the effect of +heading. Use `org-reduced-level' to remove the effect of `org-odd-levels'. Unlike to `org-outline-level', this function ignores inlinetasks." (let ((level (org-with-limited-levels (org-outline-level)))) (and (> level 0) level))) =20 (defun org-get-previous-line-level () - "Return the outline depth of the last headline before the current line. -Returns 0 for the first headline in the buffer, and nil if before the -first headline." + "Return the outline depth of the last heading before the current line. +Returns 0 for the first heading in the buffer, and nil if before the +first heading." (and (org-current-level) (or (and (/=3D (line-beginning-position) (point-min)) (save-excursion (beginning-of-line 0) (org-current-level))) @@ -7336,7 +7336,7 @@ This takes into account the setting of `org-odd-level= s-only'." =20 (defun org-level-increment () "Return the number of stars that will be added or removed at a -time to headlines when structure editing, based on the value of +time to headings when structure editing, based on the value of `org-odd-levels-only'." (if org-odd-levels-only 2 1)) =20 @@ -7387,7 +7387,7 @@ odd number. Returns values greater than 0." (run-hooks 'org-after-demote-entry-hook)))) =20 (defun org-cycle-level () - "Cycle the level of an empty headline through possible states. + "Cycle the level of an empty heading through possible states. This goes first to child, then to parent, level, then up the hierarchy. After top level, it switches back to sibling level." (interactive) @@ -7456,7 +7456,7 @@ DIFF is an integer. Indentation is done according to= the following rules: =20 - Planning information and property drawers are always indented - according to the new level of the headline; + according to the new level of the heading; =20 - Footnote definitions and their contents are ignored; =20 @@ -7612,12 +7612,12 @@ case." ;;; Vertical tree motion, cutting and pasting of subtrees =20 (defun org-move-subtree-up (&optional arg) - "Move the current subtree up past ARG headlines of the same level." + "Move the current subtree up past ARG headings of the same level." (interactive "p") (org-move-subtree-down (- (prefix-numeric-value arg)))) =20 (defun org-move-subtree-down (&optional arg) - "Move the current subtree down past ARG headlines of the same level." + "Move the current subtree down past ARG headings of the same level." (interactive "p") (setq arg (prefix-numeric-value arg)) (org-preserve-local-variables @@ -7731,16 +7731,16 @@ useful if the caller implements cut-and-paste as co= py-then-paste-then-cut." (length org-subtree-clip)))))) =20 (defun org-paste-subtree (&optional level tree for-yank remove) - "Paste the clipboard as a subtree, with modification of headline level. + "Paste the clipboard as a subtree, with modification of heading level. =20 -The entire subtree is promoted or demoted in order to match a new headline +The entire subtree is promoted or demoted in order to match a new heading level. =20 -If the cursor is at the beginning of a headline, the same level as -that headline is used to paste the tree. +If the cursor is at the beginning of a heading, the same level as +that heading is used to paste the tree. =20 If not, the new level is derived from the *visible* headings -before and after the insertion point, and taken to be the inferior headline +before and after the insertion point, and taken to be the inferior heading level of the two. So if the previous visible heading is level 3 and the next is level 4 (or vice versa), level 4 will be used for insertion. This makes sure that the subtree remains an independent subtree and does @@ -7839,8 +7839,8 @@ When REMOVE is non-nil, remove the subtree from the c= lipboard." =20 (defun org-kill-is-subtree-p (&optional txt) "Check if the current kill is an outline subtree, or a set of trees. -Returns nil if kill does not start with a headline, or if the first -headline level is not the largest headline level in the tree. +Returns nil if kill does not start with a heading, or if the first +heading level is not the largest heading level in the tree. So this will actually accept several entries of equal levels as well, which is OK for `org-paste-subtree'. If optional TXT is given, check this string instead of the current kill." @@ -8049,13 +8049,13 @@ of strings describing the outline path for that ent= ry, in reverse order.") =20 (defun org--get-outline-path-1 (&optional use-cache) - "Return outline path to current headline. + "Return outline path to current heading. =20 Outline path is a list of strings, in reverse order. When optional argument USE-CACHE is non-nil, make use of a cache. See `org-get-outline-path' for details. =20 -Assume buffer is widened and point is on a headline." +Assume buffer is widened and point is on a heading." (or (and use-cache (cdr (assq (point) org-outline-path-cache))) (let ((p (point)) (heading (let ((case-fold-search nil)) @@ -8082,12 +8082,12 @@ Assume buffer is widened and point is on a headline= ." (defun org-get-outline-path (&optional with-self use-cache) "Return the outline path to the current entry. =20 -An outline path is a list of ancestors for current headline, as +An outline path is a list of ancestors for current heading, as a list of strings. Statistics cookies are removed and links are replaced with their description, if any, or their path otherwise. =20 When optional argument WITH-SELF is non-nil, the path also -includes the current headline. +includes the current heading. =20 When optional argument USE-CACHE is non-nil, cache outline paths between calls to this function so as to avoid backtracking. This @@ -8254,7 +8254,7 @@ compare entries. Comparing entries ignores case by default. However, with an optional argu= ment WITH-CASE, the sorting considers case as well. =20 -Sorting is done against the visible part of the headlines, it ignores hidd= en +Sorting is done against the visible part of the headings, it ignores hidden links. =20 When sorting is done, call `org-after-sorting-entries-or-items-hook'. @@ -8588,8 +8588,8 @@ the value of the drawer property." The refresh happens only for the current entry, or the whole sub-tree if optional argument INHERIT is non-nil. =20 -If point is before first headline, the function applies to the -part before the first headline. In that particular case, when +If point is before first heading, the function applies to the +part before the first heading. In that particular case, when optional argument INHERIT is non-nil, it refreshes properties for the whole buffer." (save-excursion @@ -8949,7 +8949,7 @@ When point is a footnote definition, move to the firs= t reference found. If it is on a reference, move to the associated definition. =20 -When point is on a headline, display a list of every link in the +When point is on a heading, display a list of every link in the entry, so it is possible to pick one, or all, of them. If point is on a tag, call `org-tags-view' instead. =20 @@ -10135,7 +10135,7 @@ all statistics cookies in the buffer." =20 (defvar org-entry-property-inherited-from) ;; defined below (defun org-update-parent-todo-statistics () - "Update any statistics cookie in the parent of the current headline. + "Update any statistics cookie in the parent of the current heading. When `org-hierarchical-todo-statistics' is nil, statistics will cover the entire subtree and this will travel up the hierarchy and update statistics everywhere." @@ -10234,7 +10234,7 @@ and the number of done entries. For example, the following function, when added to this hook, will switch an entry to DONE when all children are done, and back to TODO when new entries are set to a TODO status. Note that this hook is only called -when there is a statistics cookie in the headline! +when there is a statistics cookie in the heading! =20 (defun org-summary-todo (n-done n-not-done) \"Switch entry to DONE when all subentries are done, to TODO otherwise.= \" @@ -10447,7 +10447,7 @@ repeater from there instead." (defvar org-log-note-extra) (defvar org-log-setup nil) (defun org-auto-repeat-maybe (done-word) - "Check if the current headline contains a repeated time-stamp. + "Check if the current heading contains a repeated time-stamp. =20 If yes, set TODO state back to what it was and change the base date of repeating deadline/scheduled time stamps to new date. @@ -10571,7 +10571,7 @@ enough to shift date past today. Continue? " (message msg)))) =20 (defun org-show-todo-tree (arg) - "Make a compact tree which shows all headlines marked with TODO. + "Make a compact tree which shows all headings marked with TODO. The tree will show the lines where the regexp matches, and all higher headlines above the match. With a `\\[universal-argument]' prefix, prompt for a regexp to match. @@ -11251,7 +11251,7 @@ match is found." (user-error "No more matches")))) =20 (defun org-highlight-new-match (beg end) - "Highlight from BEG to END and mark the highlight is an occur headline." + "Highlight from BEG to END and mark the highlight is an occur heading." (let ((ov (make-overlay beg end))) (overlay-put ov 'face 'secondary-selection) (overlay-put ov 'org-type 'org-occur) @@ -11452,18 +11452,18 @@ as N.") (defvar org--matcher-tags-todo-only nil) =20 (defun org-scan-tags (action matcher todo-only &optional start-level) - "Scan headline tags with inheritance and produce output ACTION. + "Scan heading tags with inheritance and produce output ACTION. =20 ACTION can be `sparse-tree' to produce a sparse tree in the current buffer, or `agenda' to produce an entry list for an agenda view. It can also be -a Lisp form or a function that should be called at each matched headline, = in +a Lisp form or a function that should be called at each matched heading, in this case the return value is a list of all return values from these calls. =20 MATCHER is a function accepting three arguments, returning -a non-nil value whenever a given set of tags qualifies a headline +a non-nil value whenever a given set of tags qualifies a heading for inclusion. See `org-make-tags-matcher' for more information. As a special case, it can also be set to t (respectively nil) in -order to match all (respectively none) headline. +order to match all (respectively none) heading. =20 When TODO-ONLY is non-nil, only lines with a TODO keyword are included in the output. @@ -11699,12 +11699,12 @@ Returns a cons of the selection string MATCH and = a function implementing the matcher. =20 The matcher is to be called at an Org entry, with point on the -headline, and returns non-nil if the entry matches the selection +heading, and returns non-nil if the entry matches the selection string MATCH. It must be called with three arguments: the TODO keyword at the entry (or nil if none), the list of all tags at the entry including inherited ones and the reduced level of the -headline. Additionally, the category of the entry, if any, must -be specified as the text property `org-category' on the headline. +heading. Additionally, the category of the entry, if any, must +be specified as the text property `org-category' on the heading. =20 This function sets the variable `org--matcher-tags-todo-only' to a non-nil value if the matcher restricts matching to TODO @@ -11981,8 +11981,8 @@ If ONOFF is `on' or `off', don't toggle but set to = this state." res))) =20 (defun org--align-tags-here (to-col) - "Align tags on the current headline to TO-COL. -Assume point is on a headline. Preserve point when aligning + "Align tags on the current heading to TO-COL. +Assume point is on a heading. Preserve point when aligning tags." (when (org-match-line org-tag-line-re) (let* ((tags-start (match-beginning 1)) @@ -12114,7 +12114,7 @@ visible part of the buffer." TAGS may be a tags string like \":aa:bb:cc:\", or a list of tags. If TAGS is nil or the empty string, all tags are removed. =20 -This function assumes point is on a headline." +This function assumes point is on a heading." (org-with-wide-buffer (let ((tags (pcase tags ((pred listp) tags) @@ -12238,7 +12238,7 @@ Also insert END." (defvar org-last-tag-selection-key nil) (defun org-fast-tag-selection (current inherited table &optional todo-tabl= e) "Fast tag selection with single keys. -CURRENT is the current list of tags in the headline, INHERITED is the +CURRENT is the current list of tags in the heading, INHERITED is the list of inherited tags, and TABLE is an alist of tags and corresponding ke= ys, possibly with grouping information. TODO-TABLE is a similar table with TODO keywords, should these have keys assigned to them. @@ -12455,25 +12455,25 @@ TAGS is a list of strings." (format ":%s:" (mapconcat #'identity tags ":")))) =20 (defun org--get-local-tags () - "Return list of tags for the current headline. -Assume point is at the beginning of the headline." + "Return list of tags for the current heading. +Assume point is at the beginning of the heading." (and (looking-at org-tag-line-re) (split-string (match-string-no-properties 2) ":" t))) =20 (defun org-get-tags (&optional pos local) - "Get the list of tags specified in the current headline. + "Get the list of tags specified in the current heading. =20 -When argument POS is non-nil, retrieve tags for headline at POS. +When argument POS is non-nil, retrieve tags for heading at POS. =20 According to `org-use-tag-inheritance', tags may be inherited -from parent headlines, and from the whole document, through +from parent headings, and from the whole document, through `org-file-tags'. In this case, the returned list of tags contains tags in this order: file tags, tags inherited from -parent headlines, local tags. If a tag appears multiple times, +parent headings, local tags. If a tag appears multiple times, only the most local tag is returned. =20 However, when optional argument LOCAL is non-nil, only return -tags specified at the headline. +tags specified at the heading. =20 Inherited tags have the `inherited' text property." (if (and org-trust-scanner-tags @@ -12508,16 +12508,16 @@ Inherited tags have the `inherited' text property= ." (defvar org-agenda-skip-comment-trees) (defvar org-agenda-skip-function) (defun org-map-entries (func &optional match scope &rest skip) - "Call FUNC at each headline selected by MATCH in SCOPE. + "Call FUNC at each heading selected by MATCH in SCOPE. =20 FUNC is a function or a Lisp form. The function will be called without -arguments, with the cursor positioned at the beginning of the headline. +arguments, with the cursor positioned at the beginning of the heading. The return values of all calls to the function will be collected and returned as a list. =20 The call to FUNC will be wrapped into a `save-excursion' form, so FUNC does not need to preserve point. After evaluation, the cursor will be -moved to the end of the line (presumably of the headline of the +moved to the end of the line (presumably of the heading of the processed entry) and search continues from there. Under some circumstances, this may not produce the wanted results. For example, if you have removed (e.g. archived) the current (sub)tree it could @@ -12527,8 +12527,8 @@ FUNC set the variable `org-map-continue-from' to th= e desired buffer position. =20 MATCH is a tags/property/todo match as it is used in the agenda tags view. -Only headlines that are matched by this query will be considered during -the iteration. When MATCH is nil or t, all headlines will be +Only headings that are matched by this query will be considered during +the iteration. When MATCH is nil or t, all headings will be visited by the iteration. =20 SCOPE determines the scope of this command. It can be any of: @@ -12681,7 +12681,7 @@ Modifications are made by side-effect. Return new = alist." (defun org-get-property-block (&optional beg force) "Return the (beg . end) range of the body of the property drawer. BEG is the beginning of the current subtree or the beginning of -the document if before the first headline. If it is not given, +the document if before the first heading. If it is not given, it will be found. If the drawer does not exist, create it if FORCE is non-nil, or return nil." (org-with-wide-buffer @@ -13423,7 +13423,7 @@ Point is left between drawer's boundaries." (beginning-of-line) (when (save-excursion (re-search-forward org-outline-regexp-bol rend t)) - (user-error "Drawers cannot contain headlines")) + (user-error "Drawers cannot contain headings")) ;; Position point at the beginning of the first ;; non-blank line in region. Insert drawer's opening ;; there, then indent it. @@ -13757,8 +13757,8 @@ a priority cookie and tags in the standard location= s." (move-marker (make-marker) (match-beginning 0)))))))) =20 (defun org-find-exact-heading-in-directory (heading &optional dir) - "Find Org node headline HEADING in all \".org\" files in directory DIR. -When the target headline is found, return a marker to this location." + "Find Org node heading HEADING in all \".org\" files in directory DIR. +When the target heading is found, return a marker to this location." (let ((files (directory-files (or dir default-directory) t "\\`[^.#].*\\.org\\'")) visiting m buffer) @@ -16844,9 +16844,9 @@ The detailed reaction depends on the user option `o= rg-catch-invisible-edits'." (user-error "Edit in invisible region aborted, repeat to confirm with= text visible")))))))) =20 (defun org-fix-tags-on-the-fly () - "Align tags in headline at point. + "Align tags in heading at point. Unlike `org-align-tags', this function does nothing if point is -either not currently on a tagged headline or on a tag." +either not currently on a tagged heading or on a tag." (when (and (org-match-line org-tag-line-re) (< (point) (match-beginning 1))) (org-align-tags))) @@ -16976,7 +16976,7 @@ cycling) will not occur.") "Hook for functions to attach themselves to TAB. See `org-ctrl-c-ctrl-c-hook' for more information. This hook runs after it has been established that the cursor is not in a -table, but before checking if the cursor is in a headline or if global cyc= ling +table, but before checking if the cursor is in a heading or if global cycl= ing should be done. If any function in this hook returns t, not other actions like visibility cycling will be done.") @@ -17052,13 +17052,13 @@ See `org-ctrl-c-ctrl-c-hook' for more information= .") =20 (defun org-modifier-cursor-error () "Throw an error, a modified cursor command was applied in wrong context." - (user-error "This command is active in special context like tables, head= lines or items")) + (user-error "This command is active in special context like tables, head= ings or items")) =20 (defun org-shiftselect-error () "Throw an error because Shift-Cursor command was applied in wrong contex= t." (if (and (boundp 'shift-select-mode) shift-select-mode) (user-error "To use shift-selection with Org mode, customize `org-su= pport-shift-select'") - (user-error "This command works only in special context like headlines= or timestamps"))) + (user-error "This command works only in special context like headings = or timestamps"))) =20 (defun org-call-for-shift-select (cmd) (let ((this-command-keys-shift-translated t)) @@ -17218,7 +17218,7 @@ and returns at first non-nil value." (t (call-interactively 'forward-word)))) =20 (defun org-check-for-hidden (what) - "Check if there are hidden headlines/items in the current visual line. + "Check if there are hidden headings/items in the current visual line. WHAT can be either `headlines' or `items'. If the current line is an outline or item heading and it has a folded subtree below it, this function returns t, nil otherwise." @@ -17371,7 +17371,7 @@ individual commands for more information." This does one of the following: =20 - switch a timestamp at point one day into the future -- on a headline, switch to the next TODO keyword +- on a heading, switch to the next TODO keyword - on an item, switch entire list to the next bullet type - on a property line, switch to the next allowed value - on a clocktable definition line, move time block into the future @@ -17411,7 +17411,7 @@ This does one of the following: This does one of the following: =20 - switch a timestamp at point one day into the past -- on a headline, switch to the previous TODO keyword. +- on a heading, switch to the previous TODO keyword. - on an item, switch entire list to the previous bullet type - on a property line, switch to the previous allowed value - on a clocktable definition line, move time block into the past @@ -17638,7 +17638,7 @@ Otherwise, return a user error." (_ (user-error "No special environment to edit here")))))))) =20 (defun org-ctrl-c-ctrl-c (&optional arg) - "Set tags in headline, or update according to changed information at poi= nt. + "Set tags in heading, or update according to changed information at poin= t. =20 This command does many different things, depending on context: =20 @@ -17651,7 +17651,7 @@ This command does many different things, depending = on context: =20 - If the cursor is on a statistics cookie, update it. =20 -- If the cursor is in a headline, in an agenda or an org buffer, +- If the cursor is in a heading, in an agenda or an org buffer, prompt for tags and insert them into the current line, aligned to `org-tags-column'. When called with prefix arg, realign all tags in the current buffer. @@ -17937,7 +17937,7 @@ Move point to the beginning of first heading or end= of buffer." (defun org-delete-indentation (&optional arg) "Join current line to previous and fix whitespace at join. =20 -If previous line is a headline add to headline title. Otherwise +If previous line is a heading add to heading title. Otherwise the function calls `delete-indentation'. =20 I.e. with a non-nil optional argument, join the line with the @@ -18136,8 +18136,8 @@ point into heading. =20 In a region: =20 -- If the first non blank line is a headline, remove the stars - from all headlines in the region. +- If the first non blank line is a heading, remove the stars + from all headings in the region. =20 - If it is a normal line, turn each and every normal line (i.e., not an heading or an item) in the region into headings. If you @@ -18756,11 +18756,11 @@ Each context entry is a list with a symbol naming= the context, and two positions indicating start and end of the context. Possible contexts are: =20 -:headline anywhere in a headline -:headline-stars on the leading stars in a headline -:todo-keyword on a TODO keyword (including DONE) in a headline -:tags on the TAGS in a headline -:priority on the priority cookie in a headline +:headline anywhere in a heading +:headline-stars on the leading stars in a heading +:todo-keyword on a TODO keyword (including DONE) in a heading +:tags on the TAGS in a heading +:priority on the priority cookie in a heading :item on the first line of a plain list item :item-bullet on the bullet/number of a plain list item :checkbox on the checkbox in a plain list item @@ -18873,7 +18873,7 @@ and :keyword." Also return a non-nil value when point is on one of the matches. =20 Optional arguments LIM-UP and LIM-DOWN bound the search; they are -buffer positions. Default values are the positions of headlines +buffer positions. Default values are the positions of headings surrounding the point. =20 The functions returns a cons cell whose car (resp. cdr) is the @@ -19011,7 +19011,7 @@ earliest time on the cursor date that Org treats as= that date "Mark the current subtree. This puts point at the start of the current subtree, and mark at the end. If a numeric prefix UP is given, move up into the -hierarchy of headlines by UP levels before marking the subtree." +hierarchy of headings by UP levels before marking the subtree." (interactive "P") (org-with-limited-levels (cond ((org-at-heading-p) (beginning-of-line)) @@ -19148,7 +19148,7 @@ Alignment is done according to `org-property-format= ', which see." =20 Indentation is done according to the following rules: =20 - - Footnote definitions, diary sexps, headlines and inline tasks + - Footnote definitions, diary sexps, headings and inline tasks have to start at column 0. =20 - On the very first line of an element, consider, in order, the @@ -20179,10 +20179,10 @@ package ox-bibtex by Taru Karttunen." (defun org-beginning-of-line (&optional n) "Go to the beginning of the current visible line. =20 -If this is a headline, and `org-special-ctrl-a/e' is not nil or +If this is a heading, and `org-special-ctrl-a/e' is not nil or symbol `reversed', on the first attempt move to where the -headline text starts, and only move to beginning of line when the -cursor is already before the start of the text of the headline. +heading text starts, and only move to beginning of line when the +cursor is already before the start of the text of the heading. =20 If `org-special-ctrl-a/e' is symbol `reversed' then go to the start of the text on the second attempt. @@ -20242,10 +20242,10 @@ With argument N not nil or 1, move forward N - 1 = lines first." (defun org-end-of-line (&optional n) "Go to the end of the line, but before ellipsis, if any. =20 -If this is a headline, and `org-special-ctrl-a/e' is not nil or +If this is a heading, and `org-special-ctrl-a/e' is not nil or symbol `reversed', ignore tags on the first attempt, and only move to after the tags when the cursor is already beyond the end -of the headline. +of the heading. =20 If `org-special-ctrl-a/e' is symbol `reversed' then ignore tags on the second attempt. @@ -20362,7 +20362,7 @@ depending on context." (when (and (get-char-property (line-end-position) 'invisible) org-ctrl-k-protect-subtree (or (eq org-ctrl-k-protect-subtree 'error) - (not (y-or-n-p "Kill hidden subtree along with headline? ")))) + (not (y-or-n-p "Kill hidden subtree along with heading? ")))) (user-error (substitute-command-keys "`\\[org-kill-line]' aborted as it would kill a hidden subtree"))) @@ -20385,7 +20385,7 @@ depending on context." This command will look at the current kill and check if is a single subtree, or a series of subtrees[1]. If it passes the test, and if the cursor is at the beginning of a line or after the stars of a currently -empty headline, then the yank is handled specially. How exactly depends +empty heading, then the yank is handled specially. How exactly depends on the value of the following variables. =20 `org-yank-folded-subtrees' @@ -20487,7 +20487,7 @@ interactive command with similar behavior." (condition-case nil (outline-back-to-heading invisible-ok) (error - (user-error "Before first headline at position %d in buffer %s" + (user-error "Before first heading at position %d in buffer %s" (point) (current-buffer))))) =20 (defun org-back-to-heading-or-point-min (&optional invisible-ok) @@ -20507,12 +20507,12 @@ instead of back to heading." (null (re-search-backward org-outline-regexp-bol nil t))))) =20 (defun org-at-heading-p (&optional _) - "Non-nil when on a headline." + "Non-nil when on a heading." (outline-on-heading-p t)) =20 (defun org-in-commented-heading-p (&optional no-inheritance) "Non-nil if point is under a commented heading. -This function also checks ancestors of the current headline, +This function also checks ancestors of the current heading, unless optional argument NO-INHERITANCE is non-nil." (cond ((org-before-first-heading-p) nil) @@ -20527,7 +20527,7 @@ unless optional argument NO-INHERITANCE is non-nil." =20 (defun org-in-archived-heading-p (&optional no-inheritance) "Non-nil if point is under an archived heading. -This function also checks ancestors of the current headline, +This function also checks ancestors of the current heading, unless optional argument NO-INHERITANCE is non-nil." (cond ((org-before-first-heading-p) nil) @@ -20564,7 +20564,7 @@ unless optional argument NO-INHERITANCE is non-nil." (looking-at org-block-regexp))) =20 (defun org-point-at-end-of-empty-headline () - "If point is at the end of an empty headline, return t, else nil. + "If point is at the end of an empty heading, return t, else nil. If the heading only contains a TODO keyword, it is still considered empty." (let ((case-fold-search nil)) @@ -20591,7 +20591,7 @@ With argument, move up ARG levels." (defun org-up-heading-safe () "Move to the heading line of which the present line is a subheading. This version will not throw an error. It will return the level of the -headline found, or nil if no higher level is found. +heading found, or nil if no higher level is found. =20 Also, this function will be a lot faster than `outline-up-heading', because it relies on stars being the outline starters. This can really @@ -20624,8 +20624,8 @@ make a significant difference in outlines with very= many siblings." "Move to the heading line of which the present is a subheading, or point= -min. This version is needed to make point-min behave like a virtual heading of level 0 for property-inheritance. It will return the -level of the headline found (down to 0) or nil if already at a -point before the first headline or at point-min." +level of the heading found (down to 0) or nil if already at a +point before the first heading or at point-min." (when (ignore-errors (org-back-to-heading t)) (if (< 1 (funcall outline-level)) (org-up-heading-safe) @@ -20666,7 +20666,7 @@ move point." nil)))) =20 (defun org-show-siblings () - "Show all siblings of the current headline." + "Show all siblings of the current heading." (save-excursion (while (org-goto-sibling) (org-flag-heading nil))) (save-excursion @@ -21454,7 +21454,7 @@ Started from `gnus-info-find-node'." (export-block . "(org) ASCII/Latin-1/UTF-8 export") (fixed-width . ,default-org-info-node) (footnote-definition . "(org) Creating Footnotes") - (headline . "(org) Document Structure") + (heading . "(org) Document Structure") (horizontal-rule . "(org) Built-in Table Editor") (inlinetask . ,default-org-info-node) (item . "(org) Plain Lists") diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index a18cf5e31..185f1fe1f 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -172,7 +172,7 @@ This number includes margin size, as set in =20 (defcustom org-ascii-inner-margin 2 "Width of the inner margin, in number of characters. -Inner margin is applied between each headline." +Inner margin is applied between each heading." :group 'org-export-ascii :version "24.4" :package-version '(Org . "8.0") @@ -205,10 +205,10 @@ This number ignores any margin." :type 'integer) =20 (defcustom org-ascii-headline-spacing '(1 . 2) - "Number of blank lines inserted around headlines. + "Number of blank lines inserted around headings. =20 This variable can be set to a cons cell. In that case, its car -represents the number of blank lines present before headline +represents the number of blank lines present before heading contents whereas its cdr reflects the number of blank lines after contents. =20 @@ -273,8 +273,8 @@ and whose value is a list of characters. =20 For each supported charset, this variable associates a sequence of underline characters. In a sequence, the characters will be -used in order for headlines level 1, 2, ... If no character is -available for a given level, the headline won't be underlined." +used in order for headings level 1, 2, ... If no character is +available for a given level, the heading won't be underlined." :group 'org-export-ascii :version "24.4" :package-version '(Org . "8.0") @@ -292,7 +292,7 @@ available for a given level, the headline won't be unde= rlined." (defcustom org-ascii-bullets '((ascii ?* ?+ ?-) (latin1 ?=C2=A7 ?=C2=B6) (utf-8 ?=E2=97=8A)) - "Bullet characters for headlines converted to lists in ASCII export. + "Bullet characters for headings converted to lists in ASCII export. =20 Alist whose key is a symbol among `ascii', `latin1' and `utf-8' and whose value is a list of characters. @@ -307,18 +307,18 @@ representation." :version "24.4" :package-version '(Org . "8.0") :type '(list - (cons :tag "Bullet characters for low level headlines" + (cons :tag "Bullet characters for low level headings" (const :tag "ASCII charset" ascii) (repeat character)) - (cons :tag "Bullet characters for low level headlines" + (cons :tag "Bullet characters for low level headings" (const :tag "Latin-1 charset" latin1) (repeat character)) - (cons :tag "Bullet characters for low level headlines" + (cons :tag "Bullet characters for low level headings" (const :tag "UTF-8 charset" utf-8) (repeat character)))) =20 (defcustom org-ascii-links-to-notes t - "Non-nil means convert links to notes before the next headline. + "Non-nil means convert links to notes before the next heading. When nil, the link will be exported in place. If the line becomes long in this way, it will be wrapped." :group 'org-export-ascii @@ -857,7 +857,7 @@ generation. INFO is a plist used as a communication ch= annel." =20 (defun org-ascii--unique-links (element info) "Return a list of unique link references in ELEMENT. -ELEMENT is either a headline element or a section element. INFO +ELEMENT is either a heading element or a section element. INFO is a plist used as a communication channel." (let* (seen (unique-link-p @@ -2104,7 +2104,7 @@ asynchronously. The resulting buffer should be acces= sible through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -2139,7 +2139,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index dd7c3555c..fbed11f58 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -53,21 +53,21 @@ :version "24.2") =20 (defcustom org-beamer-frame-level 1 - "The level at which headlines become frames. + "The level at which headings become frames. =20 Headlines at a lower level will be translated into a sectioning structure. At a higher level, they will be translated into blocks. =20 -If a headline with a \"BEAMER_env\" property set to \"frame\" is +If a heading with a \"BEAMER_env\" property set to \"frame\" is found within a tree, its level locally overrides this number. =20 -This variable has no effect on headlines with the \"BEAMER_env\" +This variable has no effect on headings with the \"BEAMER_env\" property set to either \"ignoreheading\", \"appendix\", or \"note\", which will respectively, be invisible, become an appendix or a note. =20 -This integer is relative to the minimal level of a headline +This integer is relative to the minimal level of a heading within the parse tree, defined as 1." :group 'org-export-beamer :type 'integer) @@ -109,10 +109,10 @@ open The opening template for the environment, wit= h the following escapes %R the raw BEAMER_act value %o the options argument, with square brackets %O the raw BEAMER_opt value - %h the headline text - %r the raw headline text (i.e. without any processing) - %H if there is headline text, that raw text in {} braces - %U if there is headline text, that raw text in [] brackets + %h the heading text + %r the raw heading text (i.e. without any processing) + %H if there is heading text, that raw text in {} braces + %U if there is heading text, that raw text in [] brackets close The closing string of the environment." :group 'org-export-beamer :version "24.4" @@ -972,7 +972,7 @@ asynchronously. The resulting buffer should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -1007,7 +1007,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -1041,7 +1041,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 163d96ade..7acf82418 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -223,8 +223,8 @@ "progress" "section" "summary" "video") "New elements in html5. =20 -For blocks that should contain headlines, use the HTML_CONTAINER -property on the headline itself.") +For blocks that should contain headings, use the HTML_CONTAINER +property on the heading itself.") =20 (defconst org-html-special-string-regexps '(("\\\\-" . "­") ; shy @@ -693,8 +693,8 @@ by the footnotes themselves." =20 (defcustom org-html-toplevel-hlevel 2 "The level for level 1 headings in HTML export. -This is also important for the classes that will be wrapped around headlin= es -and outline structure. If this variable is 1, the top-level headlines will +This is also important for the classes that will be wrapped around headings +and outline structure. If this variable is 1, the top-level headings will be

, and the corresponding classes will be outline-1, section-number-1, and outline-text-1. If this is 2, all of these will get a 2 instead. The default for this variable is 2, because we use

for formatting the @@ -704,13 +704,13 @@ document title." =20 (defcustom org-html-format-headline-function 'org-html-format-headline-default-function - "Function to format headline text. + "Function to format heading text. =20 This function will be called with six arguments: TODO the todo keyword (string or nil). TODO-TYPE the type of todo (symbol: `todo', `done', nil) -PRIORITY the priority of the headline (integer or nil) -TEXT the main headline text (string). +PRIORITY the priority of the heading (integer or nil) +TEXT the main heading text (string). TAGS the tags (string or nil). INFO the export options (plist). =20 @@ -732,7 +732,7 @@ but without \"name\" attribute." :type 'boolean) =20 (defcustom org-html-self-link-headlines nil - "When non-nil, the headlines contain a hyperlink to themselves." + "When non-nil, the headings contain a hyperlink to themselves." :group 'org-export-html :package-version '(Org . "9.3") :type 'boolean @@ -1650,7 +1650,7 @@ DATUM is an element or a `target' type object. INFO = is the current export state, as a plist. =20 When NAMED-ONLY is non-nil and DATUM has no NAME keyword, return -nil. This doesn't apply to headlines, inline tasks, radio +nil. This doesn't apply to headings, inline tasks, radio targets and targets." (let* ((type (org-element-type datum)) (user-label @@ -2675,7 +2675,7 @@ holding contextual information." =20 (defun org-html-format-headline-default-function (todo _todo-type priority text tags info) - "Default format function for a headline. + "Default format function for a heading. See `org-html-format-headline-function' for details." (let ((todo (org-html--todo todo info)) (priority (org-html--priority priority info)) @@ -3799,7 +3799,7 @@ asynchronously. The resulting buffer should be acces= sible through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -3844,7 +3844,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index e82a55645..b293636e0 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -212,7 +212,7 @@ These are entries like in the diary, but directly in an= Org file." :type 'boolean) =20 (defcustom org-icalendar-include-body t - "Amount of text below headline to be included in iCalendar export. + "Amount of text below heading to be included in iCalendar export. This is a number of characters that should maximally be included. Properties, scheduling and clocking lines will always be removed. The text will be inserted into the DESCRIPTION field." @@ -315,7 +315,7 @@ re-read the iCalendar file.") ;;; Internal Functions =20 (defun org-icalendar-create-uid (file &optional bell) - "Set ID property on headlines missing it in FILE. + "Set ID property on headings missing it in FILE. When optional argument BELL is non-nil, inform the user with a message if the file was modified." (let (modified-flag) @@ -442,7 +442,7 @@ format (e.g. \"Europe/London\"). In either case, the v= alue of =20 (defun org-icalendar-get-categories (entry info) "Return categories according to `org-icalendar-categories'. -ENTRY is a headline or an inlinetask element. INFO is a plist +ENTRY is a heading or an inlinetask element. INFO is a plist used as a communication channel." (mapconcat #'identity @@ -539,10 +539,10 @@ BACK-END and INFO are ignored." (defun org-icalendar-entry (entry contents info) "Transcode ENTRY element into iCalendar format. =20 -ENTRY is either a headline or an inlinetask. CONTENTS is +ENTRY is either a heading or an inlinetask. CONTENTS is ignored. INFO is a plist used as a communication channel. =20 -This function is called on every headline, the section below +This function is called on every heading, the section below it (minus inlinetasks) being its contents. It tries to create VEVENT and VTODO components out of scheduled date, deadline date, plain timestamps, diary sexps. It also calls itself on every @@ -683,7 +683,7 @@ inlinetask within the section." (entry timestamp uid summary location description categories timezone = class) "Create a VEVENT component. =20 -ENTRY is either a headline or an inlinetask element. TIMESTAMP +ENTRY is either a heading or an inlinetask element. TIMESTAMP is a timestamp object defining the date-time of the event. UID is the unique identifier for the event. SUMMARY defines a short summary or subject for the event. LOCATION defines the intended @@ -725,7 +725,7 @@ Return VEVENT component as a string." (entry uid summary location description categories timezone class) "Create a VTODO component. =20 -ENTRY is either a headline or an inlinetask element. UID is the +ENTRY is either a heading or an inlinetask element. UID is the unique identifier for the task. SUMMARY defines a short summary or subject for the task. LOCATION defines the intended venue for the task. DESCRIPTION provides the complete description of the @@ -862,7 +862,7 @@ asynchronously. The resulting file should be accessibl= e through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index 6cb8e0cda..50ef8c04e 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -249,7 +249,7 @@ Moreover, when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or there is no LOCATION keyword or the LOCATION keyword is empty; - (2) the letter contains a headline with the special + (2) the letter contains a heading with the special tag \"location\"; then the location will be set as the content of the location special heading. @@ -266,9 +266,9 @@ when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or the CLOSING keyword is empty (2) `org-koma-letter-headline-is-opening-maybe' is non-nil; - (3) the letter contains a headline without a special + (3) the letter contains a heading without a special tag (e.g. \"to\" or \"ps\"); -then the opening will be implicitly set as the untagged headline title." +then the opening will be implicitly set as the untagged heading title." :type 'string) =20 (defcustom org-koma-letter-closing "" @@ -278,7 +278,7 @@ when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or the CLOSING keyword is empty; (2) `org-koma-letter-headline-is-opening-maybe' is non-nil; - (3) the letter contains a headline with the special + (3) the letter contains a heading with the special tag \"closing\"; then the opening will be set as the title of the closing special heading title." @@ -291,7 +291,7 @@ Moreover, when: (1) Either `org-koma-letter-prefer-special-headings' is non-nil or there is no CLOSING keyword or the CLOSING keyword is empty; (2) `org-koma-letter-headline-is-opening-maybe' is non-nil; - (3) the letter contains a headline with the special + (3) the letter contains a heading with the special tag \"closing\"; then the signature will be set as the content of the closing special heading. @@ -300,7 +300,7 @@ Note if the content is empty the signature will not be = set." :type 'string) =20 (defcustom org-koma-letter-prefer-special-headings nil - "Non-nil means prefer headlines over keywords for TO and FROM. + "Non-nil means prefer headings over keywords for TO and FROM. This option can also be set with the OPTIONS keyword, e.g.: \"special-headings:t\"." :type 'boolean) @@ -436,7 +436,7 @@ The value must be a member of `org-latex-classes'." :type 'string) =20 (defcustom org-koma-letter-headline-is-opening-maybe t - "Non-nil means a headline may be used as an opening and closing. + "Non-nil means a heading may be used as an opening and closing. See also `org-koma-letter-opening' and `org-koma-letter-closing'." :type 'boolean) @@ -546,7 +546,7 @@ e.g. \"title-subject:t\"." ;; Thanks, Luis! =20 (defun org-koma-letter--get-tagged-contents (key) - "Get contents from a headline tagged with KEY. + "Get contents from a heading tagged with KEY. The contents is stored in `org-koma-letter-special-contents'." (let ((value (cdr (assoc-string (org-koma-letter--get-value key) org-koma-letter-special-contents)))) @@ -655,8 +655,8 @@ special tag headline." (defun org-koma-letter--keyword-or-headline (plist-key pred info) "Return the correct version of opening or closing. PLIST-KEY should be a key in info, typically :opening -or :closing. PRED is a predicate run on headline to determine -which title to use which takes two arguments, a headline element +or :closing. PRED is a predicate run on heading to determine +which title to use which takes two arguments, a heading element and an info plist. INFO is a plist holding contextual information. Return the preferred candidate for the exported of PLIST-KEY." @@ -888,7 +888,7 @@ asynchronously. The resulting buffer should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -925,7 +925,7 @@ asynchronously. The resulting file should be accessibl= e through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -963,7 +963,7 @@ asynchronously. The resulting file should be accessibl= e through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 17698601d..ee627f780 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -363,7 +363,7 @@ advance. One reason to do this is that it allows you t= o refer to various elements using a single label both in Org's link syntax and in embedded LaTeX code. =20 -For example, when this variable is non-nil, a headline like this: +For example, when this variable is non-nil, a heading like this: =20 ** Some section :PROPERTIES: @@ -394,7 +394,7 @@ numbers, and the following punctuation: `_' `.' `-' `:'= .) There are no such limitations on CUSTOM_ID and NAME when this variable is nil. =20 -For headlines that do not define the CUSTOM_ID property or +For headings that do not define the CUSTOM_ID property or elements without a NAME, Org will continue to use its default labeling scheme to generate labels and resolve links into proper references." @@ -533,8 +533,8 @@ should have a %s to represent the section title. =20 Instead of a list of sectioning commands, you can also specify a function name. That function will be called with two -parameters, the (reduced) level of the headline, and a predicate -non-nil when the headline should be numbered. It must return +parameters, the (reduced) level of the heading, and a predicate +non-nil when the heading should be numbered. It must return a format string in which the section title will be added." :group 'org-export-latex :type '(repeat @@ -647,13 +647,13 @@ precedence over this variable." =20 (defcustom org-latex-format-headline-function 'org-latex-format-headline-default-function - "Function for formatting the headline's text. + "Function for formatting the heading's text. =20 This function will be called with six arguments: TODO the todo keyword (string or nil) TODO-TYPE the type of todo (symbol: `todo', `done', nil) -PRIORITY the priority of the headline (integer or nil) -TEXT the main headline text (string) +PRIORITY the priority of the heading (integer or nil) +TEXT the main heading text (string) TAGS the tags (list of strings or nil) INFO the export options (plist) =20 @@ -2084,7 +2084,7 @@ holding contextual information." =20 (defun org-latex-format-headline-default-function (todo _todo-type priority text tags _info) - "Default format function for a headline. + "Default format function for a heading. See `org-latex-format-headline-function' for details." (concat (and todo (format "{\\bfseries\\sffamily %s} " todo)) @@ -3612,7 +3612,7 @@ asynchronously. The resulting buffer should be acces= sible through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -3656,7 +3656,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -3688,7 +3688,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-man.el b/lisp/ox-man.el index b825dc67b..59ddaf284 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -1066,7 +1066,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -1099,7 +1099,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 5a407048a..fa0247ca0 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -44,7 +44,7 @@ :package-version '(Org . "8.0")) =20 (defcustom org-md-headline-style 'atx - "Style used to format headlines. + "Style used to format headings. This variable can be set to either `atx' or `setext'." :group 'org-export-md :type '(choice @@ -201,9 +201,9 @@ of contents can refer to headlines." info t)))) =20 (defun org-md--headline-title (style level title &optional anchor tags) - "Generate a headline title in the preferred Markdown headline style. + "Generate a heading title in the preferred Markdown heading style. STYLE is the preferred style (`atx' or `setext'). LEVEL is the -header level. TITLE is the headline title. ANCHOR is the HTML +header level. TITLE is the heading title. ANCHOR is the HTML anchor tag for the section as a string. TAGS are the tags set on the section." (let ((anchor-lines (and anchor (concat anchor "\n\n")))) @@ -719,7 +719,7 @@ asynchronously. The resulting buffer should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -756,7 +756,7 @@ asynchronously. The resulting file should be accessibl= e through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 60660e9ab..a506658b1 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -654,16 +654,16 @@ The default value simply returns the value of CONTENT= S." =20 (defcustom org-odt-format-headline-function 'org-odt-format-headline-default-function - "Function to format headline text. + "Function to format heading text. =20 This function will be called with 5 arguments: TODO the todo keyword (string or nil). TODO-TYPE the type of todo (symbol: `todo', `done', nil) -PRIORITY the priority of the headline (integer or nil) -TEXT the main headline text (string). +PRIORITY the priority of the heading (integer or nil) +TEXT the main heading text (string). TAGS the tags string, separated with colons (string or nil). =20 -The function result will be used as headline text." +The function result will be used as heading text." :group 'org-export-odt :version "26.1" :package-version '(Org . "8.3") @@ -1852,7 +1852,7 @@ holding contextual information." =20 (defun org-odt-format-headline-default-function (todo todo-type priority text tags) - "Default format function for a headline. + "Default format function for a heading. See `org-odt-format-headline-function' for details." (concat ;; Todo. @@ -4152,7 +4152,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 3fe836e7e..842c3668b 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -112,13 +112,13 @@ setting of `org-html-htmlize-output-type' is `css'." :filters-alist '((:filter-parse-tree . org-org--add-missing-sections))) =20 (defun org-org--add-missing-sections (tree _backend _info) - "Ensure each headline has an associated section. + "Ensure each heading has an associated section. =20 TREE is the parse tree being exported. =20 -Footnotes relative to the headline are inserted in the section, +Footnotes relative to the heading are inserted in the section, using `org-org-section'. However, this function is not called if -the headline doesn't contain any section in the first place, so +the heading doesn't contain any section in the first place, so we make sure it is always called." (org-element-map tree 'headline (lambda (h) @@ -252,7 +252,7 @@ asynchronously. The resulting buffer should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -287,7 +287,7 @@ asynchronously. The resulting file should be accessibl= e through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 774ad27e4..711573486 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1025,7 +1025,7 @@ The index relative to current file is stored as an al= ist. An association has the following shape: (TERM FILE-NAME PARENT), where TERM is the indexed term, as a string, FILE-NAME is the original full path of the file where the term in encountered, and -PARENT is a reference to the headline, if any, containing the +PARENT is a reference to the heading, if any, containing the original index keyword. When non-nil, this reference is a cons cell. Its CAR is a symbol among `id', `custom-id' and `name' and its CDR is a string." @@ -1161,7 +1161,7 @@ option, e.g., [[file:file.org::#custom-id][description]] [[file:file.org::fuzzy][description]] =20 -When PREFER-CUSTOM is non-nil, and SEARCH targets a headline in +When PREFER-CUSTOM is non-nil, and SEARCH targets a heading in FILE, return its custom ID, if any. =20 It only makes sense to use this if export back-end builds diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index b0dad2541..5eef93353 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -213,13 +213,13 @@ section string and will be replaced by the title of t= he section." =20 (defcustom org-texinfo-format-headline-function 'org-texinfo-format-headline-default-function - "Function to format headline text. + "Function to format heading text. =20 This function will be called with 5 arguments: TODO the todo keyword (string or nil). TODO-TYPE the type of todo (symbol: `todo', `done', nil) -PRIORITY the priority of the headline (integer or nil) -TEXT the main headline text (string). +PRIORITY the priority of the heading (integer or nil) +TEXT the main heading text (string). TAGS the tags as a list of strings (list of strings or nil). =20 The function result will be used in the section format string." @@ -419,12 +419,12 @@ If two strings share the same prefix (e.g. \"ISO-8859= -1\" and (replace-regexp-in-string "\n\\(?:\n[ \t]*\\)*\\'" "\n\n" headline)) =20 (defun org-texinfo--normalize-headlines (tree _backend info) - "Normalize headlines in TREE. + "Normalize headings in TREE. =20 BACK-END is the symbol specifying back-end used for export. INFO is a plist used as a communication channel. =20 -Make sure every headline in TREE contains a section, since those +Make sure every heading in TREE contains a section, since those are required to install a menu. Also put exactly one blank line at the end of each section. =20 @@ -467,7 +467,7 @@ INFO is a plist used as a communication channel. See =20 (defun org-texinfo--get-node (datum info) "Return node or anchor associated to DATUM. -DATUM is a headline, a radio-target or a target. INFO is a plist +DATUM is a heading, a radio-target or a target. INFO is a plist used as a communication channel. The function guarantees the node or anchor name is unique." (let ((cache (plist-get info :texinfo-node-cache))) @@ -929,7 +929,7 @@ holding contextual information." =20 (defun org-texinfo-format-headline-default-function (todo _todo-type priority text tags) - "Default format function for a headline. + "Default format function for a heading. See `org-texinfo-format-headline-function' for details." (concat (and todo (format "@strong{%s} " todo)) (and priority (format "@emph{#%s} " priority)) @@ -1153,7 +1153,7 @@ current state of the export, as a plist." (defun org-texinfo-make-menu (scope info &optional master) "Create the menu for inclusion in the Texinfo document. =20 -SCOPE is a headline or a full parse tree. INFO is the +SCOPE is a heading or a full parse tree. INFO is the communication channel, as a plist. =20 When optional argument MASTER is non-nil, generate a master menu, @@ -1179,7 +1179,7 @@ including detailed node listing." =20 (defun org-texinfo--build-menu (scope info &optional level) "Build menu for entries within SCOPE. -SCOPE is a headline or a full parse tree. INFO is a plist +SCOPE is a heading or a full parse tree. INFO is a plist containing contextual information. When optional argument LEVEL is an integer, build the menu recursively, down to this depth." (cond @@ -1201,7 +1201,7 @@ is an integer, build the menu recursively, down to th= is depth." =20 (defun org-texinfo--format-entries (entries info) "Format all direct menu entries in SCOPE, as a string. -SCOPE is either a headline or a full Org document. INFO is +SCOPE is either a heading or a full Org document. INFO is a plist containing contextual information." (org-element-normalize-string (mapconcat @@ -1225,7 +1225,7 @@ a plist containing contextual information." =20 (defun org-texinfo--menu-entries (scope info) "List direct children in SCOPE needing a menu entry. -SCOPE is a headline or a full parse tree. INFO is a plist +SCOPE is a heading or a full parse tree. INFO is a plist holding contextual information." (let* ((cache (or (plist-get info :texinfo-entries-cache) (plist-get (plist-put info :texinfo-entries-cache @@ -1628,7 +1628,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -1679,7 +1679,7 @@ asynchronously. The resulting file should be accessi= ble through the `org-export-stack' interface. =20 When optional argument SUBTREEP is non-nil, export the sub-tree -at point, extracting information from the headline properties +at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export diff --git a/lisp/ox.el b/lisp/ox.el index b367def86..da8cc1475 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -100,7 +100,7 @@ ;; options, shared between every exporter, and how they are acquired. =20 (defconst org-export-max-depth 19 - "Maximum nesting depth for headlines, counting from 0.") + "Maximum nesting depth for headings, counting from 0.") =20 (defconst org-export-options-alist '((:title "TITLE" nil nil parse) @@ -339,14 +339,14 @@ according to the back-end used.") This can have three different values: nil Do not export, pretend this tree is not present. t Do export the entire tree. -`headline' Only export the headline, but skip the tree below it. +`headline' Only export the heading, but skip the tree below it. =20 This option can also be set with the OPTIONS keyword, e.g. \"arch:nil\"." :group 'org-export-general :type '(choice (const :tag "Not at all" nil) - (const :tag "Headline only" headline) + (const :tag "Heading only" headline) (const :tag "Entirely" t)) :safe (lambda (x) (memq x '(t nil headline)))) =20 @@ -509,7 +509,7 @@ t Allow export of math snippets." :safe (lambda (x) (memq x '(t nil verbatim)))) =20 (defcustom org-export-headline-levels 3 - "The last level which is still exported as a headline. + "The last level which is still exported as a heading. =20 Inferior levels will usually produce itemize or enumerate lists when exported, but back-end behavior may differ. @@ -605,10 +605,10 @@ e.g. \"prop:t\"." (and (listp x) (cl-every #'stringp x))))) =20 (defcustom org-export-with-section-numbers t - "Non-nil means add section numbers to headlines when exporting. + "Non-nil means add section numbers to headings when exporting. =20 When set to an integer n, numbering will only happen for -headlines whose relative level is higher or equal to n. +headings whose relative level is higher or equal to n. =20 This option can also be set with the OPTIONS keyword, e.g. \"num:t\"." @@ -714,13 +714,13 @@ frequently in plain text." (defcustom org-export-with-toc t "Non-nil means create a table of contents in exported files. =20 -The table of contents contains headlines with levels up to +The table of contents contains headings with levels up to `org-export-headline-levels'. =20 When this variable is set to an integer N, include levels up to N in the table of contents. Although it may then be different from `org-export-headline-levels', it is cannot be larger than -the number of headline levels. +the number of heading levels. =20 When nil, no table of contents is created. =20 @@ -746,10 +746,10 @@ e.g. \"|:nil\"." :safe #'booleanp) =20 (defcustom org-export-with-tags t - "If nil, do not export tags, just remove them from headlines. + "If nil, do not export tags, just remove them from headings. =20 If this is the symbol `not-in-toc', tags will be removed from -table of contents entries, but still be shown in the headlines of +table of contents entries, but still be shown in the headings of the document. =20 This option can also be set with the OPTIONS keyword, @@ -1623,12 +1623,12 @@ is a list holding export options. =20 Following tree properties are set or updated: =20 -`:headline-offset' Offset between true level of headlines and - local level. An offset of -1 means a headline +`:headline-offset' Offset between true level of headings and + local level. An offset of -1 means a heading of level 2 should be considered as a level - 1 headline in the context. + 1 heading in the context. =20 -`:headline-numbering' Alist of all headlines as key and the +`:headline-numbering' Alist of all headings as key and the associated numbering as value. =20 `:id-alist' Alist of all ID references as key and associated file @@ -1657,7 +1657,7 @@ Return updated plist." (and file (cons id (file-relative-name file)))))))))) =20 (defun org-export--get-min-level (data options) - "Return minimum exportable headline's level in DATA. + "Return minimum exportable heading's level in DATA. DATA is parsed tree as returned by `org-element-parse-buffer'. OPTIONS is a plist holding export options." (catch 'exit @@ -1673,12 +1673,12 @@ OPTIONS is a plist holding export options." (if (=3D min-level 10000) 1 min-level)))) =20 (defun org-export--collect-headline-numbering (data options) - "Return numbering of all exportable, numbered headlines in a parse tree. + "Return numbering of all exportable, numbered headings in a parse tree. =20 DATA is the parse tree. OPTIONS is the plist holding export options. =20 -Return an alist whose key is a headline and value is its +Return an alist whose key is a heading and value is its associated numbering \(in the shape of a list of numbers) or nil for a footnotes section." (let ((numbering (make-vector org-export-max-depth 0))) @@ -1699,7 +1699,7 @@ for a footnotes section." options))) =20 (defun org-export--selected-trees (data info) - "List headlines and inlinetasks with a select tag in their tree. + "List headings and inlinetasks with a select tag in their tree. DATA is parsed data as returned by `org-element-parse-buffer'. INFO is a plist holding export options." (let ((select (cl-mapcan (lambda (tag) (org-tags-expand tag t)) @@ -1740,9 +1740,9 @@ INFO is a plist holding export options." (defun org-export--skip-p (datum options selected excluded) "Non-nil when element or object DATUM should be skipped during export. OPTIONS is the plist holding export options. SELECTED, when -non-nil, is a list of headlines or inlinetasks belonging to +non-nil, is a list of headings or inlinetasks belonging to a tree with a select tag. EXCLUDED is a list of tags, as -strings. Any headline or inlinetask marked with one of those is +strings. Any heading or inlinetask marked with one of those is not exported." (cl-case (org-element-type datum) ((comment comment-block) @@ -2196,7 +2196,7 @@ as a string, the back-end, as a symbol, and the commu= nication channel, as a plist. It must return a string or nil.") =20 (defvar org-export-filter-headline-functions nil - "List of functions applied to a transcoded headline. + "List of functions applied to a transcoded heading. Each filter is called with three arguments: the transcoded data, as a string, the back-end, as a symbol, and the communication channel, as a plist. It must return a string or nil.") @@ -2914,7 +2914,7 @@ narrowed part. If a region is active, transcode that region. =20 When optional argument SUBTREEP is non-nil, transcode the -sub-tree at point, extracting information from the headline +sub-tree at point, extracting information from the heading properties first. =20 When optional argument VISIBLE-ONLY is non-nil, don't export @@ -3423,10 +3423,10 @@ Optional argument IND, when non-nil, is an integer = specifying the global indentation of returned contents. Since its purpose is to allow an included file to stay in the same environment it was created (e.g., a list item), it doesn't apply past the first -headline encountered. +heading encountered. =20 Optional argument MINLEVEL, when non-nil, is an integer -specifying the level that any top-level headline in the included +specifying the level that any top-level heading in the included file should have. =20 Optional argument ID is an integer that will be inserted before @@ -3986,7 +3986,7 @@ When non-nil, optional argument TAGS should be a list= of strings. Any tag belonging to this list will also be removed. =20 When optional argument INHERITED is non-nil, tags can also be -inherited from parent headlines and FILETAGS keywords." +inherited from parent headings and FILETAGS keywords." (cl-remove-if (lambda (tag) (member tag tags)) (if (not inherited) (org-element-property :tags element) @@ -4007,7 +4007,7 @@ PROPERTY is an upcase symbol (e.g., `:COOKIE_DATA'). = DATUM is an element or object. =20 If optional argument INHERITED is non-nil, the value can be -inherited from a parent headline. +inherited from a parent heading. =20 Return value is a string or nil." (let ((headline (if (eq (org-element-type datum) 'headline) datum @@ -4025,7 +4025,7 @@ Return value is a string or nil." =20 INFO is a plist used as a communication channel. =20 -CATEGORY is automatically inherited from a parent headline, from +CATEGORY is automatically inherited from a parent heading, from #+CATEGORY: keyword or created out of original file name. If all fail, the fall-back value is \"???\"." (or (org-export-get-node-property :CATEGORY blob t) @@ -4048,7 +4048,7 @@ If no optional title is defined, fall-back to the reg= ular title." =20 (defun org-export-first-sibling-p (blob info) "Non-nil when BLOB is the first sibling in its parent. -BLOB is an element or an object. If BLOB is a headline, non-nil +BLOB is an element or an object. If BLOB is a heading, non-nil means it is the first sibling in the sub-tree. INFO is a plist used as a communication channel." (memq (org-element-type (org-export-get-previous-element blob info)) @@ -4264,7 +4264,7 @@ A search cell follows the pattern (TYPE . SEARCH) whe= re SEARCH is the string a link is expected to match. More accurately, it is =20 - - headline's title, as a list of strings, if TYPE is + - heading's title, as a list of strings, if TYPE is `headline'. =20 - CUSTOM_ID value, as a string, if TYPE is `custom-id'. @@ -4298,7 +4298,7 @@ ignores white spaces and statistics cookies, if appli= cable." (defun org-export-string-to-search-cell (s) "Return search cells associated to string S. S is either the path of a fuzzy link or a search option, i.e., it -tries to match either a headline (through custom ID or title), +tries to match either a heading (through custom ID or title), a target or a named element." (pcase (string-to-char s) (?* (list (cons 'headline (split-string (substring s 1))))) @@ -4325,7 +4325,7 @@ Return value can be an object or an element: - If LINK path exactly matches the name affiliated keyword (i.e. #+NAME: path) of an element, return that element. =20 -- If LINK path exactly matches any headline name, return that +- If LINK path exactly matches any heading name, return that element. =20 - Otherwise, throw an error. @@ -4367,11 +4367,11 @@ significant." link-cache))))) =20 (defun org-export-resolve-id-link (link info) - "Return headline referenced as LINK destination. + "Return heading referenced as LINK destination. =20 INFO is a plist used as a communication channel. =20 -Return value can be the headline element matched in current parse +Return value can be the heading element matched in current parse tree or a file name. Assume LINK type is either \"id\" or \"custom-id\". Throw an error if no match is found." (let ((id (org-element-property :path link))) @@ -4414,7 +4414,7 @@ INFO is a plist holding contextual information. =20 Return value can be an object or an element: =20 -- If LINK path matches an ID or a custom ID, return the headline. +- If LINK path matches an ID or a custom ID, return the heading. =20 - If LINK path matches a fuzzy link, return its destination. =20 @@ -4543,11 +4543,11 @@ accepts two arguments: the element or object being = considered and the plist used as a communication channel. This allows counting only a certain type of object (i.e. inline images). =20 -Return value is a list of numbers if ELEMENT is a headline or an +Return value is a list of numbers if ELEMENT is a heading or an item. It is nil for keywords. It represents the footnote number for footnote definitions and footnote references. If ELEMENT is a target, return the same value as if ELEMENT was the closest -table, item or headline containing the target. In any other +table, item or heading containing the target. In any other case, return the sequence number of ELEMENT among elements or objects of the same type." ;; Ordinal of a target object refer to the ordinal of the closest @@ -5266,22 +5266,22 @@ return nil." ;; useful to export table of contents' entries. =20 (defun org-export-collect-headlines (info &optional n scope) - "Collect headlines in order to build a table of contents. + "Collect headings in order to build a table of contents. =20 INFO is a plist used as a communication channel. =20 When optional argument N is an integer, it specifies the depth of the table of contents. Otherwise, it is set to the value of the -last headline level. See `org-export-headline-levels' for more +last heading level. See `org-export-headline-levels' for more information. =20 Optional argument SCOPE, when non-nil, is an element. If it is -a headline, only children of SCOPE are collected. Otherwise, -collect children of the headline containing provided element. If -there is no such headline, collect all headlines. In any case, -argument N becomes relative to the level of that headline. +a heading, only children of SCOPE are collected. Otherwise, +collect children of the heading containing provided element. If +there is no such heading, collect all headings. In any case, +argument N becomes relative to the level of that heading. =20 -Return a list of all exportable headlines as parsed elements. +Return a list of all exportable headings as parsed elements. Footnote sections are ignored." (let* ((scope (cond ((not scope) (plist-get info :parse-tree)) ((eq (org-element-type scope) 'headline) scope) @@ -5700,7 +5700,7 @@ Return the new string." ;; defsubst org-export-get-parent must be defined before first use =20 (defun org-export-get-parent-headline (blob) - "Return BLOB parent headline or nil. + "Return BLOB parent heading or nil. BLOB is the element or object being considered." (org-element-lineage blob '(headline))) =20 --=20 2.33.0 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0002-Fix-comments.patch >From 89e646799b0c7cd2b9c23a84fedfe32885b9f1a4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Tue, 5 Oct 2021 22:57:02 +0300 Subject: [PATCH 02/76] Fix comments. --- lisp/ob-core.el | 2 +- lisp/ob-ref.el | 2 +- lisp/oc.el | 2 +- lisp/ol-bibtex.el | 8 +- lisp/ol.el | 14 +-- lisp/org-agenda.el | 4 +- lisp/org-archive.el | 2 +- lisp/org-capture.el | 12 +- lisp/org-clock.el | 8 +- lisp/org-colview.el | 6 +- lisp/org-compat.el | 2 +- lisp/org-crypt.el | 2 +- lisp/org-element.el | 36 +++--- lisp/org-footnote.el | 4 +- lisp/org-indent.el | 14 +-- lisp/org-inlinetask.el | 4 +- lisp/org-list.el | 2 +- lisp/org-mouse.el | 2 +- lisp/org-num.el | 30 ++--- lisp/org-pcomplete.el | 4 +- lisp/org-refile.el | 2 +- lisp/org.el | 100 ++++++++-------- lisp/ox-ascii.el | 20 ++-- lisp/ox-beamer.el | 38 +++--- lisp/ox-html.el | 20 ++-- lisp/ox-icalendar.el | 14 +-- lisp/ox-koma-letter.el | 12 +- lisp/ox-latex.el | 28 ++--- lisp/ox-man.el | 12 +- lisp/ox-md.el | 12 +- lisp/ox-odt.el | 36 +++--- lisp/ox-org.el | 2 +- lisp/ox-publish.el | 2 +- lisp/ox-texinfo.el | 14 +-- lisp/ox.el | 66 +++++------ testing/lisp/test-ob-exp.el | 4 +- testing/lisp/test-ob.el | 4 +- testing/lisp/test-ol.el | 8 +- testing/lisp/test-org-capture.el | 8 +- testing/lisp/test-org-clock.el | 16 +-- testing/lisp/test-org-colview.el | 4 +- testing/lisp/test-org-element.el | 18 +-- testing/lisp/test-org-footnote.el | 2 +- testing/lisp/test-org-list.el | 14 +-- testing/lisp/test-org-macro.el | 4 +- testing/lisp/test-org-num.el | 16 +-- testing/lisp/test-org.el | 190 +++++++++++++++--------------- testing/lisp/test-ox.el | 70 +++++------ 48 files changed, 448 insertions(+), 448 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 06a2a88cd..58bc5b25f 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2880,7 +2880,7 @@ block but are passed literally to the \"example-block\"." (setq cache nil) (let ((raw (org-babel-ref-resolve id))) (if (stringp raw) raw (format "%S" raw)))) - ;; Return the contents of headlines literally. + ;; Return the contents of headings literally. ((org-babel-ref-goto-headline-id id) (org-babel-ref-headline-body)) ;; Look for a source block named SOURCE-NAME. If diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index a7ab299b2..04b797f0f 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -182,7 +182,7 @@ Emacs Lisp representation of the value of the variable." (guard v)) (throw :found v)) (_ (error "Reference not found"))))))) - ;; Check for local or global headlines by ID. + ;; Check for local or global headings by ID. (when (org-babel-ref-goto-headline-id ref) (throw :found (org-babel-ref-headline-body))) ;; Check the Library of Babel. diff --git a/lisp/oc.el b/lisp/oc.el index 2f741768f..501c7a5c3 100644 --- a/lisp/oc.el +++ b/lisp/oc.el @@ -1425,7 +1425,7 @@ CONTEXT is the element or object at point, as returned by `org-element-context'. ((eq type 'verse-block) (and (>= (point) (org-element-property :contents-begin context)) (< (point) (org-element-property :contents-end context)))) - ;; In an headline or inlinetask, point must be either on the + ;; In an heading or inlinetask, point must be either on the ;; heading itself or on the blank lines below. ((memq type '(headline inlinetask)) (or (not (org-at-heading-p)) diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el index 476095d3e..23b00d5d8 100644 --- a/lisp/ol-bibtex.el +++ b/lisp/ol-bibtex.el @@ -78,7 +78,7 @@ ;; - Run `org-bibtex' to export the current file to a .bib. ;; ;; - Run `org-bibtex-check' or `org-bibtex-check-all' to check and -;; fill in missing field of either the current, or all headlines +;; fill in missing field of either the current, or all headings ;; ;; - Run `org-bibtex-create' to add a bibtex entry ;; @@ -99,8 +99,8 @@ ;; and then implemented by Bastien Guerry. ;; ;; Eric Schulte eventually added the functions for translating between -;; Org headlines and Bibtex entries, and for fleshing out the Bibtex -;; fields of existing Org headlines. +;; Org headings and Bibtex entries, and for fleshing out the Bibtex +;; fields of existing Org headings. ;; ;; Org mode loads this module by default - if this is not what you want, ;; configure the variable `org-modules'. @@ -578,7 +578,7 @@ ARG, when non-nil, is a universal prefix argument. See (add-hook 'org-execute-file-search-functions 'org-execute-file-search-in-bibtex) -;;; Bibtex <-> Org headline translation functions +;;; Bibtex <-> Org heading translation functions (defun org-bibtex (filename) "Export each headline in the current file to a bibtex entry. Headlines are exported using `org-bibtex-headline'." diff --git a/lisp/ol.el b/lisp/ol.el index aa1849715..3b93ad721 100644 --- a/lisp/ol.el +++ b/lisp/ol.el @@ -1168,7 +1168,7 @@ of matched result, which is either `dedicated' or `fuzzy'." (match-string 1 s))) ;; From here, we handle fuzzy links. ;; - ;; Look for targets, only if not in a headline search. + ;; Look for targets, only if not in a heading search. ((and (not starred) (let ((target (format "<<%s>>" s-multi-re))) (catch :target-match @@ -1181,7 +1181,7 @@ of matched result, which is either `dedicated' or `fuzzy'." (goto-char (org-element-property :begin context)) (throw :target-match t)))) nil)))) - ;; Look for elements named after S, only if not in a headline + ;; Look for elements named after S, only if not in a heading ;; search. ((and (not starred) (let ((name (format "^[ \t]*#\\+NAME: +%s[ \t]*$" s-single-re))) @@ -1195,7 +1195,7 @@ of matched result, which is either `dedicated' or `fuzzy'." (beginning-of-line) (throw :name-match t)))) nil)))) - ;; Regular text search. Prefer headlines in Org mode buffers. + ;; Regular text search. Prefer headings in Org mode buffers. ;; Ignore COMMENT keyword, TODO keywords, priority cookies, ;; statistics cookies and tags. ((and (derived-mode-p 'org-mode) @@ -1215,7 +1215,7 @@ of matched result, which is either `dedicated' or `fuzzy'." nil))) (beginning-of-line) (setq type 'dedicated)) - ;; Offer to create non-existent headline depending on + ;; Offer to create non-existent heading depending on ;; `org-link-search-must-match-exact-headline'. ((and (derived-mode-p 'org-mode) (eq org-link-search-must-match-exact-headline 'query-to-create) @@ -1225,7 +1225,7 @@ of matched result, which is either `dedicated' or `fuzzy'." (org-insert-heading nil t t) (insert s "\n") (beginning-of-line 0)) - ;; Only headlines are looked after. No need to process + ;; Only headings are looked after. No need to process ;; further: throw an error. ((and (derived-mode-p 'org-mode) (or starred org-link-search-must-match-exact-headline)) @@ -1645,12 +1645,12 @@ non-nil." :description) ""))) (error - ;; Probably before first headline, link only to file. + ;; Probably before first heading, link only to file. (concat "file:" (abbreviate-file-name (buffer-file-name (buffer-base-buffer)))))))) (t - ;; Just link to current headline. + ;; Just link to current heading. (setq cpltxt (concat "file:" (abbreviate-file-name (buffer-file-name (buffer-base-buffer))))) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5eb896b9a..5fb136fb5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5455,7 +5455,7 @@ the documentation of `org-diary'." (delq :deadline (delq :deadline* args))))) ((memq :deadline* args) (setf args (cons :deadline* (delq :deadline* args))))) - ;; Collect list of headlines. Return them flattened. + ;; Collect list of headings. Return them flattened. (let ((case-fold-search nil) results deadlines) (org-dlet ((date date)) @@ -5720,7 +5720,7 @@ displayed in agenda view." (goto-char (point-min)) (while (re-search-forward regexp nil t) ;; Skip date ranges, scheduled and deadlines, which are handled - ;; specially. Also skip time-stamps before first headline as + ;; specially. Also skip time-stamps before first heading as ;; there would be no entry to add to the agenda. Eventually, ;; ignore clock entries. (catch :skip diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 0943869a8..fc73f5926 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -352,7 +352,7 @@ direct children of this heading." (unless (org-at-heading-p) (outline-next-heading))) (goto-char (point-max)) ;; Subtree narrowing can let the buffer end on - ;; a headline. `org-paste-subtree' then deletes it. + ;; a heading. `org-paste-subtree' then deletes it. ;; To prevent this, make sure visible part of buffer ;; always terminates on a new line, while limiting ;; number of blank lines in a date tree. diff --git a/lisp/org-capture.el b/lisp/org-capture.el index a9350c58d..837ef3a80 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -895,7 +895,7 @@ for `entry'-type templates")) (refile-targets (org-capture-get :refile-targets 'local))) ;; Since `org-capture-finalize' may alter buffer contents (e.g., ;; empty lines) around entry, use a marker to refer to the - ;; headline to be refiled. Place the marker in the base buffer, + ;; heading to be refiled. Place the marker in the base buffer, ;; as the current indirect one is going to be killed. (set-marker pos (save-excursion (org-back-to-heading t) (point)) base) ;; `org-capture-finalize' calls `org-capture-goto-last-stored' too @@ -1294,7 +1294,7 @@ may have been stored before." (org-capture-mark-kill-region origin (point)) ;; ITEM always end with a newline character. Make sure we do ;; not narrow at the beginning of the next line, possibly - ;; altering its structure (e.g., when it is a headline). + ;; altering its structure (e.g., when it is a heading). (org-capture-narrow beg (1- end)) (org-capture--position-cursor beg end))))) @@ -1394,7 +1394,7 @@ Of course, if exact position has been required, just put it there." (if (org-capture-get :prepend) ;; Skip meta data and drawers. (org-end-of-meta-data t) - ;; Go to end of the entry text, before the next headline. + ;; Go to end of the entry text, before the next heading. (outline-next-heading))) (t ;; Beginning or end of file. @@ -1782,10 +1782,10 @@ by their respective `org-store-link-plist' properties if present." (org-capture-get :buffer))) ;; Find location from where to get allowed ;; values. If `:target-entry-p' is - ;; non-nil, the current headline in the + ;; non-nil, the current heading in the ;; target buffer is going to be a parent - ;; headline, so location is fine. - ;; Otherwise, find the parent headline in + ;; heading, so location is fine. + ;; Otherwise, find the parent heading in ;; the target buffer. (pom (if (org-capture-get :target-entry-p) origin (let ((level (progn diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 2e9a1c9b2..c590680a6 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -982,7 +982,7 @@ CLOCK is a cons cell of the form (MARKER START-TIME)." ;; If the clocked entry contained only a clock and possibly ;; the associated drawer, and we either cancel it or clock it ;; out, `org-clock-out-remove-zero-time-clocks' may clear all - ;; contents, and leave point on the /next/ headline. We store + ;; contents, and leave point on the /next/ heading. We store ;; the current entry location to be able to get back here when ;; we need to clock in again the previously clocked task. (heading (org-with-point-at (car clock) @@ -1918,7 +1918,7 @@ PROPNAME lets you set a custom text property instead of :org-clock-minutes." ;; A naked time. (setq t1 (+ t1 (string-to-number (match-string 5)) (* 60 (string-to-number (match-string 4)))))) - (t ;A headline + (t ;A heading ;; Add the currently clocking item time to the total. (when (and org-clock-report-include-clocking-task (eq (org-clocking-buffer) (current-buffer)) @@ -2583,7 +2583,7 @@ from the dynamic block definition." (properties (plist-get params :properties)) (time-columns (if (or compact? (< maxlevel 2)) 1 - ;; Deepest headline level is a hard limit for the number + ;; Deepest heading level is a hard limit for the number ;; of time columns. (let ((levels (cl-mapcan @@ -2644,7 +2644,7 @@ from the dynamic block definition." (if properties ;properties columns, maybe (make-string (length properties) ?|) "") - (format "<%d>| |\n" narrow))) ;headline and time columns + (format "<%d>| |\n" narrow))) ;heading and time columns ;; Insert the table header line (insert-before-markers diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 9794382d8..ca3de4cb8 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -663,7 +663,7 @@ Where possible, use the standard interface for changing this line." (with-silent-modifications (remove-text-properties (max (point-min) (1- bol)) eol '(read-only t))) (org-columns--call action)) - ;; Some properties can modify headline (e.g., "TODO"), and + ;; Some properties can modify heading (e.g., "TODO"), and ;; possible shuffle overlays. Make sure they are still all at ;; the right place on the current line. (let ((org-columns-inhibit-recalculation)) (org-columns-redo)) @@ -757,7 +757,7 @@ an integer, select that value." (remove-text-properties (line-end-position 0) (line-end-position) '(read-only t)) (org-columns--call action)) - ;; Some properties can modify headline (e.g., "TODO"), and + ;; Some properties can modify heading (e.g., "TODO"), and ;; possible shuffle overlays. Make sure they are still all at ;; the right place on the current line. (let ((org-columns-inhibit-recalculation)) (org-columns-redo)) @@ -1615,7 +1615,7 @@ PARAMS is a property list of parameters: (when org-agenda-columns-compute-summary-properties (org-agenda-colview-compute org-columns-current-fmt-compiled)) (save-excursion - ;; Collect properties for each headline in current view. + ;; Collect properties for each heading in current view. (goto-char (point-min)) (let (cache) (while (not (eobp)) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 6ac0b6252..24c4b35f2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -1009,7 +1009,7 @@ ELEMENT is the element at point." (defun org-mode-flyspell-verify () "Function used for `flyspell-generic-check-word-predicate'." (if (org-at-heading-p) - ;; At a headline or an inlinetask, check title only. + ;; At a heading or an inlinetask, check title only. (and (save-excursion (beginning-of-line) (and (let ((case-fold-search t)) (not (looking-at-p "\\*+ END[ \t]*$"))) diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el index 48f76b79f..3ccc526bc 100644 --- a/lisp/org-crypt.el +++ b/lisp/org-crypt.el @@ -31,7 +31,7 @@ ;; 2. Set the encryption key to use in the `org-crypt-key' variable, ;; or use `M-x org-set-property' to set the property CRYPTKEY to ;; any address in your public keyring. The text of the entry (but -;; not its properties or headline) will be encrypted for this user. +;; not its properties or heading) will be encrypted for this user. ;; For them to read it, the corresponding secret key must be ;; located in the secret key ring of the account where you try to ;; decrypt it. This makes it possible to leave secure notes that diff --git a/lisp/org-element.el b/lisp/org-element.el index cc3976d21..9127105ca 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -147,7 +147,7 @@ specially in `org-element--object-lex'.") "Build variable syntax regexps." (setq org-element-paragraph-separate (concat "^\\(?:" - ;; Headlines, inlinetasks. + ;; Headings, inlinetasks. "\\*+ " "\\|" ;; Footnote definitions. "\\[fn:[-_[:word:]]+\\]" "\\|" @@ -945,7 +945,7 @@ CONTENTS is the contents of the footnote-definition." (concat (make-string pre-blank ?\n) contents))))) -;;;; Headline +;;;; Heading (defun org-element--get-node-properties () "Return node properties associated to headline at point. @@ -1023,7 +1023,7 @@ Assume point is at beginning of the headline." (goto-char (match-end 0)))) (title-start (prog1 (point) (unless (or todo priority commentedp) - ;; Headline like "* :tag:" + ;; Heading like "* :tag:" (skip-chars-backward " \t")))) (tags (when (re-search-forward "[ \t]+\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$" @@ -1624,7 +1624,7 @@ containing `:begin', `:end', `:contents-begin', `contents-end', `:post-blank' and `:post-affiliated' keywords." (save-excursion ;; Beginning of section is the beginning of the first non-blank - ;; line after previous headline. + ;; line after previous heading. (let ((begin (point)) (end (progn (org-with-limited-levels (outline-next-heading)) (point))) @@ -3322,8 +3322,8 @@ Assume point is at the beginning of the link." (setq type "custom-id") (setq path (substring raw-link 1))) ;; Fuzzy type: Internal link either matches a target, an - ;; headline name or nothing. PATH is the target or - ;; headline's name. + ;; heading name or nothing. PATH is the target or + ;; heading's name. (t (setq type "fuzzy") (setq path raw-link)))) @@ -4002,10 +4002,10 @@ element it has to parse." ((eq mode 'table-row) (org-element-table-row-parser limit)) ;; Node Property. ((eq mode 'node-property) (org-element-node-property-parser limit)) - ;; Headline. + ;; Heading. ((org-with-limited-levels (org-at-heading-p)) (org-element-headline-parser limit raw-secondary-p)) - ;; Sections (must be checked after headline). + ;; Sections (must be checked after heading). ((eq mode 'section) (org-element-section-parser limit)) ((eq mode 'first-section) (org-element-section-parser @@ -4281,7 +4281,7 @@ This function assumes that current major mode is `org-mode'." (org-element--parse-elements (point-at-bol) (point-max) ;; Start in `first-section' mode so text before the first - ;; headline belongs to a section. + ;; heading belongs to a section. 'first-section nil granularity visible-only (list 'org-data nil)))) (defun org-element-parse-secondary-string (string restriction &optional parent) @@ -4529,7 +4529,7 @@ elements. Elements are accumulated into ACC." (save-excursion (goto-char beg) - ;; When parsing only headlines, skip any text before first one. + ;; When parsing only headings, skip any text before first one. (when (and (eq granularity 'headline) (not (org-at-heading-p))) (org-with-limited-levels (outline-next-heading))) (let (elements) @@ -4552,7 +4552,7 @@ Elements are accumulated into ACC." ((not cbeg)) ;; Greater element: parse it between `contents-begin' and ;; `contents-end'. Ensure GRANULARITY allows recursion, - ;; or ELEMENT is a headline, in which case going inside + ;; or ELEMENT is a heading, in which case going inside ;; is mandatory, in order to get sub-level headings. ((and (memq type org-element-greater-elements) (or (memq granularity '(element object nil)) @@ -5626,7 +5626,7 @@ the process stopped before finding the expected result." element next mode) (cond ;; Nothing in cache before point: start parsing from first - ;; element following headline above, or first element in + ;; element following heading above, or first element in ;; buffer. ((not cached) (if (org-with-limited-levels (outline-previous-heading)) @@ -5639,9 +5639,9 @@ the process stopped before finding the expected result." ;; Cache returned exact match: return it. ((= pos begin) (throw 'exit (if syncp (org-element-property :parent cached) cached))) - ;; There's a headline between cached value and POS: cached + ;; There's a heading between cached value and POS: cached ;; value is invalid. Start parsing from first element - ;; following the headline. + ;; following the heading. ((re-search-backward (org-with-limited-levels org-outline-regexp-bol) begin t) (forward-line) @@ -5792,7 +5792,7 @@ that range. See `after-change-functions' for more information." (bottom (save-excursion (goto-char end) (line-end-position)))) ;; Determine if modified area needs to be extended, according ;; to both previous and current state. We make a special - ;; case for headline editing: if a headline is modified but + ;; case for heading editing: if a heading is modified but ;; not removed, do not extend. (when (pcase org-element--cache-change-warning (`t t) @@ -6011,8 +6011,8 @@ element ending there." (cond ;; Within blank lines at the beginning of buffer, return nil. ((bobp) nil) - ;; Within blank lines right after a headline, return that - ;; headline. + ;; Within blank lines right after a heading, return that + ;; heading. ((org-with-limited-levels (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) @@ -6081,7 +6081,7 @@ Providing it allows for quicker computation." (if (and (>= pos (point)) (< pos (match-end 0))) (narrow-to-region (point) (match-end 0)) (throw 'objects-forbidden element))))) - ;; At an headline or inlinetask, objects are in title. + ;; At an heading or inlinetask, objects are in title. ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-property :begin element)) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index fcc7579ba..1371e1d59 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -261,7 +261,7 @@ otherwise." ((eq type 'verse-block) (and (>= (point) (org-element-property :contents-begin context)) (< (point) (org-element-property :contents-end context)))) - ;; In an headline or inlinetask, point must be either on the + ;; In an heading or inlinetask, point must be either on the ;; heading itself or on the blank lines below. ((memq type '(headline inlinetask)) (or (not (org-at-heading-p)) @@ -518,7 +518,7 @@ This function is meant to be used for fontification only." (save-excursion (end-of-line) ;; Footnotes definitions are separated by new - ;; headlines, another footnote definition or 2 blank + ;; headings, another footnote definition or 2 blank ;; lines. (let ((end (match-end 0)) (lim (save-excursion diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 5b5465dd8..66e3b941a 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -131,7 +131,7 @@ useful to make it ever so slightly different." (let ((indentation (if (<= n 1) 0 (* (1- org-indent-indentation-per-level) (1- n))))) - ;; Headlines line prefixes. + ;; Headings line prefixes. (let ((heading-prefix (make-string indentation ?*))) (aset org-indent--heading-line-prefixes n @@ -332,7 +332,7 @@ stopped." (level (or (org-current-level) 0)) (time-limit (and delay (time-add nil delay)))) ;; For each line, set `line-prefix' and `wrap-prefix' - ;; properties depending on the type of line (headline, inline + ;; properties depending on the type of line (heading, inline ;; task, item or other). (with-silent-modifications (while (and (<= (point) end) (not (eobp))) @@ -349,12 +349,12 @@ stopped." (time-add (current-idle-time) org-indent-agent-resume-delay) nil #'org-indent-initialize-agent)) (throw 'interrupt (point))) - ;; Headline or inline task. + ;; Heading or inline task. ((looking-at org-outline-regexp) (let* ((nstars (- (match-end 0) (match-beginning 0) 1)) (type (or (looking-at-p limited-re) 'inlinetask))) (org-indent-set-line-properties nstars 0 type) - ;; At an headline, define new value for LEVEL. + ;; At an heading, define new value for LEVEL. (unless (eq type 'inlinetask) (setq level nstars)))) ;; List item: `wrap-prefix' is set where body starts. ((org-at-item-p) @@ -367,7 +367,7 @@ stopped." (current-indentation) ;; When adapt indentation is 'headline-data, use ;; `org-indent--heading-line-prefixes' for setting - ;; headline data indentation. + ;; heading data indentation. (and (eq org-adapt-indentation 'headline-data) (or (org-at-planning-p) (org-at-clock-log-p) @@ -401,8 +401,8 @@ range of inserted text. DUMMY is an unused argument. This function is meant to be called by `after-change-functions'." (when org-indent-mode (save-match-data - ;; If a headline was modified or inserted, set properties until - ;; next headline. + ;; If a heading was modified or inserted, set properties until + ;; next heading. (org-with-wide-buffer (if (or org-indent-modified-headline-flag (save-excursion diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index 3379a2e46..e8f373286 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -40,7 +40,7 @@ ;; parent into children. ;; ;; Special fontification of inline tasks, so that they can be -;; immediately recognized. From the stars of the headline, only last +;; immediately recognized. From the stars of the heading, only last ;; two will be visible, the others will be hidden using the `org-hide' ;; face. ;; @@ -49,7 +49,7 @@ ;; ;; If you need to have a time planning line (DEADLINE etc), drawers, ;; for example LOGBOOK of PROPERTIES, or even normal text as part of -;; the inline task, you must add an "END" headline with the same +;; the inline task, you must add an "END" heading with the same ;; number of stars. ;; ;; As an example, here are two valid inline tasks: diff --git a/lisp/org-list.el b/lisp/org-list.el index 6d3ef7cc9..93aa00a73 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -3070,7 +3070,7 @@ With a prefix argument ARG, change the region in a single item." (let* ((level (org-reduced-level (org-outline-level))) (delta (max 0 (- level ref-level))) (todo-state (org-get-todo-state))) - ;; If current headline is less indented than the first + ;; If current heading is less indented than the first ;; one, set it as reference, in order to preserve ;; subtrees. (when (< level ref-level) (setq ref-level level)) diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index a35a19bca..66a153c9c 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -31,7 +31,7 @@ ;; * subtree expansion/collapse (org-cycle) with the left mouse button ;; * several context menus on the right mouse button: ;; + general text -;; + headlines +;; + headings ;; + timestamps ;; + priorities ;; + links diff --git a/lisp/org-num.el b/lisp/org-num.el index f00e6c463..849368481 100644 --- a/lisp/org-num.el +++ b/lisp/org-num.el @@ -1,4 +1,4 @@ -;;; org-num.el --- Dynamic Headlines Numbering -*- lexical-binding: t; -*- +;;; org-num.el --- Dynamic Headings Numbering -*- lexical-binding: t; -*- ;; Copyright (C) 2018-2021 Free Software Foundation, Inc. @@ -22,7 +22,7 @@ ;;; Commentary: -;; This library provides dynamic numbering for Org headlines. Use +;; This library provides dynamic numbering for Org headings. Use ;; ;; ;; @@ -41,10 +41,10 @@ ;; position, of overlays in `org-num--overlays'. These overlays are ;; marked with the `org-num' property set to a non-nil value. ;; -;; Overlays store the level of the headline in the `level' property, +;; Overlays store the level of the heading in the `level' property, ;; and the face used for the numbering in `numbering-face'. ;; -;; The `skip' property is set to t when the corresponding headline has +;; The `skip' property is set to t when the corresponding heading has ;; some characteristic -- e.g., a node property, or a tag -- that ;; prevents it from being numbered. ;; @@ -219,7 +219,7 @@ Assume point is at a headline." (overlay-put o 'numbering-face (or org-num-face ;; Compute face that would be used at the - ;; headline. We cannot extract it from the + ;; heading. We cannot extract it from the ;; buffer: at the time the overlay is created, ;; Font Lock has not proceeded yet. (nth (if org-cycle-level-faces @@ -282,7 +282,7 @@ if headline should be skipped." (let ((last-level (length org-num--numbering))) (setq org-num--numbering (cond - ;; First headline : nil => (1), or (1 0)... + ;; First heading : nil => (1), or (1 0)... ((null org-num--numbering) (cons 1 (make-list (1- level) 0))) ;; Sibling: (1 1) => (2 1). ((= level last-level) @@ -302,7 +302,7 @@ When START or END are nil, use buffer boundaries. Narrowing, if any, is ignored. Return the list of created overlays, newest first." (org-with-point-at (or start 1) - ;; Do not match headline starting at START. + ;; Do not match heading starting at START. (when start (end-of-line)) (let ((regexp (org-num--headline-regexp)) (new nil)) @@ -311,7 +311,7 @@ first." (- (match-end 0) (match-beginning 0) 1))) (skip (org-num--skip-value)) (numbering (org-num--current-numbering level skip))) - ;; Apply numbering to current headline. Store overlay for + ;; Apply numbering to current heading. Store overlay for ;; the return value. (push (org-num--make-overlay numbering level skip) new))) @@ -399,16 +399,16 @@ See this variable for the meaning of BEG and END." ;; to an indirect change. That happens when the skip value -- ;; see `org-num--skip-value' -- of the heading BEG belongs to ;; is altered, or when deleting the newline character right - ;; before the next headline. + ;; before the next heading. (save-excursion - ;; Bail out if we're before first headline or within - ;; a headline too deep to be numbered. + ;; Bail out if we're before first heading or within + ;; a heading too deep to be numbered. (when (and (org-with-limited-levels (ignore-errors (org-back-to-heading t))) (looking-at regexp)) (pcase (get-char-property-and-overlay (point) 'org-num) (`(nil) - ;; At a headline, without a numbering overlay: change + ;; At a heading, without a numbering overlay: change ;; just created one. Mark it for parsing. (setq org-num--missing-overlay (point))) (`(t . ,o) @@ -426,7 +426,7 @@ See this variable for the meaning of BEG and END." (_ nil))) ;; Second, if nothing is marked as invalid, and therefore if ;; no full update is due so far, changes may still have - ;; created new headlines, at BEG -- which is actually handled + ;; created new headings, at BEG -- which is actually handled ;; by the previous phase --, or, in case of a multi-line ;; insertion, at END, or in-between. (unless (or org-num--invalid-flag @@ -434,10 +434,10 @@ See this variable for the meaning of BEG and END." (<= end (line-end-position))) ;single line change (forward-line) (when (or (re-search-forward regexp end 'move) - ;; Check if change created a headline after END. + ;; Check if change created a heading after END. (progn (skip-chars-backward "*") (looking-at regexp))) (setq org-num--missing-overlay (line-beginning-position)))))) - ;; Update numbering only if a headline was altered or created. + ;; Update numbering only if a heading was altered or created. (when (or org-num--missing-overlay org-num--invalid-flag) (org-num--update)))) diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el index b31dc333f..c92144560 100644 --- a/lisp/org-pcomplete.el +++ b/lisp/org-pcomplete.el @@ -106,14 +106,14 @@ The return value is a string naming the thing at point." (skip-chars-backward "a-zA-Z") (char-before))) (cons "tex" nil)) - ;; Tags on a headline. + ;; Tags on a heading. ((and (org-match-line (format "\\*+ \\(?:.+? \\)?\\(:\\)\\(\\(?::\\|%s\\)+\\)?[ \t]*$" org-tag-re)) (or (org-point-in-group (point) 2) (= (point) (match-end 1)))) (cons "tag" nil)) - ;; TODO keywords on an empty headline. + ;; TODO keywords on an empty heading. ((and (string-match "^\\*+ +\\S-*$" line-to-here) (looking-at-p "[ \t]*$")) (cons "todo" nil)) diff --git a/lisp/org-refile.el b/lisp/org-refile.el index 678759e10..e5908e9d8 100644 --- a/lisp/org-refile.el +++ b/lisp/org-refile.el @@ -550,7 +550,7 @@ prefix argument (`C-u C-u C-u C-c C-w')." (org-paste-subtree level nil nil t) ;; Record information, according to `org-log-refile'. ;; Do not prompt for a note when refiling multiple - ;; headlines, however. Simply add a time stamp. + ;; headings, however. Simply add a time stamp. (cond ((not org-log-refile)) (regionp diff --git a/lisp/org.el b/lisp/org.el index 18cb53af6..01d15aa91 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -574,7 +574,7 @@ Group 1 contains drawer's name or \"END\".") org-clock-drawer-end-re "\\)\n?") "Matches an entire clock drawer.") -;;;; Headline +;;;; Heading (defconst org-heading-keyword-regexp-format "^\\(\\*+\\)\\(?: +%s\\)\\(?: +\\(.*?\\)\\)?[ \t]*$" @@ -1199,7 +1199,7 @@ or context. Valid contexts are Allowed visibility spans are - minimal show current headline; if point is not on headline, + minimal show current headline; if point is not on heading, also show entry local show current headline, entry and next headline @@ -1210,11 +1210,11 @@ Allowed visibility spans are ancestors-full show current subtree and its direct ancestors lineage show current headline, its direct ancestors and all - their children; if point is not on headline, also show + their children; if point is not on heading, also show entry and first child tree show current headline, its direct ancestors and all - their children; if point is not on headline, also show + their children; if point is not on heading, also show entry and all children canonical show current headline, its direct ancestors along with @@ -4046,7 +4046,7 @@ STATE should be one of the symbols listed in the docstring of (let ((case-fold-search nil) (re (concat org-outline-regexp-bol ".*:" org-archive-tag ":"))) (goto-char beg) - ;; Include headline point is currently on. + ;; Include heading point is currently on. (beginning-of-line) (while (and (< (point) end) (re-search-forward re end t)) (when (member org-archive-tag (org-get-tags nil t)) @@ -5084,8 +5084,8 @@ stacked delimiters is N. Escaping delimiters is not possible." (not (and (equal marker "+") (org-match-line "[ \t]*\\(|[-+]+|?\\|\\+[-+]+\\+\\)[ \t]*$"))) - ;; Do not match headline stars. Do not consider - ;; stars of a headline as closing marker for bold + ;; Do not match heading stars. Do not consider + ;; stars of a heading as closing marker for bold ;; markup either. (not (and (equal marker "*") (save-excursion @@ -5669,7 +5669,7 @@ needs to be inserted at a specific position in the font-lock sequence.") (list ;; Call the hook '(org-font-lock-hook) - ;; Headlines + ;; Headings `(,(if org-fontify-whole-heading-line "^\\(\\**\\)\\(\\* \\)\\(.*\n?\\)" "^\\(\\**\\)\\(\\* \\)\\(.*\\)") @@ -6050,9 +6050,9 @@ open and agenda-wise Org files." (set-window-start window (line-beginning-position)))))) -;;; Visibility (headlines, blocks, drawers) +;;; Visibility (headings, blocks, drawers) -;;;; Headlines visibility +;;;; Headings visibility (defun org-show-entry () "Show the body directly following its heading. @@ -6425,7 +6425,7 @@ Use `\\[org-edit-special]' to edit table.el tables")) (call-interactively #'org-table-next-field))) ((run-hook-with-args-until-success 'org-tab-after-check-for-table-hook)) - ;; At an item/headline: delegate to `org-cycle-internal-local'. + ;; At an item/heading: delegate to `org-cycle-internal-local'. ((and (or (and org-cycle-include-plain-lists (let ((item (org-element-lineage element '(item plain-list) @@ -6499,7 +6499,7 @@ Use `\\[org-edit-special]' to edit table.el tables")) (defun org-cycle-internal-local () "Do the local cycling action." (let ((goal-column 0) eoh eol eos has-children children-skipped struct) - ;; First, determine end of headline (EOH), end of subtree or item + ;; First, determine end of heading (EOH), end of subtree or item ;; (EOS), and if item or heading has children (HAS-CHILDREN). (save-excursion (if (org-at-item-p) @@ -6815,7 +6815,7 @@ be shown." DETAIL is either nil, `minimal', `local', `ancestors', `ancestors-full', `lineage', `tree', `canonical' or t. See `org-show-context-detail' for more information." - ;; Show current heading and possibly its entry, following headline + ;; Show current heading and possibly its entry, following heading ;; or all children. (if (and (org-at-heading-p) (not (eq detail 'local))) (org-flag-heading nil) @@ -6963,7 +6963,7 @@ frame is not changed." ;;;; Structure editing -;;; Inserting headlines +;;; Inserting headings (defun org--blank-before-heading-p (&optional parent) "Non-nil when an empty line should precede a new heading here. @@ -7029,9 +7029,9 @@ unconditionally." (and (not invisible-ok) (invisible-p (max (1- (point)) (point-min))))) ;; Position point at the location of insertion. Make sure we - ;; end up on a visible headline if INVISIBLE-OK is nil. + ;; end up on a visible heading if INVISIBLE-OK is nil. (org-with-limited-levels - (if (not level) (outline-next-heading) ;before first headline + (if (not level) (outline-next-heading) ;before first heading (org-back-to-heading invisible-ok) (when (equal arg '(16)) (org-up-heading-safe)) (org-end-of-subtree))) @@ -7047,14 +7047,14 @@ unconditionally." (unless (and blank? (org-previous-line-empty-p)) (org-N-empty-lines-before-current (if blank? 1 0))) (insert stars " ") - ;; When INVISIBLE-OK is non-nil, ensure newly created headline + ;; When INVISIBLE-OK is non-nil, ensure newly created heading ;; is visible. (unless invisible-ok (pcase (get-char-property-and-overlay (point) 'invisible) (`(outline . ,o) (move-overlay o (overlay-start o) (line-end-position 0))) (_ nil)))) - ;; At a headline... + ;; At a heading... ((org-at-heading-p) (cond ((bolp) (when blank? (save-excursion (insert "\n"))) @@ -7065,7 +7065,7 @@ unconditionally." ((and (org-get-alist-option org-M-RET-may-split-line 'headline) (org-match-line org-complex-heading-regexp) (org-pos-in-match-range (point) 4)) - ;; Grab the text that should moved to the new headline. + ;; Grab the text that should moved to the new heading. ;; Preserve tags. (let ((split (delete-and-extract-region (point) (match-end 4)))) (if (looking-at "[ \t]*$") (replace-match "") @@ -7078,7 +7078,7 @@ unconditionally." (end-of-line) (when blank? (insert "\n")) (insert "\n" stars " ")))) - ;; On regular text, turn line into a headline or split, if + ;; On regular text, turn line into a heading or split, if ;; appropriate. ((bolp) (insert stars " ") @@ -7397,7 +7397,7 @@ After top level, it switches back to sibling level." (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond - ;; If first headline in file, promote to top-level. + ;; If first heading in file, promote to top-level. ((= prev-level 0) (cl-loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) @@ -7516,7 +7516,7 @@ Assume point is at a heading or an inlinetask beginning." (goto-char (org-element-property :end e)))))) ((looking-at-p org-outline-regexp) (forward-line)) ;; Give up if shifting would move before column 0 or - ;; if it would introduce a headline or a footnote + ;; if it would introduce a heading or a footnote ;; definition. (t (skip-chars-forward " \t") @@ -7773,7 +7773,7 @@ When REMOVE is non-nil, remove the subtree from the clipboard." (cond (level (prefix-numeric-value level)) ;; When point is after the stars in an otherwise empty - ;; headline, use the number of stars as the forced level. + ;; heading, use the number of stars as the forced level. ((and (org-match-line "^\\*+[ \t]*$") (not (eq ?* (char-after)))) (org-outline-level)) @@ -7801,7 +7801,7 @@ When REMOVE is non-nil, remove the subtree from the clipboard." (when (and force-level (not level)) (delete-region (line-beginning-position) (point))) ;; Paste before the next visible heading or at end of buffer, - ;; unless point is at the beginning of a headline. + ;; unless point is at the beginning of a heading. (unless (and (bolp) (org-at-heading-p)) (org-next-visible-heading 1) (unless (bolp) (insert "\n"))) @@ -8276,7 +8276,7 @@ function is being called interactively." (setq start (point))) ((or (org-at-heading-p) (ignore-errors (progn (org-back-to-heading) t))) - ;; we will sort the children of the current headline + ;; we will sort the children of the current heading (org-back-to-heading) (setq start (point) end (progn (org-end-of-subtree t t) @@ -8980,7 +8980,7 @@ a link." ;; looks like a link under point in some specific places. ((memq type '(comment comment-block node-property keyword)) (call-interactively #'org-open-at-point-global)) - ;; On a headline or an inlinetask, but not on a timestamp, + ;; On a heading or an inlinetask, but not on a timestamp, ;; a link, a footnote reference or a citation. ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) @@ -9919,7 +9919,7 @@ When called through ELisp, arg is also interpreted in the following way: ;; Do we need to trigger a repeat? (when now-done-p (when (boundp 'org-agenda-headline-snapshot-before-repeat) - ;; This is for the agenda, take a snapshot of the headline. + ;; This is for the agenda, take a snapshot of the heading. (save-match-data (setq org-agenda-headline-snapshot-before-repeat (org-get-heading)))) @@ -10158,10 +10158,10 @@ statistics everywhere." ;; Three situations are to consider: ;; 1. if `org-hierarchical-todo-statistics' is nil, repeat up - ;; to the top-level ancestor on the headline; + ;; to the top-level ancestor on the heading; ;; 2. If parent has "recursive" property, repeat up to the - ;; headline setting that property, taking inheritance into + ;; heading setting that property, taking inheritance into ;; account; ;; 3. Else, move up to direct parent and proceed only once. @@ -11530,7 +11530,7 @@ headlines matching this string." (setq tags (org-split-string tags ":") tags-alist (cons (cons level tags) tags-alist))) - ;; compile tags for current headline + ;; compile tags for current heading (setq tags-list (if org-use-tag-inheritance (apply 'append (mapcar 'cdr (reverse tags-alist))) @@ -11569,7 +11569,7 @@ headlines matching this string." (or (not org-agenda-tags-todo-honor-ignore-options) (not (org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item)))))) - ;; select this headline + ;; select this heading (cond ((eq action 'sparse-tree) (and org-highlight-sparse-tree-matches @@ -12131,7 +12131,7 @@ This function assumes point is on a headline." (line-end-position))) (skip-chars-backward " \t") (delete-region (point) (line-end-position)) - ;; Deleting white spaces may break an otherwise empty headline. + ;; Deleting white spaces may break an otherwise empty heading. ;; Re-introduce one space in this case. (unless (org-at-heading-p) (insert " ")) (when tags @@ -12951,7 +12951,7 @@ strings." (when (= (length ts) 2) (throw 'next ts))))) ts))))) (goto-char beg) - ;; First look for timestamps within headline. + ;; First look for timestamps within heading. (let ((ts (funcall find-ts (line-end-position) nil))) (if (= (length ts) 2) (setq props (nconc ts props)) ;; Then find timestamps in the section, skipping @@ -13305,7 +13305,7 @@ COLUMN formats in the current buffer." ;; It can happen, for example, in the following ;; situation: ;; - ;; * Headline + ;; * Heading ;; :PROPERTIES: ;; ... ;; :END: @@ -15790,7 +15790,7 @@ It makes sense to do so if `org-cdlatex-mode' is active and if the cursor is ;; Before any word on the line: No expansion possible. ((save-excursion (skip-chars-backward " \t") (bolp)) nil) ;; Just after first word on the line: Expand it. Make sure it - ;; cannot happen on headlines, though. + ;; cannot happen on headings, though. ((save-excursion (skip-chars-backward "a-zA-Z0-9*") (skip-chars-backward " \t") @@ -17948,7 +17948,7 @@ region." (beginning-of-line (if arg 1 0)) (let ((case-fold-search nil)) (looking-at org-complex-heading-regexp))) - ;; At headline. + ;; At heading. (let ((tags-column (when (match-beginning 5) (save-excursion (goto-char (match-beginning 5)) (current-column)))) @@ -18040,9 +18040,9 @@ object (e.g., within a comment). In these case, you need to use ((and (not (bolp)) (let ((case-fold-search nil)) (org-match-line org-complex-heading-regexp))) - ;; At headline. Split line. However, if point is on keyword, + ;; At heading. Split line. However, if point is on keyword, ;; priority cookie or tags, do not break any of them: add - ;; a newline after the headline instead. + ;; a newline after the heading instead. (let ((tags-column (and (match-beginning 5) (save-excursion (goto-char (match-beginning 5)) (current-column)))) @@ -18188,7 +18188,7 @@ number of stars to add." (looking-at org-outline-regexp) (replace-match "") (setq toggled t)) (forward-line))) - ;; Case 2. Started at an item: change items into headlines. + ;; Case 2. Started at an item: change items into headings. ;; One star will be added by `org-list-to-subtree'. ((org-at-item-p) (while (< (point) end) @@ -18208,7 +18208,7 @@ number of stars to add." (setq toggled t)) (forward-line))) ;; Case 3. Started at normal text: make every line an heading, - ;; skipping headlines and items. + ;; skipping headings and items. (t (let* ((stars (make-string (if (numberp nstars) nstars (or (org-current-level) 0)) ?*)) @@ -19726,7 +19726,7 @@ region only contains such lines." ;; Remove fixed width marker only in a fixed-with element. ;; ;; Add fixed width maker in paragraphs, in blank lines after - ;; elements or at the beginning of a headline or an inlinetask, + ;; elements or at the beginning of a heading or an inlinetask, ;; and before any one-line elements (e.g., a clock). (progn (beginning-of-line) @@ -20211,7 +20211,7 @@ With argument N not nil or 1, move forward N - 1 lines first." ;; out. ((and (bound-and-true-p visual-line-mode) (not (bolp)))) ((let ((case-fold-search nil)) (looking-at org-complex-heading-regexp)) - ;; At a headline, special position is before the title, but + ;; At a heading, special position is before the title, but ;; after any TODO keyword or priority cookie. (let ((refpos (min (1+ (or (match-end 3) (match-end 2) (match-end 1))) (line-end-position))) @@ -20261,7 +20261,7 @@ With argument N not nil or 1, move forward N - 1 lines first." (beginning-of-visual-line n) (move-beginning-of-line n)) (cond - ;; At a headline, with tags. + ;; At a heading, with tags. ((and special (save-excursion (beginning-of-line) @@ -20277,7 +20277,7 @@ With argument N not nil or 1, move forward N - 1 lines first." (end-of-visual-line) (point))))) ;; If `end-of-visual-line' brings us before end of line or - ;; even tags, i.e., the headline spans over multiple visual + ;; even tags, i.e., the heading spans over multiple visual ;; lines, move there. (cond ((and visual-end (< visual-end tags) @@ -20732,7 +20732,7 @@ If there is no such heading, return nil." "Goto to the end of a subtree." ;; This contains an exact copy of the original function, but it uses ;; `org-back-to-heading-or-point-min', to make it work also in invisible - ;; trees and before first headline. And is uses an invisible-ok argument. + ;; trees and before first heading. And is uses an invisible-ok argument. ;; Under Emacs this is not needed, but the old outline.el needs this fix. ;; Furthermore, when used inside Org, finding the end of a large subtree ;; with many children and grandchildren etc, this can be much faster @@ -20821,7 +20821,7 @@ non-nil it will also look at invisible ones." (if (org-before-first-heading-p) (if backward? (goto-char (point-min)) (outline-next-heading)) (org-back-to-heading invisible-ok) - (unless backward? (end-of-line)) ;do not match current headline + (unless backward? (end-of-line)) ;do not match current heading (let ((level (- (match-end 0) (match-beginning 0) 1)) (f (if backward? #'re-search-backward #'re-search-forward)) (count (if arg (abs arg) 1)) @@ -21127,7 +21127,7 @@ See `org-backward-paragraph'." ;; There is a blank line above. Move there. ((and (org-previous-line-empty-p) (let ((lep (line-end-position 0))) - ;; When the first headline start at point 2, don't choke while + ;; When the first heading start at point 2, don't choke while ;; checking with `org-invisible-p'. (or (= lep 1) (not (org-invisible-p (1- (line-end-position 0))))))) @@ -21209,11 +21209,11 @@ Move to the previous element at the same level, when possible." (interactive) (cond ((bobp) (user-error "Cannot move further up")) ((org-with-limited-levels (org-at-heading-p)) - ;; At a headline, move to the previous one, if any, or stay + ;; At a heading, move to the previous one, if any, or stay ;; here. (let ((origin (point))) (org-with-limited-levels (org-backward-heading-same-level 1)) - ;; When current headline has no sibling above, move to its + ;; When current heading has no sibling above, move to its ;; parent. (when (= (point) origin) (or (org-with-limited-levels (org-up-heading-safe)) @@ -21270,7 +21270,7 @@ Move to the previous element at the same level, when possible." (user-error "No element at point")))) (if (eq (org-element-type elem) 'headline) ;; Preserve point when moving a whole tree, even if point was - ;; on blank lines below the headline. + ;; on blank lines below the heading. (let ((offset (skip-chars-backward " \t\n"))) (unwind-protect (org-move-subtree-up) (forward-char (- offset)))) diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 2e91c7fea..a18cf5e31 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -44,7 +44,7 @@ ;; overriding `org-ascii-charset' variable on the fly by the ext-plist ;; mechanism. ;; -;; We also install a filter for headlines and sections, in order to +;; We also install a filter for headings and sections, in order to ;; control blank lines separating them in output string. (org-export-define-backend 'ascii @@ -435,7 +435,7 @@ nil to ignore the inline task." ;; `org-ascii--list-tables' does the same for table elements. ;; The third category includes general helper functions. -;; `org-ascii--build-title' creates the title for a given headline +;; `org-ascii--build-title' creates the title for a given heading ;; or inlinetask element. `org-ascii--build-caption' returns the ;; caption string associated to a table or a src-block. ;; `org-ascii--describe-links' creates notes about links for @@ -577,12 +577,12 @@ INFO is a plist used as a communication channel." (plist-get info :ascii-global-margin) (let ((parent (org-export-get-parent-headline element))) ;; Inner margin doesn't apply to text before first - ;; headline. + ;; heading. (if (not parent) 0 (let ((low-level-rank (org-export-low-level-p parent info))) ;; Inner margin doesn't apply to contents of - ;; low level headlines, since they've got their + ;; low level headings, since they've got their ;; own indentation mechanism. (if low-level-rank (* low-level-rank 2) (plist-get info :ascii-inner-margin))))))))) @@ -656,7 +656,7 @@ When optional argument TOC is non-nil, use optional title if possible. It doesn't apply to `inlinetask' elements." (let* ((headlinep (eq (org-element-type element) 'headline)) (numbers - ;; Numbering is specific to headlines. + ;; Numbering is specific to headings. (and headlinep (org-export-numbered-headline-p element info) (let ((numbering (org-export-get-headline-number element info))) @@ -882,7 +882,7 @@ is a plist used as a communication channel." (push footprint seen) link))))) (org-element-map (if (eq (org-element-type element) 'section) element - ;; In a headline, only retrieve links in title + ;; In a heading, only retrieve links in title ;; and relative section, not in children. (list (org-element-property :title element) (car (org-element-contents element)))) @@ -1295,7 +1295,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (format "[%s]" (org-export-get-footnote-number footnote-reference info))) -;;;; Headline +;;;; Heading (defun org-ascii-headline (headline contents info) "Transcode a HEADLINE element from Org to ASCII. @@ -1309,7 +1309,7 @@ holding contextual information." ;; Export title early so that any link in it can be ;; exported and seen in `org-ascii--unique-links'. (title (org-ascii--build-title headline info width (not low-level))) - ;; Blank lines between headline and its contents. + ;; Blank lines between heading and its contents. ;; `org-ascii-headline-spacing', when set, overwrites ;; original buffer's spacing. (pre-blanks @@ -1346,7 +1346,7 @@ holding contextual information." (concat bullet title "\n" pre-blanks ;; Contents, indented by length of bullet. (org-ascii--indent-string body (length bullet)))) - ;; Else: Standard headline. + ;; Else: Standard heading. (concat title "\n" pre-blanks body))))) @@ -1753,7 +1753,7 @@ contextual information." (org-ascii--indent-string (if (not (org-string-nw-p links)) contents (concat (org-element-normalize-string contents) "\n\n" links)) - ;; Do not apply inner margin if parent headline is low level. + ;; Do not apply inner margin if parent heading is low level. (let ((headline (org-export-get-parent-headline section))) (if (or (not headline) (org-export-low-level-p headline info)) 0 (plist-get info :ascii-inner-margin)))))) diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index c9a67f891..dd7c3555c 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -305,13 +305,13 @@ channel." value)))) -;;;; Headline +;;;; Heading ;; -;; The main function to translate a headline is +;; The main function to translate a heading is ;; `org-beamer-headline'. ;; -;; Depending on the level at which a headline is considered as -;; a frame (given by `org-beamer--frame-level'), the headline is +;; Depending on the level at which a heading is considered as +;; a frame (given by `org-beamer--frame-level'), the heading is ;; either a section (`org-beamer--format-section'), a frame ;; (`org-beamer--format-frame') or a block ;; (`org-beamer--format-block'). @@ -353,7 +353,7 @@ INFO is a plist used as a communication channel." (let ((env (org-element-property :BEAMER_ENV parent))) (when (and env (member-ignore-case env '("frame" "fullframe"))) (throw 'exit (org-export-get-relative-level parent info)))))) - ;; 2. Look for "frame" environment in HEADLINE. + ;; 2. Look for "frame" environment in HEADING. (let ((env (org-element-property :BEAMER_ENV headline))) (and env (member-ignore-case env '("frame" "fullframe")) (org-export-get-relative-level headline info))) @@ -406,7 +406,7 @@ used as a communication channel." CONTENTS holds the contents of the headline. INFO is a plist used as a communication channel." (let ((fragilep - ;; FRAGILEP is non-nil when HEADLINE contains an element + ;; FRAGILEP is non-nil when HEADING contains an element ;; among `org-beamer-verbatim-elements'. (org-element-map headline org-beamer-verbatim-elements 'identity info 'first-match))) @@ -424,7 +424,7 @@ used as a communication channel." (let* ((beamer-opt (org-element-property :BEAMER_OPT headline)) (options ;; Collect nonempty options from default value and - ;; headline's properties. + ;; heading's properties. (cl-remove-if-not #'org-string-nw-p (append (org-split-string @@ -510,8 +510,8 @@ used as a communication channel." (org-beamer--normalize-argument raw-options 'option) "")) ;; Start a "columns" environment when explicitly requested or - ;; when there is no previous headline or the previous - ;; headline do not have a BEAMER_column property. + ;; when there is no previous heading or the previous + ;; heading do not have a BEAMER_column property. (parent-env (org-element-property :BEAMER_ENV (org-export-get-parent-headline headline))) (start-columns-p @@ -525,7 +525,7 @@ used as a communication channel." (org-export-get-previous-element headline info))))))) ;; End the "columns" environment when explicitly requested or - ;; when there is no next headline or the next headline do not + ;; when there is no next heading or the next heading do not ;; have a BEAMER_column property. (end-columns-p (or (equal environment "columns") @@ -545,7 +545,7 @@ used as a communication channel." (when column-width (format "\\begin{column}%s{%s}\n" ;; One can specify placement for column only when - ;; HEADLINE stands for a column on its own. + ;; HEADING stands for a column on its own. (if (equal environment "column") options "") (format "%s\\columnwidth" column-width))) ;; Block's opening string. @@ -600,7 +600,7 @@ as a communication channel." ((equal environment "againframe") (let ((ref (org-element-property :BEAMER_REF headline))) ;; Reference to frame being resumed is mandatory. Ignore - ;; the whole headline if it isn't provided. + ;; the whole heading if it isn't provided. (when (org-string-nw-p ref) (concat "\\againframe" ;; Overlay specification. @@ -625,12 +625,12 @@ as a communication channel." info) (org-export-resolve-fuzzy-link `(link (:path - ;; Look for headlines only. + ;; Look for headings only. ,(if (eq (string-to-char ref) ?*) ref (concat "*" ref)))) info)))) ;; Now use user-defined label provided in TARGET - ;; headline, or fallback to standard one. + ;; heading, or fallback to standard one. (format "{%s}" (org-beamer--get-label target info))))))) ;; Case 2: Creation of an appendix is requested. ((equal environment "appendix") @@ -643,7 +643,7 @@ as a communication channel." ((equal environment "ignoreheading") (concat (make-string (org-element-property :pre-blank headline) ?\n) contents)) - ;; Case 4: HEADLINE is a note. + ;; Case 4: HEADING is a note. ((member environment '("note" "noteNH")) (concat "\\note" ;; Overlay specification. @@ -661,14 +661,14 @@ as a communication channel." info) "\n")) (org-trim contents))))) - ;; Case 5: HEADLINE is a frame. + ;; Case 5: HEADING is a frame. ((= level frame-level) (org-beamer--format-frame headline contents info)) ;; Case 6: Regular section, extracted from ;; `org-latex-classes'. ((< level frame-level) (org-beamer--format-section headline contents info)) - ;; Case 7: Otherwise, HEADLINE is a block. + ;; Case 7: Otherwise, HEADING is a block. (t (org-beamer--format-block headline contents info)))))) @@ -709,7 +709,7 @@ CONTENTS is nil. INFO is a plist used as a communication channel." (let ((key (org-element-property :key keyword)) (value (org-element-property :value keyword))) - ;; Handle specifically BEAMER and TOC (headlines only) keywords. + ;; Handle specifically BEAMER and TOC (headings only) keywords. ;; Otherwise, fallback to `latex' back-end. (cond ((equal key "BEAMER") value) @@ -829,7 +829,7 @@ holding export options." (:beamer-inner-theme "\\useinnertheme") (:beamer-outer-theme "\\useoutertheme")) "")) - ;; Possibly limit depth for headline numbering. + ;; Possibly limit depth for heading numbering. (let ((sec-num (plist-get info :section-numbers))) (when (integerp sec-num) (format "\\setcounter{secnumdepth}{%d}\n" sec-num))) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index a150b1fdb..163d96ade 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -689,7 +689,7 @@ by the footnotes themselves." :group 'org-export-html :type 'string) -;;;; Headline +;;;; Heading (defcustom org-html-toplevel-hlevel 2 "The level for level 1 headings in HTML export. @@ -2599,7 +2599,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (org-html--anchor id n (format " class=\"footref\" href=\"#fn.%d\" role=\"doc-backlink\"" n) info))))) -;;;; Headline +;;;; Heading (defun org-html-headline (headline contents info) "Transcode a HEADLINE element from Org to HTML. @@ -2640,7 +2640,7 @@ holding contextual information." (concat (org-html--anchor id nil nil info) formatted-text)) "\n" (and (org-export-last-sibling-p headline info) (format "\n" html-type)))) - ;; Standard headline. Export it as a section. + ;; Standard heading. Export it as a section. (let ((extra-class (org-element-property :HTML_CONTAINER_CLASS headline)) (headline-class @@ -3092,7 +3092,7 @@ INFO is a plist holding contextual information. See ;; Maybe turn ".org" into ".html". (setq raw-path (funcall link-org-files-as-html-maybe raw-path info)) ;; Add search option, if any. A search option can be - ;; relative to a custom-id, a headline title, a name or + ;; relative to a custom-id, a heading title, a name or ;; a target. (let ((option (org-element-property :search-option link))) (if (not option) raw-path @@ -3140,7 +3140,7 @@ INFO is a plist holding contextual information. See (org-export-get-reference destination info) attributes desc)))) - ;; Links pointing to a headline: Find destination and build + ;; Links pointing to a heading: Find destination and build ;; appropriate referencing command. ((member type '("custom-id" "fuzzy" "id")) (let ((destination (if (string= type "fuzzy") @@ -3161,21 +3161,21 @@ INFO is a plist holding contextual information. See (or desc (org-export-data (org-element-property :raw-link link) info)))) - ;; Link points to a headline. + ;; Link points to a heading. (`headline (let ((href (org-html--reference destination info)) ;; What description to use? (desc - ;; Case 1: Headline is numbered and LINK has no + ;; Case 1: Heading is numbered and LINK has no ;; description. Display section number. (if (and (org-export-numbered-headline-p destination info) (not desc)) (mapconcat #'number-to-string (org-export-get-headline-number destination info) ".") - ;; Case 2: Either the headline is un-numbered or + ;; Case 2: Either the heading is un-numbered or ;; LINK has a custom description. Display LINK's - ;; description or headline's title. + ;; description or heading's title. (or desc (org-export-data (org-element-property :title destination) info))))) @@ -3415,7 +3415,7 @@ holding contextual information." CONTENTS holds the contents of the section. INFO is a plist holding contextual information." (let ((parent (org-export-get-parent-headline section))) - ;; Before first headline: no container, just return CONTENTS. + ;; Before first heading: no container, just return CONTENTS. (if (not parent) contents ;; Get div's class and id references. (let* ((class-num (+ (org-export-get-relative-level parent info) diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index 80ce0a8ce..e82a55645 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -525,10 +525,10 @@ BACK-END and INFO are ignored." ;;; Transcode Functions -;;;; Headline and Inlinetasks +;;;; Heading and Inlinetasks ;; The main function is `org-icalendar-entry', which extracts -;; information from a headline or an inlinetask (summary, +;; information from a heading or an inlinetask (summary, ;; description...) and then delegates code generation to ;; `org-icalendar--vtodo' and `org-icalendar--vevent', depending ;; on the component needed. @@ -550,7 +550,7 @@ inlinetask within the section." (unless (org-element-property :footnote-section-p entry) (let* ((type (org-element-type entry)) ;; Determine contents really associated to the entry. For - ;; a headline, limit them to section, if any. For an + ;; a heading, limit them to section, if any. For an ;; inlinetask, this is every element within the task. (inside (if (eq type 'inlinetask) @@ -575,7 +575,7 @@ inlinetask within the section." :CLASS entry (org-property-inherit-p "CLASS")))) ;; Build description of the entry from associated section - ;; (headline) or contents (inlinetask). + ;; (heading) or contents (inlinetask). (desc (org-icalendar-cleanup-string (or (org-element-property :DESCRIPTION entry) @@ -618,7 +618,7 @@ inlinetask within the section." (org-icalendar--vevent entry scheduled (concat "SC-" uid) (concat "S: " summary) loc desc cat tz class))) - ;; When collecting plain timestamps from a headline and its + ;; When collecting plain timestamps from a heading and its ;; title, skip inlinetasks since collection will happen once ;; ENTRY is one of them. (let ((counter 0)) @@ -652,7 +652,7 @@ inlinetask within the section." (org-icalendar--vtodo entry uid summary loc desc cat tz class)) ;; Diary-sexp: Collect every diary-sexp element within ENTRY ;; and its title, and transcode them. If ENTRY is - ;; a headline, skip inlinetasks: they will be handled + ;; a heading, skip inlinetasks: they will be handled ;; separately. (when org-icalendar-include-sexps (let ((counter 0)) @@ -668,7 +668,7 @@ inlinetask within the section." summary)) info nil (and (eq type 'headline) 'inlinetask)) ""))))) - ;; If ENTRY is a headline, call current function on every + ;; If ENTRY is a heading, call current function on every ;; inlinetask within it. In agenda export, this is independent ;; from the mark (or lack thereof) on the entry. (when (eq type 'headline) diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index 6a895a6a2..6cb8e0cda 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -53,7 +53,7 @@ ;; be specified using "special headings" with the special tags ;; specified in `org-koma-letter-special-tags-in-letter'. LaTeX line ;; breaks are not necessary for TO_ADDRESS, FROM_ADDRESS and LOCATION. -;; If both a headline and a keyword specify a to or from address the +;; If both a heading and a keyword specify a to or from address the ;; value is determined in accordance with ;; `org-koma-letter-prefer-special-headings'. ;; @@ -117,17 +117,17 @@ ;; \includegraphics{logo.pdf} ;; \includegraphics{logo.png} ;; -;; Headlines are in general ignored. However, headlines with special +;; Headings are in general ignored. However, headings with special ;; tags can be used for specified contents like postscript (ps), ;; carbon copy (cc), enclosures (encl) and code to be inserted after ;; \end{letter} (after_letter). Specials tags are defined in ;; `org-koma-letter-special-tags-after-closing' and ;; `org-koma-letter-special-tags-after-letter'. Currently members of ;; `org-koma-letter-special-tags-after-closing' used as macros and the -;; content of the headline is the argument. +;; content of the heading is the argument. ;; -;; Headlines with to and from may also be used rather than the keyword -;; approach described above. If both a keyword and a headline with +;; Headings with to and from may also be used rather than the keyword +;; approach described above. If both a keyword and a heading with ;; information is present precedence is determined by ;; `org-koma-letter-prefer-special-headings'. ;; @@ -624,7 +624,7 @@ channel." (if (equal key "KOMA-LETTER") value (org-export-with-backend 'latex keyword contents info)))) -;; Headline +;; Heading (defun org-koma-letter-headline (headline contents info) "Transcode a HEADLINE element from Org to LaTeX. diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 3e3967033..17698601d 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -643,7 +643,7 @@ precedence over this variable." :type '(choice (const :tag "No template" nil) (string :tag "Format string"))) -;;;; Headline +;;;; Heading (defcustom org-latex-format-headline-function 'org-latex-format-headline-default-function @@ -1710,7 +1710,7 @@ holding export options." (org-latex--insert-compiler info) ;; Document class and packages. (org-latex-make-preamble info) - ;; Possibly limit depth for headline numbering. + ;; Possibly limit depth for heading numbering. (let ((sec-num (plist-get info :section-numbers))) (when (integerp sec-num) (format "\\setcounter{secnumdepth}{%d}\n" sec-num))) @@ -1947,7 +1947,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (org-latex--delayed-footnotes-definitions def info)))))))) -;;;; Headline +;;;; Heading (defun org-latex-headline (headline contents info) "Transcode a HEADLINE element from Org to LaTeX. @@ -2005,24 +2005,24 @@ holding contextual information." (org-export-get-tags headline info))) (priority (and (plist-get info :with-priority) (org-element-property :priority headline))) - ;; Create the headline text along with a no-tag version. + ;; Create the heading text along with a no-tag version. ;; The latter is required to remove tags from toc. (full-text (funcall (plist-get info :latex-format-headline-function) todo todo-type priority text tags info)) - ;; Associate \label to the headline for internal links. + ;; Associate \label to the heading for internal links. (headline-label (org-latex--label headline info t t)) (pre-blanks (make-string (org-element-property :pre-blank headline) ?\n))) (if (or (not section-fmt) (org-export-low-level-p headline info)) ;; This is a deep sub-tree: export it as a list item. Also - ;; export as items headlines for which no section format has + ;; export as items headings for which no section format has ;; been found. (let ((low-level-body (concat - ;; If headline is the first sibling, start a list. + ;; If heading is the first sibling, start a list. (when (org-export-first-sibling-p headline info) (format "\\begin{%s}\n" (if numberedp 'enumerate 'itemize))) - ;; Itemize headline + ;; Itemize heading "\\item" (and full-text (string-match-p "\\`[ \t]*\\[" full-text) @@ -2031,7 +2031,7 @@ holding contextual information." headline-label pre-blanks contents))) - ;; If headline is not the last sibling simply return + ;; If heading is not the last sibling simply return ;; LOW-LEVEL-BODY. Otherwise, also close the list, before ;; any blank line. (if (not (org-export-last-sibling-p headline info)) low-level-body @@ -2039,7 +2039,7 @@ holding contextual information." "[ \t\n]*\\'" (format "\n\\\\end{%s}" (if numberedp 'enumerate 'itemize)) low-level-body))) - ;; This is a standard headline. Export it as a section. Add + ;; This is a standard heading. Export it as a section. Add ;; an alternative heading when possible, and when this is not ;; identical to the usual heading. (let ((opt-title @@ -2597,7 +2597,7 @@ INFO is a plist holding contextual information. See (format "\\hyperref[%s]{%s}" (org-export-get-reference destination info) desc)))) - ;; Links pointing to a headline: Find destination and build + ;; Links pointing to a heading: Find destination and build ;; appropriate referencing command. ((member type '("custom-id" "fuzzy" "id")) (let ((destination @@ -2615,9 +2615,9 @@ INFO is a plist holding contextual information. See (or desc (org-export-data (org-element-property :raw-link link) info)))) - ;; LINK points to a headline. If headlines are numbered - ;; and the link has no description, display headline's - ;; number. Otherwise, display description or headline's + ;; LINK points to a heading. If headings are numbered + ;; and the link has no description, display heading's + ;; number. Otherwise, display description or heading's ;; title. (headline (let ((label (org-latex--label destination info t))) diff --git a/lisp/ox-man.el b/lisp/ox-man.el index 6d3476cda..b825dc67b 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -440,7 +440,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;; Footnote References are Ignored -;;; Headline +;;; Heading (defun org-man-headline (headline contents info) "Transcode a HEADLINE element from Org to Man. @@ -462,19 +462,19 @@ holding contextual information." ((org-element-property :footnote-section-p headline) nil) ;; Case 2. This is a deep sub-tree: export it as a list item. - ;; Also export as items headlines for which no section + ;; Also export as items headings for which no section ;; format has been found. ((or (not section-fmt) (org-export-low-level-p headline info)) ;; Build the real contents of the sub-tree. (let ((low-level-body (concat - ;; If the headline is the first sibling, start a list. + ;; If the heading is the first sibling, start a list. (when (org-export-first-sibling-p headline info) (format "%s\n" ".RS")) - ;; Itemize headline + ;; Itemize heading ".TP\n.ft I\n" text "\n.ft\n" contents ".RE"))) - ;; If headline is not the last sibling simply return + ;; If heading is not the last sibling simply return ;; LOW-LEVEL-BODY. Otherwise, also close the list, before any ;; blank line. (if (not (org-export-last-sibling-p headline info)) low-level-body @@ -482,7 +482,7 @@ holding contextual information." "[ \t\n]*\\'" "" low-level-body)))) - ;; Case 3. Standard headline. Export it as a section. + ;; Case 3. Standard heading. Export it as a section. (t (format section-fmt text contents ))))) ;;; Horizontal Rule diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 678edbbfd..5a407048a 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -165,11 +165,11 @@ INFO is a plist used as a communication channel. Links and table of contents can refer to headlines." (unless (org-element-property :footnote-section-p headline) (or - ;; Global table of contents includes HEADLINE. + ;; Global table of contents includes HEADING. (and (plist-get info :with-toc) (memq headline (org-export-collect-headlines info (plist-get info :with-toc)))) - ;; A local table of contents includes HEADLINE. + ;; A local table of contents includes HEADING. (cl-some (lambda (h) (let ((section (car (org-element-contents h)))) @@ -190,7 +190,7 @@ of contents can refer to headlines." info n (and local? keyword)))))))) info t)))) (org-element-lineage headline)) - ;; A link refers internally to HEADLINE. + ;; A link refers internally to HEADING. (org-element-map (plist-get info :parse-tree) 'link (lambda (link) (eq headline @@ -343,7 +343,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (org-export-with-backend 'html export-block contents info))) -;;;; Headline +;;;; Heading (defun org-md-headline (headline contents info) "Transcode HEADLINE element into Markdown format. @@ -364,11 +364,11 @@ a communication channel." (and (plist-get info :with-priority) (let ((char (org-element-property :priority headline))) (and char (format "[#%c] " char))))) - ;; Headline text without tags. + ;; Heading text without tags. (heading (concat todo priority title)) (style (plist-get info :md-headline-style))) (cond - ;; Cannot create a headline. Fall-back to a list. + ;; Cannot create a heading. Fall-back to a list. ((or (org-export-low-level-p headline info) (not (memq style '(atx setext))) (and (eq style 'atx) (> level 6)) diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index f186ebb16..60660e9ab 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -650,7 +650,7 @@ The default value simply returns the value of CONTENTS." :type 'function) -;;;; Headline +;;;; Heading (defcustom org-odt-format-headline-function 'org-odt-format-headline-default-function @@ -1136,7 +1136,7 @@ a plist containing current export properties. Optional argument SCOPE, when non-nil, defines the scope of the table. Return the table of contents as a string, or nil." (cl-assert (wholenump depth)) - ;; When a headline is marked as a radio target, as in the example below: + ;; When a heading is marked as a radio target, as in the example below: ;; ;; ** <<>> ;; Some text. @@ -1748,7 +1748,7 @@ CONTENTS is nil. INFO is a plist holding contextual information." (funcall --format-footnote-definition n def)))))))) -;;;; Headline +;;;; Heading (defun org-odt-format-headline--wrap (headline backend info &optional format-function @@ -1797,7 +1797,7 @@ holding contextual information." ;; Get level relative to current parsed data. (level (org-export-get-relative-level headline info)) (numbered (org-export-numbered-headline-p headline info)) - ;; Get canonical label for the headline. + ;; Get canonical label for the heading. (id (org-export-get-reference headline info)) ;; Extra targets. (extra-targets @@ -1807,7 +1807,7 @@ holding contextual information." (anchored-title (org-odt--target full-text id))) (cond ;; Case 2. This is a deep sub-tree: export it as a list item. - ;; Also export as items headlines for which no section + ;; Also export as items headings for which no section ;; format has been found. ((org-export-low-level-p headline info) ;; Build the real contents of the sub-tree. @@ -1838,7 +1838,7 @@ holding contextual information." ""))) (and (org-export-last-sibling-p headline info) ""))) - ;; Case 3. Standard headline. Export it as a section. + ;; Case 3. Standard heading. Export it as a section. (t (concat (format @@ -2593,7 +2593,7 @@ Return nil, otherwise." (t nil)))))))) (defun org-odt-link--infer-description (destination info) - ;; DESTINATION is a headline or an element (like paragraph, + ;; DESTINATION is a heading or an element (like paragraph, ;; verse-block etc) to which a "#+NAME: label" can be attached. ;; Note that labels that are attached to captioned entities - inline @@ -2627,20 +2627,20 @@ Return nil, otherwise." 'ordered) (1+ (length (org-export-get-previous-element item info t)))))) - ;; Locate top-most listified headline. + ;; Locate top-most listified heading. (listified-headlines (cl-loop for x on data when (and (eq (org-element-type (car x)) 'headline) (org-export-low-level-p (car x) info)) return x)) - ;; Get listified headline numbers. + ;; Get listified heading numbers. (listified-headline-nos (cl-loop for el in listified-headlines when (eq (org-element-type el) 'headline) collect (when (org-export-numbered-headline-p el info) (1+ (length (org-export-get-previous-element el info t))))))) - ;; Combine item numbers from both the listified headlines and + ;; Combine item numbers from both the listified headings and ;; regular list items. ;; Case 1: Check if all the parents of list item are numbered. @@ -2652,11 +2652,11 @@ Return nil, otherwise." (mapconcat (lambda (n) (if (not n) " " (concat (number-to-string n) "."))) item-numbers ""))))) - ;; Case 2: Locate a regular and numbered headline in the + ;; Case 2: Locate a regular and numbered heading in the ;; hierarchy. Display its section number. (let ((headline (and - ;; Test if destination is a numbered headline. + ;; Test if destination is a numbered heading. (org-export-numbered-headline-p destination info) (cl-loop for el in (cons destination genealogy) when (and (eq (org-element-type el) 'headline) @@ -2669,7 +2669,7 @@ Return nil, otherwise." label (mapconcat 'number-to-string (org-export-get-headline-number headline info) ".")))) - ;; Case 4: Locate a regular headline in the hierarchy. Display + ;; Case 4: Locate a regular heading in the hierarchy. Display ;; its title. (let ((headline (cl-loop for el in (cons destination genealogy) when (and (eq (org-element-type el) 'headline) @@ -2722,14 +2722,14 @@ INFO is a plist holding contextual information. See "%s" (org-export-get-reference destination info) desc)))) - ;; Links pointing to a headline: Find destination and build + ;; Links pointing to a heading: Find destination and build ;; appropriate referencing command. ((member type '("custom-id" "fuzzy" "id")) (let ((destination (if (string= type "fuzzy") (org-export-resolve-fuzzy-link link info) (org-export-resolve-id-link link info)))) (cl-case (org-element-type destination) - ;; Fuzzy link points to a headline. If there's + ;; Fuzzy link points to a heading. If there's ;; a description, create a hyperlink. Otherwise, try to ;; provide a meaningful description. (headline @@ -3495,7 +3495,7 @@ pertaining to indentation here." parent-list info) '("" . "")) (t '("" . "")))))) - ;; Handle low-level headlines. + ;; Handle low-level headings. (cl-loop for el in llh-genealogy with step = 'item collect (cl-case step @@ -3568,10 +3568,10 @@ pertaining to indentation here." ;; account the following facts: ;; ;; - Description lists are simulated as plain lists. - ;; - Low-level headlines can be listified. + ;; - Low-level headings can be listified. ;; - In Org mode, a table can occur not only as a regular list ;; item, but also within description lists and low-level - ;; headlines. + ;; headings. ;; See `org-odt-translate-description-lists' and ;; `org-odt-translate-low-level-headlines' for how this is diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 1b4654e36..3fe836e7e 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -218,7 +218,7 @@ a communication channel." (concat (org-element-normalize-string contents) ;; Insert footnote definitions appearing for the first time in this - ;; section, or in the relative headline title. Indeed, some of + ;; section, or in the relative heading title. Indeed, some of ;; them may not be available to narrowing so we make sure all of ;; them are included in the result. (let ((footnotes diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index b6c804a83..774ad27e4 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1125,7 +1125,7 @@ publishing directory." ;;; External Fuzzy Links Resolution ;; -;; This part implements tools to resolve [[file.org::*Some headline]] +;; This part implements tools to resolve [[file.org::*Some heading]] ;; links, where "file.org" belongs to the current project. (defun org-publish--store-crossrefs (output _backend info) diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index b0125894a..b0dad2541 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -209,7 +209,7 @@ section string and will be replaced by the title of the section." (string :tag "unnumbered-no-toc") (string :tag " appendix"))))))) -;;;; Headline +;;;; Heading (defcustom org-texinfo-format-headline-function 'org-texinfo-format-headline-default-function @@ -491,7 +491,7 @@ node or anchor name is unique." ;; node names collide -- e.g., they have the same title -- ;; within the same hierarchy, the second one would get the ;; smaller node name. This is counter-intuitive. - ;; Consequently, we ensure that every parent headline gets + ;; Consequently, we ensure that every parent heading gets ;; its node beforehand. As a recursive operation, this ;; achieves the desired effect. (let ((parent (org-element-lineage datum '(headline)))) @@ -577,7 +577,7 @@ INFO is a plist holding export options." CONTENTS is the transcoded contents string. INFO is a plist holding export options." (let ((title (org-export-data (plist-get info :title) info)) - ;; Copying data is the contents of the first headline in + ;; Copying data is the contents of the first heading in ;; parse tree with a non-nil copying property. (copying (org-element-map (plist-get info :parse-tree) 'headline (lambda (hl) @@ -861,7 +861,7 @@ plist holding contextual information." (org-trim data) data)))) -;;;; Headline +;;;; Heading (defun org-texinfo-headline (headline contents info) "Transcode a HEADLINE element from Org to Texinfo. @@ -921,7 +921,7 @@ holding contextual information." (format "@end %s" (if numbered? 'enumerate 'itemize)) "\n")) (concat - ;; Even if HEADLINE is using @subheading and al., leave an + ;; Even if HEADING is using @subheading and al., leave an ;; anchor so cross-references in the Org document still work. (format (if notoc? "@anchor{%s}\n" "@node %s\n") node) (format command full-text) @@ -1094,8 +1094,8 @@ INFO is a plist holding contextual information. See (if desc (format "@uref{file://%s,%s}" destination desc) (format "@uref{file://%s}" destination))) ((or `headline - ;; Targets within headlines cannot be turned into - ;; @anchor{}, so we refer to the headline parent + ;; Targets within headings cannot be turned into + ;; @anchor{}, so we refer to the heading parent ;; directly. (and `target (guard (eq 'headline diff --git a/lisp/ox.el b/lisp/ox.el index d89706c20..b367def86 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -1415,7 +1415,7 @@ specific items to read, if any." Optional argument BACKEND is an export back-end, as returned by, e.g., `org-export-create-backend'. It specifies back-end used for export. Return options as a plist." - ;; For each buffer keyword, create a headline property setting the + ;; For each buffer keyword, create a heading property setting the ;; same property in communication channel. The name for the ;; property is the keyword with "EXPORT_" appended to it. (org-with-wide-buffer @@ -1427,7 +1427,7 @@ for export. Return options as a plist." (let ((o (org-entry-get (point) "EXPORT_OPTIONS" 'selective))) (and o (org-export--parse-option-keyword o backend)))) ;; Take care of EXPORT_TITLE. If it isn't defined, use - ;; headline's title (with no todo keyword, priority cookie or + ;; heading's title (with no todo keyword, priority cookie or ;; tag) as its fallback value. (cache (list (cons "TITLE" @@ -1611,9 +1611,9 @@ BLOB is the element or object considered." ;; `org-export--populate-ignore-list' lists elements and objects that ;; should be skipped during export, `org-export--get-min-level' gets ;; the minimal exportable level, used as a basis to compute relative -;; level for headlines. Eventually +;; level for headings. Eventually ;; `org-export--collect-headline-numbering' builds an alist between -;; headlines and their numbering. +;; headings and their numbering. (defun org-export--collect-tree-properties (data info) "Extract tree properties from parse tree. @@ -1668,7 +1668,7 @@ OPTIONS is a plist holding export options." (not (memq datum (plist-get options :ignore-list)))) (setq min-level (min (org-element-property :level datum) min-level)) (when (= min-level 1) (throw 'exit 1)))) - ;; If no headline was found, for the sake of consistency, set + ;; If no heading was found, for the sake of consistency, set ;; minimum level to 1 nonetheless. (if (= min-level 10000) 1 min-level)))) @@ -1705,7 +1705,7 @@ INFO is a plist holding export options." (let ((select (cl-mapcan (lambda (tag) (org-tags-expand tag t)) (plist-get info :select-tags)))) (if (cl-some (lambda (tag) (member tag select)) (plist-get info :filetags)) - ;; If FILETAGS contains a select tag, every headline or + ;; If FILETAGS contains a select tag, every heading or ;; inlinetask is returned. (org-element-map data '(headline inlinetask) #'identity) (letrec ((selected-trees nil) @@ -1717,7 +1717,7 @@ INFO is a plist holding export options." (let ((tags (org-element-property :tags data))) (if (cl-some (lambda (tag) (member tag select)) tags) ;; When a select tag is found, mark full - ;; genealogy and every headline within the + ;; genealogy and every heading within the ;; tree as acceptable. (setq selected-trees (append @@ -1725,7 +1725,7 @@ INFO is a plist holding export options." (org-element-map data '(headline inlinetask) #'identity) selected-trees)) - ;; If at a headline, continue searching in + ;; If at a heading, continue searching in ;; tree, recursively. (when (eq type 'headline) (dolist (el (org-element-contents data)) @@ -1898,7 +1898,7 @@ Return a string." ((not type) (mapconcat (lambda (obj) (org-export-data obj info)) data "")) ;; Element/Object without contents or, as a special - ;; case, headline with archive tag and archived trees + ;; case, heading with archive tag and archived trees ;; restricted to title only. ((or (not (org-element-contents data)) (and (eq type 'headline) @@ -2518,8 +2518,8 @@ Return the updated communication channel." ;; `org-export-expand-include-keyword' and ;; `org-export--prepare-file-contents'. Structure wise, including ;; a whole Org file in a buffer often makes little sense. For -;; example, if the file contains a headline and the include keyword -;; was within an item, the item should contain the headline. That's +;; example, if the file contains a heading and the include keyword +;; was within an item, the item should contain the heading. That's ;; why file inclusion should be done before any structure can be ;; associated to the file, that is before parsing. ;; @@ -2644,7 +2644,7 @@ from tree." (letrec ((ignore nil) ;; First find trees containing a select tag, if any. (selected (org-export--selected-trees data info)) - ;; List tags that prevent export of headlines. + ;; List tags that prevent export of headings. (excluded (cl-mapcan (lambda (tag) (org-tags-expand tag t)) (plist-get info :exclude-tags))) (walk-data @@ -2662,7 +2662,7 @@ from tree." (eq (plist-get info :with-archived-trees) 'headline) (org-element-property :archivedp data)) - ;; If headline is archived but tree below has + ;; If heading is archived but tree below has ;; to be skipped, remove contents. (org-element-set-contents data) ;; Move into recursive objects/elements. @@ -2683,7 +2683,7 @@ from tree." f) (t nil)))))) ;; If a select tag is active, also ignore the section before the - ;; first headline, if any. + ;; first heading, if any. (when selected (let ((first-element (car (org-element-contents data)))) (when (eq (org-element-type first-element) 'section) @@ -2934,7 +2934,7 @@ Return code as a string." (save-restriction ;; Narrow buffer to an appropriate region or subtree for ;; parsing. If parsing subtree, be sure to remove main - ;; headline, planning data and property drawer. + ;; heading, planning data and property drawer. (cond ((org-region-active-p) (narrow-to-region (region-beginning) (region-end))) (subtreep @@ -3248,7 +3248,7 @@ storing and resolving footnotes. It is created automatically." ((string-match "\\ ind 0)) (unless (eq major-mode 'org-mode) (let ((org-inhibit-startup t)) (org-mode))) @@ -3515,9 +3515,9 @@ is to happen." 'footnote-definition)) (insert ind-str)) (forward-line)))) - ;; When MINLEVEL is specified, compute minimal level for headlines - ;; in the file (CUR-MIN), and remove stars to each headline so - ;; that headlines with minimal level have a level of MINLEVEL. + ;; When MINLEVEL is specified, compute minimal level for headings + ;; in the file (CUR-MIN), and remove stars to each heading so + ;; that headings with minimal level have a level of MINLEVEL. (when minlevel (unless (eq major-mode 'org-mode) (let ((org-inhibit-startup t)) (org-mode))) @@ -3727,7 +3727,7 @@ applied." ;; ;; `org-export-collect-footnote-definitions' is a tool to list ;; actually used footnotes definitions in the whole parse tree, or in -;; a headline, in order to add footnote listings throughout the +;; a heading, in order to add footnote listings throughout the ;; transcoded data. ;; ;; `org-export-footnote-first-reference-p' is a predicate used by some @@ -3902,16 +3902,16 @@ process, leading to a different order when footnotes are nested." (or data (plist-get info :parse-tree)) info body-first)))) -;;;; For Headlines +;;;; For Headings ;; -;; `org-export-get-relative-level' is a shortcut to get headline -;; level, relatively to the lower headline level in the parsed tree. +;; `org-export-get-relative-level' is a shortcut to get heading +;; level, relatively to the lower heading level in the parsed tree. ;; ;; `org-export-get-headline-number' returns the section number of an -;; headline, while `org-export-number-to-roman' allows it to be +;; heading, while `org-export-number-to-roman' allows it to be ;; converted to roman numbers. With an optional argument, ;; `org-export-get-headline-number' returns a number to unnumbered -;; headlines (used for internal id). +;; headings (used for internal id). ;; ;; `org-export-low-level-p', `org-export-first-sibling-p' and ;; `org-export-last-sibling-p' are three useful predicates when it @@ -3919,7 +3919,7 @@ process, leading to a different order when footnotes are nested." ;; ;; `org-export-get-tags', `org-export-get-category' and ;; `org-export-get-node-property' extract useful information from an -;; headline or a parent headline. They all handle inheritance. +;; heading or a parent heading. They all handle inheritance. ;; ;; `org-export-get-alt-title' tries to retrieve an alternative title, ;; as a secondary string, suitable for table of contents. It falls @@ -4106,7 +4106,7 @@ meant to be translated with `org-export-data' or alike." ;; (i.e. links with "fuzzy" as type) within the parsed tree, and ;; returns an appropriate unique identifier. ;; -;; `org-export-resolve-id-link' returns the first headline with +;; `org-export-resolve-id-link' returns the first heading with ;; specified id or custom-id in parse tree, the path to the external ;; file with the id. ;; @@ -4356,7 +4356,7 @@ significant." search-cells ;; There can be multiple matches for un-typed searches, i.e., ;; for searches not starting with # or *. In this case, - ;; prioritize targets and names over headline titles. + ;; prioritize targets and names over heading titles. ;; Matching both a name and a target is not valid, and ;; therefore undefined. (or (cl-some (lambda (datum) @@ -4551,14 +4551,14 @@ table, item or headline containing the target. In any other case, return the sequence number of ELEMENT among elements or objects of the same type." ;; Ordinal of a target object refer to the ordinal of the closest - ;; table, item, or headline containing the object. + ;; table, item, or heading containing the object. (when (eq (org-element-type element) 'target) (setq element (org-element-lineage element '(footnote-definition footnote-reference headline item table)))) (cl-case (org-element-type element) - ;; Special case 1: A headline returns its number as a list. + ;; Special case 1: A heading returns its number as a list. (headline (org-export-get-headline-number element info)) ;; Special case 2: An item returns its number as a list. (item (let ((struct (org-element-property :structure element))) @@ -5254,7 +5254,7 @@ return nil." ;;;; For Tables of Contents ;; ;; `org-export-collect-headlines' builds a list of all exportable -;; headline elements, maybe limited to a certain depth. One can then +;; heading elements, maybe limited to a certain depth. One can then ;; easily parse it and transcode it. ;; ;; Building lists of tables, figures or listings is quite similar. @@ -5690,7 +5690,7 @@ Return the new string." ;; ;; Here are various functions to retrieve information about the ;; neighborhood of a given element or object. Neighbors of interest -;; are direct parent (`org-export-get-parent'), parent headline +;; are direct parent (`org-export-get-parent'), parent heading ;; (`org-export-get-parent-headline'), first element containing an ;; object, (`org-export-get-parent-element'), parent table ;; (`org-export-get-parent-table'), previous element or object diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 6cd7514a5..6f0c65d9d 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -468,7 +468,7 @@ be evaluated." "Test evaluation of code blocks under COMMENT headings." (let ((org-export-use-babel t) (org-babel-inline-result-wrap "=%s=")) - ;; Do not eval block in a commented headline. + ;; Do not eval block in a commented heading. (should (string-match ": 2" @@ -502,7 +502,7 @@ src_emacs-lisp{(+ 1 1)}" src_emacs-lisp{(+ 1 1)}" (org-babel-exp-process-buffer) (buffer-string)))) - ;; Also check parent headlines. + ;; Also check parent headings. (should-not (string-match ": 2" diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index a5ae8e389..47702eab6 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -828,7 +828,7 @@ x baz #+end_src" (org-babel-expand-noweb-references)))) - ;; Respect COMMENT headlines + ;; Respect COMMENT headings (should (equal "C" (org-test-with-temp-text " @@ -959,7 +959,7 @@ x #+END_SRC " (org-babel-execute-maybe) t)) - ;; Escape headlines when producing an example block. + ;; Escape headings when producing an example block. (should (string-match-p ",\\* Not an headline" diff --git a/testing/lisp/test-ol.el b/testing/lisp/test-ol.el index ddcc570b3..cd1ba0510 100644 --- a/testing/lisp/test-ol.el +++ b/testing/lisp/test-ol.el @@ -125,7 +125,7 @@ (ert-deftest test-ol/store-link () "Test `org-store-link' specifications." - ;; On a headline, link to that headline. Use heading as the + ;; On a heading, link to that heading. Use heading as the ;; description of the link. (should (let (org-store-link-props org-stored-links) @@ -133,7 +133,7 @@ (let ((file (buffer-file-name))) (equal (format "[[file:%s::*H1][H1]]" file) (org-store-link nil)))))) - ;; On a headline, remove TODO and COMMENT keywords, priority cookie, + ;; On a heading, remove TODO and COMMENT keywords, priority cookie, ;; and tags. (should (let (org-store-link-props org-stored-links) @@ -159,7 +159,7 @@ (let ((file (buffer-file-name))) (equal (format "[[file:%s::*H1][H1]]" file) (org-store-link nil)))))) - ;; On a headline, remove any link from description. + ;; On a heading, remove any link from description. (should (let (org-store-link-props org-stored-links) (org-test-with-temp-text-in-file "* [[#l][d]]" @@ -329,7 +329,7 @@ (let ((file (buffer-file-name))) (equal (format "[[file:%s::two]]" file file) (org-store-link nil)))))) - ;; Context also ignore statistics cookies and special headlines + ;; Context also ignore statistics cookies and special headings ;; data. (should (let ((org-stored-links nil) diff --git a/testing/lisp/test-org-capture.el b/testing/lisp/test-org-capture.el index ea42fa374..f2489abc2 100644 --- a/testing/lisp/test-org-capture.el +++ b/testing/lisp/test-org-capture.el @@ -113,7 +113,7 @@ (ert-deftest test-org-capture/refile () "Test `org-capture-refile' specifications." - ;; When refiling, make sure the headline being refiled is the one + ;; When refiling, make sure the heading being refiled is the one ;; being captured. In particular, empty lines after the entry may ;; be removed, and we don't want to shift onto the next heading. (should @@ -199,7 +199,7 @@ (ert-deftest test-org-capture/entry () "Test `entry' type in capture template." - ;; Do not break next headline. + ;; Do not break next heading. (should (equal "* A\n** H1 Capture text\n* B\n" @@ -459,7 +459,7 @@ (org-capture nil "t") (org-capture-finalize)) (buffer-string)))) - ;; Do not break next headline. + ;; Do not break next heading. (should-not (equal "- A\n- X\nFoo* H" @@ -699,7 +699,7 @@ :immediate-finish t :prepend t)))) (org-capture nil "t") (buffer-string))))) - ;; When a headline is specified, add it at the beginning of the + ;; When a heading is specified, add it at the beginning of the ;; entry, past any meta-data, or at its end, depending on ;; `:prepend'. (should diff --git a/testing/lisp/test-org-clock.el b/testing/lisp/test-org-clock.el index d2179e1ec..b72dd24d3 100644 --- a/testing/lisp/test-org-clock.el +++ b/testing/lisp/test-org-clock.el @@ -575,14 +575,14 @@ CLOCK: [2016-12-28 Wed 13:09]--[2016-12-28 Wed 15:09] => 2:00" (ert-deftest test-org-clock/clocktable/link () "Test \":link\" parameter in Clock table." ;; If there is no file attached to the document, link directly to - ;; the headline. + ;; the heading. (should (string-match-p "| +\\[\\[\\*Foo]\\[Foo]] +| 26:00 +|" (org-test-with-temp-text "* Foo CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (test-org-clock-clocktable-contents ":link t")))) - ;; Otherwise, link to the headline in the current file. + ;; Otherwise, link to the heading in the current file. (should (string-match-p "| \\[\\[file:filename::\\*Foo]\\[Foo]] +| 26:00 +|" @@ -597,7 +597,7 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (org-table-align) (buffer-substring-no-properties (point-min) (point-max))))) ;; Ignore TODO keyword, priority cookie, COMMENT and tags in - ;; headline. + ;; heading. (should (string-match-p "| \\[\\[\\*Foo]\\[Foo]] +| 26:00 +|" @@ -626,7 +626,7 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" "* Foo :tag: CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (test-org-clock-clocktable-contents ":link t :lang en")))) - ;; Remove statistics cookie from headline description. + ;; Remove statistics cookie from heading description. (should (string-match-p "| \\[\\[\\*Foo]\\[Foo]] +| 26:00 +|" @@ -660,7 +660,7 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (ert-deftest test-org-clock/clocktable/compact () "Test \":compact\" parameter in Clock table." - ;; With :compact, all headlines are in the same column. + ;; With :compact, all headings are in the same column. (should (equal "| Headline | Time | @@ -784,7 +784,7 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (ert-deftest test-org-clock/clocktable/tcolumns () "Test \":tcolumns\" parameter in Clock table." - ;; When :tcolumns is smaller than the deepest headline level, lump + ;; When :tcolumns is smaller than the deepest heading level, lump ;; lower levels in the last column. (should (equal @@ -800,7 +800,7 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00 ** Bar CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (test-org-clock-clocktable-contents ":tcolumns 1")))) - ;; :tcolumns cannot create more columns than the deepest headline + ;; :tcolumns cannot create more columns than the deepest heading ;; level. (should (equal @@ -816,7 +816,7 @@ CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00 ** Bar CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28 Wed 15:09] => 26:00" (test-org-clock-clocktable-contents ":tcolumns 3")))) - ;; Pathological case: when no headline contributes to the total + ;; Pathological case: when no heading contributes to the total ;; time, there is only one time column. (should (equal "| Headline | Time | diff --git a/testing/lisp/test-org-colview.el b/testing/lisp/test-org-colview.el index 64da5611d..f813aa8e1 100644 --- a/testing/lisp/test-org-colview.el +++ b/testing/lisp/test-org-colview.el @@ -67,7 +67,7 @@ (ert-deftest test-org-colview/columns-scope () "Test `org-columns' scope." - ;; Before the first headline, view all document. + ;; Before the first heading, view all document. (should (equal '("H1" "H2" "H3") @@ -85,7 +85,7 @@ (let ((org-columns-default-format "%ITEM")) (org-columns)) (org-map-entries (lambda () (get-char-property (point) 'org-columns-value)))))) - ;; Otherwise, view tree starting at the current headline. + ;; Otherwise, view tree starting at the current heading. (should (equal '(nil "H2" "H3" nil) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index ea9f97a64..53896175d 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -1182,7 +1182,7 @@ Some other text (org-element-parse-buffer) 'footnote-reference 'identity)))) -;;;; Headline +;;;; Heading (ert-deftest test-org-element/headline-todo-keyword () "Test todo keyword recognition." @@ -1190,7 +1190,7 @@ Some other text (org-test-with-temp-text "* TODO Headline" (let ((org-todo-keywords '((sequence "TODO" "DONE")))) (should (org-element-property :todo-keyword (org-element-at-point))))) - ;; Todo keyword is prefix of headlines first word. + ;; Todo keyword is prefix of headings first word. (org-test-with-temp-text "* TODOHeadline" (let ((org-todo-keywords '((sequence "TODO" "DONE")))) (should-not (org-element-property :todo-keyword (org-element-at-point)))))) @@ -2064,7 +2064,7 @@ e^{i\\pi}+1=0 (list (org-element-property :key element) (org-element-property :value element)))))) ;; The insides of property blocks on document level are parsed the - ;; same way as headline property blocks. I.e. the concept of + ;; same way as heading property blocks. I.e. the concept of ;; `node-property' apply also for properties in those blocks. (should (equal '("abc" "value") @@ -2227,7 +2227,7 @@ Outside list" :scheduled (org-test-with-temp-text "* H\nSCHEDULED: <2012-03-29 thu.>" (org-element-at-point)))) - ;; Planning line only exists right after a headline. + ;; Planning line only exists right after a heading. (should-not (eq 'planning (org-test-with-temp-text "DEADLINE: <2012-03-29 thu.>" @@ -2364,7 +2364,7 @@ Outside list" (should (org-test-with-temp-text "* Headline\nText" (org-element-map (org-element-parse-buffer) 'section 'identity))) - ;; There's a section before the first headline. + ;; There's a section before the first heading. (should (org-test-with-temp-text "Text" (org-element-map (org-element-parse-buffer) 'section 'identity))) @@ -3473,7 +3473,7 @@ Paragraph \\alpha." (should (= 2 (length (org-element-map tree 'headline 'identity)))) (should-not (org-element-map tree 'paragraph 'identity))) ;; 1.2. Granularity set to `greater-element' should not enter - ;; greater elements excepted headlines and sections. + ;; greater elements excepted headings and sections. (let ((tree (org-element-parse-buffer 'greater-element))) (should (= 1 (length (org-element-map tree 'center-block 'identity)))) (should (= 1 (length (org-element-map tree 'paragraph 'identity)))) @@ -3693,8 +3693,8 @@ Text (progn (search-forward "A") (org-element-type (org-element-property :parent (org-element-at-point))))))) - ;; Special case: at a blank line just below a headline, return that - ;; headline. + ;; Special case: at a blank line just below a heading, return that + ;; heading. (should (equal "H1" (org-test-with-temp-text "* H1\n \n* H2\n" (forward-line) @@ -3823,7 +3823,7 @@ Text (eq 'underline (org-test-with-temp-text "Some *text with _underline_ text*" (org-element-type (org-element-context (org-element-at-point)))))) - ;; Special case: bold object at the beginning of a headline. + ;; Special case: bold object at the beginning of a heading. (should (eq 'bold (org-test-with-temp-text "* *bold*" diff --git a/testing/lisp/test-org-footnote.el b/testing/lisp/test-org-footnote.el index 8751dc842..78baafab9 100644 --- a/testing/lisp/test-org-footnote.el +++ b/testing/lisp/test-org-footnote.el @@ -58,7 +58,7 @@ (org-test-with-temp-text " " (let ((org-footnote-auto-label t)) (org-footnote-new)) (buffer-string)))) - ;; In an headline or inlinetask, point must be either on the + ;; In an heading or inlinetask, point must be either on the ;; heading itself or on the blank lines below. (should (org-test-with-temp-text "* H" (org-footnote-new) t)) (should diff --git a/testing/lisp/test-org-list.el b/testing/lisp/test-org-list.el index 3689a172f..964752be6 100644 --- a/testing/lisp/test-org-list.el +++ b/testing/lisp/test-org-list.el @@ -946,7 +946,7 @@ b. Item 2" (ert-deftest test-org-list/update-checkbox-count () "Test `org-update-checkbox-count' specifications." - ;; From a headline. + ;; From a heading. (should (string-match "\\[0/1\\]" (org-test-with-temp-text "* [/]\n- [ ] item" @@ -1079,13 +1079,13 @@ b. Item 2" (org-test-with-temp-text "- line" (org-toggle-item nil) (buffer-string)))) - ;; Convert headlines to items. + ;; Convert headings to items. (should (equal "- line" (org-test-with-temp-text "* line" (org-toggle-item nil) (buffer-string)))) - ;; When converting a headline to a list item, TODO keywords become + ;; When converting a heading to a list item, TODO keywords become ;; checkboxes. (should (equal "- [X] line" @@ -1097,7 +1097,7 @@ b. Item 2" (org-test-with-temp-text "* TODO line" (org-toggle-item nil) (buffer-string)))) - ;; When turning headlines into items, make sure planning info line + ;; When turning headings into items, make sure planning info line ;; and properties drawers are removed. This also includes empty ;; lines following them. (should @@ -1122,8 +1122,8 @@ b. Item 2" (org-test-with-temp-text " \n* H :tag:" (org-toggle-item nil) (buffer-string)))) - ;; When a region is marked and first line is a headline, all - ;; headlines are turned into items. + ;; When a region is marked and first line is a heading, all + ;; headings are turned into items. (should (equal "- H1\n - H2" (org-test-with-temp-text "* H1\n** H2" @@ -1140,7 +1140,7 @@ b. Item 2" (goto-char (point-max)) (org-toggle-item nil) (buffer-string)))) - ;; When turning headlines into items, make sure headings contents + ;; When turning headings into items, make sure headings contents ;; are kept within items. (should (equal "- H1\n Text" diff --git a/testing/lisp/test-org-macro.el b/testing/lisp/test-org-macro.el index 1b4b791ca..9d52df485 100644 --- a/testing/lisp/test-org-macro.el +++ b/testing/lisp/test-org-macro.el @@ -107,9 +107,9 @@ (ert-deftest test-org-macro/property () "Test {{{property}}} macro." - ;; With only one argument, retrieve property from current headline. + ;; With only one argument, retrieve property from current heading. ;; Otherwise, the second argument is a search option to get the - ;; property from another headline. + ;; property from another heading. (should (equal "1" (org-test-with-temp-text diff --git a/testing/lisp/test-org-num.el b/testing/lisp/test-org-num.el index 7a247b04a..d52e84b19 100644 --- a/testing/lisp/test-org-num.el +++ b/testing/lisp/test-org-num.el @@ -76,7 +76,7 @@ (ert-deftest test-org-num/skip-numbering () "Test various skip numbering parameters." - ;; Skip commented headlines. + ;; Skip commented headings. (should (equal '(nil "1 ") (org-test-with-temp-text "* H1\n* COMMENT H2" @@ -156,7 +156,7 @@ (let ((org-num-skip-unnumbered t)) (org-num-mode 1)) (mapcar (lambda (o) (overlay-get o 'after-string)) (overlays-in (point-min) (point-max)))))) - ;; Do not choke on empty headlines. + ;; Do not choke on empty headings. (should (equal '("1 ") (org-test-with-temp-text "* " @@ -178,7 +178,7 @@ (ert-deftest test-org-num/update () "Test numbering update after a buffer modification." - ;; Headlines created at BEG. + ;; Headings created at BEG. (should (equal "1 " (org-test-with-temp-text "X* H" @@ -200,7 +200,7 @@ (insert " ") (overlay-get (car (overlays-at (line-beginning-position))) 'after-string)))) - ;; Headlines created at END. + ;; Headings created at END. (should (equal '("1 ") (org-test-with-temp-text "X H" @@ -215,7 +215,7 @@ (insert "\n") (mapcar (lambda (o) (overlay-get o 'after-string)) (overlays-in (point-min) (point-max)))))) - ;; Headlines created between BEG and END. + ;; Headings created between BEG and END. (should (equal '("1.1 " "1 ") (org-test-with-temp-text "" @@ -223,7 +223,7 @@ (insert "\n* H\n** H2") (mapcar (lambda (o) (overlay-get o 'after-string)) (overlays-in (point-min) (point-max)))))) - ;; Change level of a headline. + ;; Change level of a heading. (should (equal '("0.1 ") (org-test-with-temp-text "* H" @@ -255,7 +255,7 @@ (insert "o")) (mapcar (lambda (o) (overlay-get o 'after-string)) (overlays-in (point-min) (point-max)))))) - ;; Invalidate an overlay and insert new headlines. + ;; Invalidate an overlay and insert new headings. (should (equal '("1.2 " "1.1 " "1 ") (org-test-with-temp-text @@ -265,7 +265,7 @@ (insert "\n** H2\n** H3\n") (mapcar (lambda (o) (overlay-get o 'after-string)) (overlays-in (point-min) (point-max))))))) - ;; Invalidate two overlays: current headline and next one. + ;; Invalidate two overlays: current heading and next one. (should (equal '("1 ") (org-test-with-temp-text diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 18d41a0d2..e056bea2f 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -29,7 +29,7 @@ (ert-deftest test-org/toggle-comment () "Test `org-toggle-comment' specifications." - ;; Simple headline. + ;; Simple heading. (should (equal "* Test" (org-test-with-temp-text "* COMMENT Test" @@ -40,7 +40,7 @@ (org-test-with-temp-text "* Test" (org-toggle-comment) (buffer-string)))) - ;; Headline with a regular keyword. + ;; Heading with a regular keyword. (should (equal "* TODO Test" (org-test-with-temp-text "* TODO COMMENT Test" @@ -51,7 +51,7 @@ (org-test-with-temp-text "* TODO Test" (org-toggle-comment) (buffer-string)))) - ;; Empty headline. + ;; Empty heading. (should (equal "* " (org-test-with-temp-text "* COMMENT" @@ -62,7 +62,7 @@ (org-test-with-temp-text "* " (org-toggle-comment) (buffer-string)))) - ;; Headline with a single keyword. + ;; Heading with a single keyword. (should (equal "* TODO " (org-test-with-temp-text "* TODO COMMENT" @@ -73,7 +73,7 @@ (org-test-with-temp-text "* TODO" (org-toggle-comment) (buffer-string)))) - ;; Headline with a keyword, a priority cookie and contents. + ;; Heading with a keyword, a priority cookie and contents. (should (equal "* TODO [#A] Headline" (org-test-with-temp-text "* TODO [#A] COMMENT Headline" @@ -499,7 +499,7 @@ (org-test-with-temp-text "\n* T\n" (let ((org-adapt-indentation nil)) (org-insert-property-drawer)) (buffer-string)))) - ;; Insert drawer right after headline if there is no planning line, + ;; Insert drawer right after heading if there is no planning line, ;; or after it otherwise. (should (equal "* H\n:PROPERTIES:\n:END:\nParagraph" @@ -879,7 +879,7 @@ (ert-deftest test-org/indent-line () "Test `org-indent-line' specifications." - ;; Do not indent diary sexps, footnote definitions or headlines. + ;; Do not indent diary sexps, footnote definitions or headings. (should (zerop (org-test-with-temp-text "%%(org-calendar-holiday)" @@ -895,13 +895,13 @@ (org-test-with-temp-text "* H" (org-indent-line) (org-get-indentation)))) - ;; Do not indent before first headline. + ;; Do not indent before first heading. (should (zerop (org-test-with-temp-text "" (org-indent-line) (org-get-indentation)))) - ;; Indent according to headline level otherwise, unless + ;; Indent according to heading level otherwise, unless ;; `org-adapt-indentation' is nil. (should (= 2 @@ -1207,7 +1207,7 @@ "foo \n bar" (org-delete-indentation t) (buffer-string)))) - ;; At headline text should be appended to the headline text. + ;; At heading text should be appended to the heading text. (should (equal"* foo bar :tag:" (let (org-auto-align-tags) @@ -1328,14 +1328,14 @@ (org-test-with-temp-text "- A\n- B" (org-return t) (buffer-string)))) - ;; On tags part of a headline, add a newline below it instead of + ;; On tags part of a heading, add a newline below it instead of ;; breaking it. (should (equal "* H :tag:\n" (org-test-with-temp-text "* H :tag:" (org-return) (buffer-string)))) - ;; Before headline text, add a newline below it instead of breaking + ;; Before heading text, add a newline below it instead of breaking ;; it. (should (equal "* TODO H :tag:\n" @@ -1352,20 +1352,20 @@ (org-test-with-temp-text "* Todo" (org-return) (buffer-string)))) - ;; At headline text, break headline text but preserve tags. + ;; At heading text, break heading text but preserve tags. (should (equal "* TODO [#B] foo :tag:\nbar" (let (org-auto-align-tags) (org-test-with-temp-text "* TODO [#B] foobar :tag:" (org-return) (buffer-string))))) - ;; At bol of headline insert newline. + ;; At bol of heading insert newline. (should (equal "\n* h" (org-test-with-temp-text "* h" (org-return) (buffer-string)))) - ;; Refuse to leave invalid headline in buffer. + ;; Refuse to leave invalid heading in buffer. (should (equal "* h\n" (org-test-with-temp-text "* h" @@ -1517,20 +1517,20 @@ (ert-deftest test-org/insert-heading () "Test `org-insert-heading' specifications." - ;; In an empty buffer, insert a new headline. + ;; In an empty buffer, insert a new heading. (should (equal "* " (org-test-with-temp-text "" (org-insert-heading) (buffer-string)))) - ;; At the beginning of a line, turn it into a headline. + ;; At the beginning of a line, turn it into a heading. (should (equal "* P" (org-test-with-temp-text "P" (org-insert-heading) (buffer-string)))) ;; In the middle of a line, split the line if allowed, otherwise, - ;; insert the headline at its end. + ;; insert the heading at its end. (should (equal "Para\n* graph" (org-test-with-temp-text "Paragraph" @@ -1543,13 +1543,13 @@ (let ((org-M-RET-may-split-line '((default . nil)))) (org-insert-heading)) (buffer-string)))) - ;; At the beginning of a headline, create one above. + ;; At the beginning of a heading, create one above. (should (equal "* \n* H" (org-test-with-temp-text "* H" (org-insert-heading) (buffer-string)))) - ;; In the middle of a headline, split it if allowed. + ;; In the middle of a heading, split it if allowed. (should (equal "* H\n* 1" (org-test-with-temp-text "* H1" @@ -1582,7 +1582,7 @@ (let ((org-M-RET-may-split-line '((headline . t)))) (org-insert-heading)) (buffer-string)))) - ;; New headline level depends on the level of the headline above. + ;; New heading level depends on the level of the heading above. (should (equal "** H\n** P" (org-test-with-temp-text "** H\nP" @@ -1599,7 +1599,7 @@ (org-test-with-temp-text "** H" (org-insert-heading) (buffer-string)))) - ;; When called with one universal argument, insert a new headline at + ;; When called with one universal argument, insert a new heading at ;; the end of the current subtree, independently on the position of ;; point. (should @@ -1631,7 +1631,7 @@ (let ((org-insert-heading-respect-content nil)) (org-insert-heading '(4))) (buffer-string)))) - ;; When called with two universal arguments, insert a new headline + ;; When called with two universal arguments, insert a new heading ;; at the end of the grandparent subtree. (should (equal "* H1\n** H3\n- item\n** H2\n** " @@ -1676,7 +1676,7 @@ (let ((org-blank-before-new-entry '((heading . auto)))) (org-insert-heading)) (buffer-string)))) - ;; Corner case: correctly insert a headline after an empty one. + ;; Corner case: correctly insert a heading after an empty one. (should (equal "* \n* " (org-test-with-temp-text "* " @@ -1686,7 +1686,7 @@ (org-test-with-temp-text "* \n" (org-insert-heading) (looking-at-p "\n\\'"))) - ;; Do not insert spurious headlines when inserting a new headline. + ;; Do not insert spurious headings when inserting a new heading. (should (equal "* H1\n* H2\n* \n" (org-test-with-temp-text "* H1\n* H2\n" @@ -1701,7 +1701,7 @@ (let ((org-blank-before-new-entry '((heading . nil)))) (org-insert-heading '(4))) (invisible-p (line-end-position 0)))) - ;; Properly handle empty lines when forcing a headline below current + ;; Properly handle empty lines when forcing a heading below current ;; one. (should (equal "* H1\n\n* H\n\n* " @@ -1717,7 +1717,7 @@ (org-test-with-temp-text "* H1\n Body" (org-insert-todo-heading-respect-content) (nth 2 (org-heading-components)))) - ;; Add headline at the end of the first subtree + ;; Add heading at the end of the first subtree (should (equal "* TODO " @@ -1875,7 +1875,7 @@ (org-toggle-fixed-width) (buffer-string)))) ;; No region: Toggle on marker in blank lines after elements or just - ;; after a headline. + ;; after a heading. (should (equal "* H\n: " (org-test-with-temp-text "* H\n" @@ -1889,7 +1889,7 @@ (org-toggle-fixed-width) (buffer-string)))) ;; No region: Toggle on marker in front of one line elements (e.g., - ;; headlines, clocks) + ;; headings, clocks) (should (equal ": * Headline" (org-test-with-temp-text "* Headline" @@ -1977,7 +1977,7 @@ (org-test-with-temp-text "abc\n123" (org-kill-line) (buffer-string)))) - ;; When `org-special-ctrl-k' is non-nil and point is at a headline, + ;; When `org-special-ctrl-k' is non-nil and point is at a heading, ;; kill until tags. (should (equal "* A :tag:" @@ -1995,7 +1995,7 @@ (org-kill-line)) (buffer-string)))) ;; However, if point is at the beginning of the line, kill whole - ;; headline. + ;; heading. (should (equal "" (org-test-with-temp-text "* AB :tag:" @@ -2022,7 +2022,7 @@ -;;; Headline +;;; Heading (ert-deftest test-org/get-heading () "Test `org-get-heading' specifications." @@ -2102,7 +2102,7 @@ (equal "TODO [#A] H" (org-test-with-temp-text "* TODO [#A] COMMENT H" (org-get-heading nil nil nil t)))) - ;; On an empty headline, return value is consistent. + ;; On an empty heading, return value is consistent. (should (equal "" (org-test-with-temp-text "* " (org-get-heading)))) (should (equal "" (org-test-with-temp-text "* " (org-get-heading t)))) (should (equal "" (org-test-with-temp-text "* " (org-get-heading nil t)))) @@ -2112,7 +2112,7 @@ (ert-deftest test-org/in-commented-heading-p () "Test `org-in-commented-heading-p' specifications." - ;; Commented headline. + ;; Commented heading. (should (org-test-with-temp-text "* COMMENT Headline\nBody" (goto-char (point-max)) @@ -2140,7 +2140,7 @@ (ert-deftest test-org/in-archived-heading-p () "Test `org-in-archived-heading-p' specifications." - ;; Archived headline. + ;; Archived heading. (should (org-test-with-temp-text "* Headline :ARCHIVE:\nBody" (goto-char (point-max)) @@ -2207,16 +2207,16 @@ (ert-deftest test-org/get-outline-path () "Test `org-get-outline-path' specifications." - ;; Top-level headlines have no outline path. + ;; Top-level headings have no outline path. (should-not (org-test-with-temp-text "* H" (org-get-outline-path))) - ;; Otherwise, outline path is the path leading to the headline. + ;; Otherwise, outline path is the path leading to the heading. (should (equal '("H") (org-test-with-temp-text "* H\n** S" (org-get-outline-path)))) - ;; Find path even when point is not on a headline. + ;; Find path even when point is not on a heading. (should (equal '("H") (org-test-with-temp-text "* H\n** S\nText" @@ -2261,7 +2261,7 @@ (org-get-outline-path nil t) (search-forward "S2") (org-get-outline-path nil t)))) - ;; Do not choke on empty headlines. + ;; Do not choke on empty headings. (should (org-test-with-temp-text "* H\n** " (org-get-outline-path))) @@ -2695,7 +2695,7 @@ SCHEDULED: <2014-03-04 tue.>" ;;;; Fuzzy Links ;; Fuzzy links [[text]] encompass links to a target (<>), to -;; a named element (#+name: text) and to headlines (* Text). +;; a named element (#+name: text) and to headings (* Text). (ert-deftest test-org/fuzzy-links () "Test fuzzy links specifications." @@ -2710,7 +2710,7 @@ SCHEDULED: <2014-03-04 tue.>" (org-test-with-temp-text "Test\n#+NAME: Test\n|a|b|\n* Test\n[[Test]]" (let ((org-link-search-must-match-exact-headline nil)) (org-open-at-point)) (looking-at "#\\+NAME: Test"))) - ;; A target still lead to a matching headline otherwise. + ;; A target still lead to a matching heading otherwise. (should (org-test-with-temp-text "* Head1\n* Head2\n*Head3\n[[Head2]]" (let ((org-link-search-must-match-exact-headline nil)) (org-open-at-point)) @@ -2955,7 +2955,7 @@ Foo Bar (ert-deftest test-org/mark-subtree () "Test `org-mark-subtree' specifications." - ;; Error when point is before first headline. + ;; Error when point is before first heading. (should-error (org-test-with-temp-text "Paragraph\n* Headline\nBody" (progn (transient-mark-mode 1) @@ -3282,7 +3282,7 @@ SCHEDULED: <2017-05-06 Sat> (ert-deftest test-org/next-visible-heading () "Test `org-next-visible-heading' specifications." - ;; Move to the beginning of the next headline, taking into + ;; Move to the beginning of the next heading, taking into ;; consideration ARG. (should (org-test-with-temp-text "* H1\n* H2" @@ -3292,20 +3292,20 @@ SCHEDULED: <2017-05-06 Sat> (org-test-with-temp-text "* H1\n* H2\n* H3" (org-next-visible-heading 2) (looking-at "\\* H3"))) - ;; Ignore invisible headlines. + ;; Ignore invisible headings. (should (org-test-with-temp-text "* H1\n** H2\n* H3" (org-cycle) (org-next-visible-heading 1) (looking-at "\\* H3"))) - ;; Move point between headlines, not on blank lines between. + ;; Move point between headings, not on blank lines between. (should (org-test-with-temp-text "* H1\n** H2\n\n\n\n* H3" (let ((org-cycle-separator-lines 1)) (org-cycle) (org-next-visible-heading 1)) (looking-at "\\* H3"))) - ;; Move at end of buffer when there is no more headline. + ;; Move at end of buffer when there is no more heading. (should (org-test-with-temp-text "* H1" (org-next-visible-heading 1) @@ -3326,7 +3326,7 @@ SCHEDULED: <2017-05-06 Sat> (ert-deftest test-org/previous-visible-heading () "Test `org-previous-visible-heading' specifications." - ;; Move to the beginning of the next headline, taking into + ;; Move to the beginning of the next heading, taking into ;; consideration ARG. (should (org-test-with-temp-text "* H1\n* H2" @@ -3336,20 +3336,20 @@ SCHEDULED: <2017-05-06 Sat> (org-test-with-temp-text "* H1\n* H2\n* H3" (org-previous-visible-heading 2) (looking-at "\\* H1"))) - ;; Ignore invisible headlines. + ;; Ignore invisible headings. (should (org-test-with-temp-text "* H1\n** H2\n* H3" (org-overview) (org-previous-visible-heading 1) (looking-at "\\* H1"))) - ;; Move point between headlines, not on blank lines between. + ;; Move point between headings, not on blank lines between. (should (org-test-with-temp-text "* H1\n\n\n\n** H2\n* H3" (let ((org-cycle-separator-lines 1)) (org-overview) (org-previous-visible-heading 1)) (looking-at "\\* H1"))) - ;; Move at end of buffer when there is no more headline. + ;; Move at end of buffer when there is no more heading. (should (org-test-with-temp-text "* H1" (org-previous-visible-heading 1) @@ -3358,7 +3358,7 @@ SCHEDULED: <2017-05-06 Sat> (org-test-with-temp-text "* H1\n* H2" (org-previous-visible-heading 2) (bobp))) - ;; Invisible parts may not start at a headline, i.e., when revealing + ;; Invisible parts may not start at a heading, i.e., when revealing ;; parts of the buffer. Handle this. (should (org-test-with-temp-text "* Main\n** H1\nFoo\n** H2\nBar\n** H3\nBaz" @@ -3477,7 +3477,7 @@ SCHEDULED: <2017-05-06 Sat> (org-test-with-temp-text "* Headline\n:LOGBOOK:\nlogging\nContents" (org-end-of-meta-data t) (looking-at ":LOGBOOK:"))) - ;; Special case: Be careful about consecutive headlines. + ;; Special case: Be careful about consecutive headings. (should-not (org-test-with-temp-text "* H1\n*H2\nContents" (org-end-of-meta-data t) @@ -3530,7 +3530,7 @@ SCHEDULED: <2017-05-06 Sat> (dotimes (i 1000) (insert "very ")) (org-beginning-of-line) (bolp))) - ;; In a wide headline, with `visual-line-mode', prefer going to the + ;; In a wide heading, with `visual-line-mode', prefer going to the ;; beginning of a visual line than to the logical beginning of line, ;; even if special movement is active. (should-not @@ -3547,7 +3547,7 @@ SCHEDULED: <2017-05-06 Sat> (goto-char (point-max)) (let ((org-special-ctrl-a/e t)) (org-beginning-of-line)) (bobp))) - ;; At an headline with special movement, first move at beginning of + ;; At an heading with special movement, first move at beginning of ;; title, then at the beginning of line, rinse, repeat. (should (org-test-with-temp-text "* TODO Headline" @@ -3570,7 +3570,7 @@ SCHEDULED: <2017-05-06 Sat> (let ((org-special-ctrl-a/e '(nil . nil))) (org-beginning-of-line) (looking-at "Headline")))) - ;; At an headline with reversed movement, first move to beginning of + ;; At an heading with reversed movement, first move to beginning of ;; line, then to the beginning of title. (should (org-test-with-temp-text "* TODO Headline" @@ -3653,7 +3653,7 @@ SCHEDULED: <2017-05-06 Sat> (org-overview) (org-end-of-line) (eobp))) - ;; In a wide headline, with `visual-line-mode', prefer going to end + ;; In a wide heading, with `visual-line-mode', prefer going to end ;; of visible line if tags, or end of line, are farther. (should-not (org-test-with-temp-text "* A long headline" @@ -3669,7 +3669,7 @@ SCHEDULED: <2017-05-06 Sat> (goto-char (point-min)) (org-end-of-line) (eolp))) - ;; At an headline without special movement, go to end of line. + ;; At an heading without special movement, go to end of line. ;; However, never go past ellipsis. (should (org-test-with-temp-text "* Headline2b :tag:\n" @@ -3687,7 +3687,7 @@ SCHEDULED: <2017-05-06 Sat> (let ((org-special-ctrl-a/e nil)) (org-end-of-line) (= 1 (line-beginning-position))))) - ;; At an headline with special movement, first move before tags, + ;; At an heading with special movement, first move before tags, ;; then at the end of line, rinse, repeat. However, never go past ;; ellipsis. (should @@ -3715,7 +3715,7 @@ SCHEDULED: <2017-05-06 Sat> (org-end-of-line) (org-end-of-line) (= 1 (line-beginning-position))))) - ;; At an headline, with reversed movement, first go to end of line, + ;; At an heading, with reversed movement, first go to end of line, ;; then before tags. However, never go past ellipsis. (should (org-test-with-temp-text "* Headline3 :tag:\n" @@ -3815,7 +3815,7 @@ SCHEDULED: <2017-05-06 Sat> (org-test-with-temp-text "Paragraph 1.\n\nParagraph 2." (org-forward-sentence) (eobp))) - ;; Headlines are considered to be sentences by themselves, even if + ;; Headings are considered to be sentences by themselves, even if ;; they do not end with a full stop. (should (equal @@ -4132,19 +4132,19 @@ SCHEDULED: <2017-05-06 Sat> (org-test-with-temp-text "First paragraph.\n\n\nSecond paragraph." (org-forward-element) (should (looking-at (regexp-quote "Second paragraph.")))) - ;; 3. Headline tests. + ;; 3. Heading tests. (org-test-with-temp-text " * Head 1 ** Head 1.1 *** Head 1.1.1 ** Head 1.2" - ;; 3.1. At an headline beginning: move to next headline at the + ;; 3.1. At an heading beginning: move to next heading at the ;; same level. (goto-line 3) (org-forward-element) (should (looking-at (regexp-quote "** Head 1.2"))) - ;; 3.2. At an headline beginning: move to parent headline if no - ;; headline at the same level. + ;; 3.2. At an heading beginning: move to parent heading if no + ;; heading at the same level. (goto-line 3) (org-forward-element) (should (looking-at (regexp-quote "** Head 1.2")))) @@ -4219,23 +4219,23 @@ Outside." (end-of-line) (org-backward-element) (should (looking-at (regexp-quote "Paragraph2.")))) - ;; 4. Headline tests. + ;; 4. Heading tests. (org-test-with-temp-text " * Head 1 ** Head 1.1 *** Head 1.1.1 ** Head 1.2" - ;; 4.1. At an headline beginning: move to previous headline at the + ;; 4.1. At an heading beginning: move to previous heading at the ;; same level. (goto-line 5) (org-backward-element) (should (looking-at (regexp-quote "** Head 1.1"))) - ;; 4.2. At an headline beginning: move to parent headline if no - ;; headline at the same level. + ;; 4.2. At an heading beginning: move to parent heading if no + ;; heading at the same level. (goto-line 3) (org-backward-element) (should (looking-at (regexp-quote "* Head 1"))) - ;; 4.3. At the first top-level headline: should error. + ;; 4.3. At the first top-level heading: should error. (goto-line 2) (should-error (org-backward-element))) ;; 5. At beginning of first element inside a greater element: @@ -4245,7 +4245,7 @@ Outside." (org-backward-element) (should (looking-at "#\\+BEGIN_CENTER"))) ;; 6. At the beginning of the first element in a section: should - ;; move back to headline, if any. + ;; move back to heading, if any. (should (org-test-with-temp-text "#+TITLE: test\n* Headline\n\nParagraph" (progn (goto-char (point-max)) @@ -4305,7 +4305,7 @@ Outside." (org-test-with-temp-text "Paragraph1.\n\nParagraph2." (goto-line 3) (should-error (org-up-element))) - ;; 2. At an headline: move to parent headline. + ;; 2. At an heading: move to parent heading. (org-test-with-temp-text "* Head1\n** Sub-Head1\n** Sub-Head2" (goto-line 3) (org-up-element) @@ -4407,7 +4407,7 @@ Outside." (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER" (org-drag-element-backward)) :type 'user-error) - ;; Error when trying to swap an headline element and a non-headline + ;; Error when trying to swap an heading element and a non-heading ;; element. (should-error (org-test-with-temp-text "Test.\n* Head 1" @@ -4435,7 +4435,7 @@ Text. (mapcar (lambda (ov) (cons (overlay-start ov) (overlay-end ov))) (overlays-in (point-min) (point-max)))))) ;; Pathological case: handle call with point in blank lines right - ;; after a headline. + ;; after a heading. (should (equal "* H2\n\n* H1\nText\n" (org-test-with-temp-text "* H1\nText\n* H2\n\n" @@ -4452,8 +4452,8 @@ Text. (org-test-with-temp-text "#+BEGIN_CENTER\nTest.\n#+END_CENTER" (forward-line) (should-error (org-drag-element-forward))) - ;; 3. Error when trying to swap a non-headline element and an - ;; headline. + ;; 3. Error when trying to swap a non-heading element and an + ;; heading. (org-test-with-temp-text "Test.\n* Head 1" (should-error (org-drag-element-forward))) ;; 4. Error when called before first element. @@ -4831,9 +4831,9 @@ Text. (ert-deftest test-org/promote () "Test `org-promote' specifications." - ;; Return an error if headline is to be promoted to level 0, unless + ;; Return an error if heading is to be promoted to level 0, unless ;; `org-allow-promoting-top-level-subtree' is non-nil, in which case - ;; headline becomes a comment. + ;; heading becomes a comment. (should-error (org-test-with-temp-text "* H" (let ((org-allow-promoting-top-level-subtree nil)) (org-promote)))) @@ -5368,7 +5368,7 @@ Paragraph" (buffer-string)))) ;; When a region is active and ;; `org-loop-over-headlines-in-active-region' is non-nil, insert the - ;; same value in all headlines in region. + ;; same value in all headings in region. (should (equal "* H1\nDEADLINE: <2012-03-29>\n* H2\nDEADLINE: <2012-03-29>" (org-test-with-temp-text "* H1\n* H2" @@ -5482,7 +5482,7 @@ Paragraph" (buffer-string)))) ;; When a region is active and ;; `org-loop-over-headlines-in-active-region' is non-nil, insert the - ;; same value in all headlines in region. + ;; same value in all headings in region. (should (equal "* H1\nSCHEDULED: <2012-03-29>\n* H2\nSCHEDULED: <2012-03-29>" (org-test-with-temp-text "* H1\n* H2" @@ -6163,7 +6163,7 @@ Paragraph" (org-test-with-temp-text "* H" (org-entry-put (point) "A" "1") (buffer-string)))) - ;; Special case: two consecutive headlines. + ;; Special case: two consecutive headings. (should (string-match "\\* A\n *:PROPERTIES:" (org-test-with-temp-text "* A\n** B" @@ -6198,8 +6198,8 @@ Paragraph" (org-refresh-properties "A" 'org-test)) (get-text-property (point) 'org-test)))) ;; When a document level property-drawer is used, those properties - ;; should work exactly like headline-properties as if at a - ;; headline-level 0. + ;; should work exactly like heading-properties as if at a + ;; heading-level 0. (should (equal "1" (org-test-with-temp-text @@ -6328,21 +6328,21 @@ Paragraph" (let ((org-refile-use-outline-path nil) (org-refile-targets `((nil :maxlevel . 2)))) (mapcar #'car (org-refile-get-targets)))))) - ;; :level limits targets to headlines with the specified level. + ;; :level limits targets to headings with the specified level. (should (equal '("H2") (org-test-with-temp-text "* H1\n** H2\n*** H3" (let ((org-refile-use-outline-path nil) (org-refile-targets `((nil :level . 2)))) (mapcar #'car (org-refile-get-targets)))))) - ;; :tag limits targets to headlines with specified tag. + ;; :tag limits targets to headings with specified tag. (should (equal '("H1") (org-test-with-temp-text "* H1 :foo:\n** H2\n*** H3 :bar:" (let ((org-refile-use-outline-path nil) (org-refile-targets `((nil :tag . "foo")))) (mapcar #'car (org-refile-get-targets)))))) - ;; :todo limits targets to headlines with specified TODO keyword. + ;; :todo limits targets to headings with specified TODO keyword. (should (equal '("H2") (org-test-with-temp-text "* H1\n** TODO H2\n*** DONE H3" @@ -6356,7 +6356,7 @@ Paragraph" (let ((org-refile-use-outline-path nil) (org-refile-targets `((nil :regexp . "F")))) (mapcar #'car (org-refile-get-targets)))))) - ;; A nil `org-refile-targets' includes only top level headlines in + ;; A nil `org-refile-targets' includes only top level headings in ;; current buffer. (should (equal '("H1" "H2") @@ -6775,7 +6775,7 @@ Paragraph" ;; Return nil when there is no tag. (should-not (org-test-with-temp-text "* Test" (org-get-tags))) - ;; Tags are inherited from parent headlines. + ;; Tags are inherited from parent headings. (should (equal '("tag") (let ((org-use-tag-inheritance t)) @@ -6854,7 +6854,7 @@ Paragraph" (let ((org-use-tag-inheritance t)) (org-mode-restart) ;So that `org-file-tags' get populated from #+filetags (org-get-tags))))) - ;; Pathological case: tagged headline with an empty body. + ;; Pathological case: tagged heading with an empty body. (should (org-test-with-temp-text "* :tag:" (org-get-tags)))) (ert-deftest test-org/set-tags () @@ -6942,7 +6942,7 @@ Paragraph" (let ((org-after-tags-change-hook (lambda () (throw :return t)))) (org-set-tags '("foo")) nil)))) - ;; Special case: handle empty headlines. + ;; Special case: handle empty headings. (should (equal "* :tag0:" (org-test-with-temp-text "* " @@ -6965,11 +6965,11 @@ Paragraph" (set-buffer-modified-p nil) (let ((org-tags-column 10)) (org-set-tags '("bar"))) (buffer-modified-p))) - ;; Pathological case: when setting tags of a folded headline, do not + ;; Pathological case: when setting tags of a folded heading, do not ;; let new tags being sucked into invisibility. (should-not (org-test-with-temp-text "* H1\nContent\n* H2\n\n Other Content" - ;; Show only headlines + ;; Show only headings (org-content) ;; Set NEXT tag on current entry (org-set-tags ":NEXT:") @@ -6980,7 +6980,7 @@ Paragraph" (ert-deftest test-org/set-tags-command () "Test `org-set-tags-command' specifications" - ;; Set tags at current headline. + ;; Set tags at current heading. (should (equal "* H1 :foo:" (org-test-with-temp-text "* H1" @@ -7011,7 +7011,7 @@ Paragraph" (org-at-heading-p)))) ;; When a region is active and ;; `org-loop-over-headlines-in-active-region' is non-nil, insert the - ;; same value in all headlines in region. + ;; same value in all headings in region. (should (equal "* H1 :foo:\nContents\n* H2 :foo:" (org-test-with-temp-text "* H1\nContents\n* H2" @@ -7044,7 +7044,7 @@ Paragraph" (org-test-with-temp-text "* H1 :foo:\n* H2 :bar:" (let ((org-tags-column 1)) (org-set-tags-command '(4))) (buffer-string)))) - ;; Point does not move with empty headline. + ;; Point does not move with empty heading. (should (equal ":foo:" (org-test-with-temp-text "* " @@ -8105,7 +8105,7 @@ CLOSED: %s (org-test-with-temp-text "Preamble\n* Headline" (org-show-set-visibility 'tree) t)) - ;; Test all visibility spans, both on headline and in entry. + ;; Test all visibility spans, both on heading and in entry. (let ((list-visible-lines (lambda (state headerp) (org-test-with-temp-text "* Grandmother (0) diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 54558041b..20c85da12 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -410,7 +410,7 @@ Paragraph" '((template . (lambda (text info) (org-element-interpret-data (plist-get info :title)))))))))) - ;; When exporting a subtree, its heading becomes the headline of the + ;; When exporting a subtree, its heading becomes the heading of the ;; document... (should (equal @@ -440,7 +440,7 @@ Paragraph" (ert-deftest test-org-export/handle-options () "Test if export options have an impact on output." - ;; Test exclude tags for headlines and inlinetasks. + ;; Test exclude tags for headings and inlinetasks. (should (equal "" (let (org-export-filter-body-functions @@ -466,7 +466,7 @@ Paragraph" (:endgrouptag)))) (org-export-as (org-test-default-backend) nil nil nil '(:exclude-tags ("foo")))))))) - ;; Test include tags for headlines and inlinetasks. + ;; Test include tags for headings and inlinetasks. (should (equal (org-test-with-temp-text "* H1\n* H2\n** Sub :exp:\n*** Sub Sub\n* H3" (let ((org-tags-column 0)) @@ -486,7 +486,7 @@ Paragraph" (org-export-as (org-test-default-backend) nil nil nil '(:select-tags ("foo")))))))) ;; If there is an include tag, ignore the section before the first - ;; headline, if any. + ;; heading, if any. (should (equal (org-test-with-temp-text "First section\n* H1 :exp:\nBody" (let ((org-tags-column 0)) @@ -1154,7 +1154,7 @@ Text" (org-export-expand-include-keyword) (should (equal (buffer-string) "Small Org file with an include keyword.\n"))) - ;; Insertion with constraints on headlines level. + ;; Insertion with constraints on headings level. (should (equal "* Top heading\n** Heading\nbody\n" @@ -1317,7 +1317,7 @@ Footnotes[fn:2], foot[fn:test] and [fn:inline:inline footnote] org-test-dir) (org-export-expand-include-keyword) (buffer-string)))) - ;; Properties should be dropped from headlines. + ;; Properties should be dropped from headings. (should (equal (org-test-with-temp-text @@ -1516,7 +1516,7 @@ Footnotes[fn:2], foot[fn:test] and [fn:inline:inline footnote] (kill-buffer buffer)) (when (file-exists-p subdir) (delete-directory subdir t)) (when (file-exists-p includer) (delete-file includer))))))) - ;; Pathological case: Do not error when fixing a path in a headline. + ;; Pathological case: Do not error when fixing a path in a heading. (should (let* ((subdir (make-temp-file "org-includee-" t)) (includee (expand-file-name "includee.org" subdir)) @@ -2589,7 +2589,7 @@ Para2" (org-test-with-parsed-data "Text[fn:1]" (org-export-get-footnote-definition (org-element-map tree 'footnote-reference #'identity info t) info))) - ;; Footnote section should be ignored in TOC and in headlines + ;; Footnote section should be ignored in TOC and in headings ;; numbering. (should (= 1 (let ((org-footnote-section "Footnotes")) @@ -2607,7 +2607,7 @@ Para2" -;;; Headlines and Inlinetasks +;;; Headings and Inlinetasks (ert-deftest test-org-export/get-relative-level () "Test `org-export-get-relative-level' specifications." @@ -2662,13 +2662,13 @@ Para2" (ert-deftest test-org-export/numbered-headline-p () "Test `org-export-numbered-headline-p' specifications." - ;; If `:section-numbers' is nil, never number headlines. + ;; If `:section-numbers' is nil, never number headings. (should-not (org-test-with-parsed-data "* Headline" (org-element-map tree 'headline (lambda (h) (org-export-numbered-headline-p h info)) (plist-put info :section-numbers nil)))) - ;; If `:section-numbers' is a number, only number headlines with + ;; If `:section-numbers' is a number, only number headings with ;; a level greater that it. (should (equal @@ -2677,19 +2677,19 @@ Para2" (org-element-map tree 'headline (lambda (h) (if (org-export-numbered-headline-p h info) 'yes 'no)) (plist-put info :section-numbers 1))))) - ;; Otherwise, headlines are always numbered. + ;; Otherwise, headings are always numbered. (should (org-test-with-parsed-data "* Headline" (org-element-map tree 'headline (lambda (h) (org-export-numbered-headline-p h info)) (plist-put info :section-numbers t)))) - ;; With #+OPTIONS: num:nil all headlines are unnumbered. + ;; With #+OPTIONS: num:nil all headings are unnumbered. (should-not (org-test-with-parsed-data "* H\n#+OPTIONS: num:nil" (org-export-numbered-headline-p (org-element-map tree 'headline 'identity info t) info))) - ;; Headlines with a non-nil UNNUMBERED property are not numbered. + ;; Headings with a non-nil UNNUMBERED property are not numbered. (should-not (org-test-with-parsed-data "* H\n:PROPERTIES:\n:UNNUMBERED: t\n:END:" (org-export-numbered-headline-p @@ -2789,7 +2789,7 @@ Para2" Paragraph" (org-export-get-node-property :PROP (org-element-map tree 'paragraph 'identity nil t) t)))) - ;; Cannot return a value before the first headline. + ;; Cannot return a value before the first heading. (should-not (org-test-with-parsed-data "Paragraph * Headline @@ -2810,7 +2810,7 @@ Para2" :END:" (org-export-get-category (org-element-map tree 'headline 'identity nil t) info)))) - ;; Test inheritance from a parent headline. + ;; Test inheritance from a parent heading. (should (equal '("value" "value") (org-test-with-parsed-data "* Headline1 @@ -2857,14 +2857,14 @@ Para2" (org-element-map tree 'paragraph (lambda (h) (if (org-export-first-sibling-p h info) 'yes 'no)) info)))) - ;; Ignore sections for headlines. + ;; Ignore sections for headings. (should (equal '(yes yes) (org-test-with-parsed-data "* H\nSection\n** H 2" (org-element-map tree 'headline (lambda (h) (if (org-export-first-sibling-p h info) 'yes 'no)) info)))) - ;; Ignore headlines not exported. + ;; Ignore headings not exported. (should (equal '(yes) @@ -2890,7 +2890,7 @@ Para2" (org-element-map tree 'paragraph (lambda (h) (if (org-export-last-sibling-p h info) 'yes 'no)) info)))) - ;; Ignore headlines not exported. + ;; Ignore headings not exported. (should (equal '(yes) @@ -3168,9 +3168,9 @@ Para2" (ert-deftest test-org-export/fuzzy-link () "Test fuzzy links specifications." - ;; Link to an headline should return headline's number. + ;; Link to an heading should return heading's number. (should - ;; Note: Headline's number is in fact a list of numbers. + ;; Note: Heading's number is in fact a list of numbers. (equal '(2) (org-test-with-parsed-data "Paragraph.\n* Head1\n* Head2\n* Head3\n[[Head2]]" @@ -3226,7 +3226,7 @@ Paragraph[fn:1][fn:2][fn:lbl3:C<>][[test]][[target]] (org-element-map tree 'link (lambda (link) (org-export-resolve-fuzzy-link link info)) info t))) - ;; Statistics cookies are ignored for headline match. + ;; Statistics cookies are ignored for heading match. (should (org-test-with-parsed-data "* Head [0/0]\n[[Head]]" (org-element-map tree 'link @@ -3542,19 +3542,19 @@ Another text. (ref:text) (org-test-with-parsed-data "#+NAME: target\nParagraph\n\n[[target]]" (org-export-resolve-fuzzy-link (org-element-map tree 'link 'identity info t) info))) - ;; Match exact headline's name. + ;; Match exact heading's name. (should (org-test-with-parsed-data "* My headline\n[[My headline]]" (org-export-resolve-fuzzy-link (org-element-map tree 'link 'identity info t) info))) - ;; Targets objects have priority over headline titles. + ;; Targets objects have priority over heading titles. (should (eq 'target (org-test-with-parsed-data "* target\n<>[[target]]" (org-element-type (org-export-resolve-fuzzy-link (org-element-map tree 'link 'identity info t) info))))) - ;; Named elements have priority over headline titles. + ;; Named elements have priority over heading titles. (should (eq 'paragraph (org-test-with-parsed-data @@ -3562,7 +3562,7 @@ Another text. (ref:text) (org-element-type (org-export-resolve-fuzzy-link (org-element-map tree 'link 'identity info t) info))))) - ;; If link's path starts with a "*", only match headline titles, + ;; If link's path starts with a "*", only match heading titles, ;; though. (should (eq 'headline @@ -3578,7 +3578,7 @@ Another text. (ref:text) (org-export-resolve-fuzzy-link (org-element-map tree 'link #'identity info t) info) (org-link-broken t)))) - ;; Match fuzzy link even when before first headline. + ;; Match fuzzy link even when before first heading. (should (eq 'headline (org-test-with-parsed-data "[[hl]]\n* hl" @@ -4752,13 +4752,13 @@ This test does not cover listings and custom environments." (org-test-with-parsed-data "* H1\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) (org-export-collect-headlines info))))) - ;; Do not collect headlines below optional argument. + ;; Do not collect headings below optional argument. (should (equal '("H1") (org-test-with-parsed-data "* H1\n** H2" (mapcar (lambda (h) (org-element-property :raw-value h)) (org-export-collect-headlines info 1))))) - ;; Never collect headlines below maximum headline level. + ;; Never collect headings below maximum heading level. (should (equal '("H1") (org-test-with-parsed-data "#+OPTIONS: H:1\n* H1\n** H2" @@ -4776,8 +4776,8 @@ This test does not cover listings and custom environments." (org-test-with-parsed-data "* H1\n** Footnotes" (mapcar (lambda (h) (org-element-property :raw-value h)) (org-export-collect-headlines info)))))) - ;; Do not collect headlines with UNNUMBERED property set to "notoc". - ;; Headlines with another value for the property are still + ;; Do not collect headings with UNNUMBERED property set to "notoc". + ;; Headings with another value for the property are still ;; collected. UNNUMBERED property is inherited. (should (equal '("H1") @@ -4796,14 +4796,14 @@ This test does not cover listings and custom environments." "* H1\n* H2\n:PROPERTIES:\n:UNNUMBERED: t\n:END:" (mapcar (lambda (h) (org-element-property :raw-value h)) (org-export-collect-headlines info))))) - ;; Collect headlines locally. + ;; Collect headings locally. (should (equal '("H2" "H3") (org-test-with-parsed-data "* H1\n** H2\n** H3" (let ((scope (org-element-map tree 'headline #'identity info t))) (mapcar (lambda (h) (org-element-property :raw-value h)) (org-export-collect-headlines info nil scope)))))) - ;; Collect headlines from a scope specified by a fuzzy match + ;; Collect headings from a scope specified by a fuzzy match (should (equal '("H3" "H4") (org-test-with-parsed-data "* HA @@ -4828,7 +4828,7 @@ This test does not cover listings and custom environments." (save-excursion (insert "[[Target]]")) (org-element-link-parser)) info)))))) - ;; Collect headlines from a scope specified by CUSTOM_ID + ;; Collect headings from a scope specified by CUSTOM_ID (should (equal '("H3" "H4") (org-test-with-parsed-data "* Not this section @@ -4863,7 +4863,7 @@ This test does not cover listings and custom environments." (ert-deftest test-org-export/excluded-from-toc-p () "Test `org-export-excluded-from-toc-p' specifications." - ;; By default, headlines are not excluded. + ;; By default, headings are not excluded. (should-not (org-test-with-parsed-data "* H1" (org-element-map tree 'headline -- 2.33.0 --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: attachment; filename=0001-Fix-documentation-manuals-and-card.patch Content-Transfer-Encoding: quoted-printable >From 98b17ef4055d957ebf67d575515d69a53c077570 Mon Sep 17 00:00:00 2001 From: =3D?UTF-8?q?Andr=3DC3=3DA9=3D20A=3D2E=3D20Gomes?=3D Date: Tue, 5 Oct 2021 22:21:11 +0300 Subject: [PATCH 01/76] Fix documentation (manuals and card). --- doc/Documentation_Standards.org | 2 +- doc/org-guide.org | 120 +++--- doc/org-manual.org | 666 ++++++++++++++++---------------- doc/orgcard.tex | 8 +- 4 files changed, 398 insertions(+), 398 deletions(-) diff --git a/doc/Documentation_Standards.org b/doc/Documentation_Standards.= org index c4dd862db..2f18ab11f 100644 --- a/doc/Documentation_Standards.org +++ b/doc/Documentation_Standards.org @@ -112,7 +112,7 @@ version of the manual. =20 - Use example blocks for Org syntax instead of "begin_src org". =20 -- Internal links to headlines always start with a star. +- Internal links to headings always start with a star. =20 - Tags, node properties, are not shown with the surrounding colons. =20 diff --git a/doc/org-guide.org b/doc/org-guide.org index aa793f11a..bb110f812 100644 --- a/doc/org-guide.org +++ b/doc/org-guide.org @@ -107,31 +107,31 @@ worked on. Org greatly simplifies the use of outline= s by compressing the entire show and hide functionalities into a single command, ~org-cycle~, which is bound to the {{{kbd(TAB)}}} key. =20 -** Headlines +** Headings :PROPERTIES: :DESCRIPTION: How to typeset Org tree nodes. :END: =20 -Headlines define the structure of an outline tree. The headlines in +Headings define the structure of an outline tree. The headings in Org start on the left margin[fn:1] with one or more stars followed by a space. For example: =20 #+begin_example -,* Top level headline +,* Top level heading ,** Second level ,*** Third level some text ,*** Third level more text -,* Another top level headline +,* Another top level heading #+end_example =20 -Note that a headline named after ~org-footnote-section~, which +Note that a heading named after ~org-footnote-section~, which defaults to =3DFootnotes=3D, is considered as special. A subtree with -this headline will be silently ignored by exporting functions. +this heading will be silently ignored by exporting functions. =20 Some people find the many stars too noisy and would prefer an outline -that has whitespace followed by a single star as headline starters. +that has whitespace followed by a single star as heading starters. See [[*Miscellaneous]] for a setup to realize this. =20 ** Visibility Cycling @@ -166,7 +166,7 @@ Org uses just two commands, bound to {{{kbd(TAB)}}} and Show all, including drawers. =20 When Emacs first visits an Org file, the global state is set to -OVERVIEW, i.e., only the top level headlines are visible. This can be +OVERVIEW, i.e., only the top level headings are visible. This can be configured through the variable ~org-startup-folded~, or on a per-file basis by adding a =3DSTARTUP=3D keyword to =3Doverview=3D, =3Dcontent=3D, =3Dshowall=3D, =3Dshoweverything=3D or =3Dshowlevels=3D (n =3D 2..5) li= ke this: @@ -175,10 +175,10 @@ basis by adding a =3DSTARTUP=3D keyword to =3Dovervie= w=3D, =3Dcontent=3D, =20 ** Motion :PROPERTIES: -:DESCRIPTION: Jumping to other headlines. +:DESCRIPTION: Jumping to other headings. :END: =20 -The following commands jump to other headlines in the buffer. +The following commands jump to other headings in the buffer. =20 - {{{kbd(C-c C-n)}}} :: Next heading. =20 @@ -192,7 +192,7 @@ The following commands jump to other headlines in the b= uffer. =20 ** Structure Editing :PROPERTIES: -:DESCRIPTION: Changing sequence and level of headlines. +:DESCRIPTION: Changing sequence and level of headings. :END: =20 #+attr_texinfo: :sep , @@ -201,7 +201,7 @@ The following commands jump to other headlines in the b= uffer. Insert new heading with same level as current. If point is in a plain list item, a new item is created (see [[Plain Lists]]). When this command is used in the middle of a line, the line is split and - the rest of the line becomes the new headline[fn:2]. + the rest of the line becomes the new heading[fn:2]. =20 - {{{kbd(M-S-RET)}}} :: =20 @@ -231,7 +231,7 @@ The following commands jump to other headlines in the b= uffer. Narrow buffer to current subtree and widen it again. =20 When there is an active region (Transient Mark mode), promotion and -demotion work on all headlines in the region. +demotion work on all headings in the region. =20 ** Sparse Trees :PROPERTIES: @@ -241,7 +241,7 @@ demotion work on all headlines in the region. An important feature of Org mode is the ability to construct /sparse trees/ for selected information in an outline tree, so that the entire document is folded as much as possible, but the selected information -is made visible along with the headline structure above it[fn:3]. +is made visible along with the heading structure above it[fn:3]. Just try it out and you will see immediately how it works. =20 Org mode contains several commands creating such trees, all these @@ -305,7 +305,7 @@ an item (the line with the bullet or number). #+attr_texinfo: :sep , - {{{kbd(TAB)}}} :: =20 - Items can be folded just like headline levels. + Items can be folded just like heading levels. =20 - {{{kbd(M-RET)}}} :: =20 @@ -620,7 +620,7 @@ that you have to do, collected from many files. :ALT_TITLE: TODO Basics :END: =20 -Any headline becomes a TODO item when it starts with the word =3DTODO=3D, +Any heading becomes a TODO item when it starts with the word =3DTODO=3D, for example: =20 : *** TODO Write letter to Sam Fortune @@ -747,7 +747,7 @@ was marked as done. This can be achieved with[fn:4] #+texinfo: @noindent Then each time you turn an entry from a TODO (not-done) state into any of the DONE states, a line =3DCLOSED: [timestamp]=3D is inserted just -after the headline. +after the heading. =20 If you want to record a note along with the timestamp, use[fn:5] =20 @@ -766,7 +766,7 @@ entry with a =3DClosing Note=3D heading. =20 You might want to keep track of TODO state changes. You can either record just a timestamp, or a time-stamped note for a change. These -records are inserted after the headline as an itemized list. When +records are inserted after the heading as an itemized list. When taking a lot of notes, you might want to get the notes out of the way into a drawer. Customize the variable ~org-log-into-drawer~ to get this behavior. @@ -791,7 +791,7 @@ works also when setting ~org-todo-keywords~. =20 If you use Org mode extensively, you may end up with enough TODO items that it starts to make sense to prioritize them. Prioritizing can be -done by placing a /priority cookie/ into the headline of a TODO item, +done by placing a /priority cookie/ into the heading of a TODO item, like this =20 : *** TODO [#A] Write letter to Sam Fortune @@ -803,13 +803,13 @@ a difference only in the agenda. #+attr_texinfo: :sep ; - {{{kbd(C-c \,)}}} :: =20 - Set the priority of the current headline. Press {{{kbd(A)}}}, + Set the priority of the current heading. Press {{{kbd(A)}}}, {{{kbd(B)}}} or {{{kbd(C)}}} to select a priority, or {{{kbd(SPC)}}} to remove the cookie. =20 - {{{kbd(S-UP)}}} (~org-priority-up~); {{{kbd(S-DOWN)}}} (~org-priority-do= wn~) :: =20 - Increase/decrease the priority of the current headline. + Increase/decrease the priority of the current heading. =20 ** Breaking Tasks Down into Subtasks :PROPERTIES: @@ -821,7 +821,7 @@ It is often advisable to break down large tasks into sm= aller, manageable subtasks. You can do this by creating an outline tree below a TODO item, with detailed subtasks on the tree. To keep an overview of the fraction of subtasks that have already been marked -as done, insert either =3D[/]=3D or =3D[%]=3D anywhere in the headline. T= hese +as done, insert either =3D[/]=3D or =3D[%]=3D anywhere in the heading. Th= ese cookies are updated each time the TODO status of a child changes, or when pressing {{{kbd(C-c C-c)}}} on the cookie. For example: =20 @@ -873,18 +873,18 @@ The following commands work with checkboxes: =20 * Tags :PROPERTIES: -:DESCRIPTION: Tagging headlines and matching sets of tags. +:DESCRIPTION: Tagging headings and matching sets of tags. :END: =20 An excellent way to implement labels and contexts for -cross-correlating information is to assign /tags/ to headlines. Org +cross-correlating information is to assign /tags/ to headings. Org mode has extensive support for tags. =20 -Every headline can contain a list of tags; they occur at the end of -the headline. Tags are normal words containing letters, numbers, =3D_=3D, +Every heading can contain a list of tags; they occur at the end of +the heading. Tags are normal words containing letters, numbers, =3D_=3D, and =3D@=3D. Tags must be preceded and followed by a single colon, e.g., =3D:work:=3D. Several tags can be specified, as in =3D:work:urgent:=3D. = Tags -by default are in bold face with the same color as the headline. +by default are in bold face with the same color as the heading. =20 ** Tag inheritance :PROPERTIES: @@ -917,19 +917,19 @@ surrounds the entire file. Use a line like this[fn:6= ]: :UNNUMBERED: notoc :END: =20 -Tags can simply be typed into the buffer at the end of a headline. +Tags can simply be typed into the buffer at the end of a heading. After a colon, {{{kbd(M-TAB)}}} offers completion on tags. There is also a special command for inserting tags: =20 - {{{kbd(C-c C-q)}}} :: =20 - Enter new tags for the current headline. Org mode either offers + Enter new tags for the current heading. Org mode either offers completion or a special single-key interface for setting tags, see below. =20 - {{{kbd(C-c C-c)}}} :: =20 - When point is in a headline, this does the same as {{{kbd(C-c + When point is in a heading, this does the same as {{{kbd(C-c C-q)}}}. =20 Org supports tag insertion based on a /list of tags/. By default this @@ -980,7 +980,7 @@ or, if tags in the group should be mutually exclusive: =20 When you search for a group tag, it return matches for all members in the group and its subgroups. In an agenda view, filtering by a group -tag displays or hide headlines tagged with at least one of the members +tag displays or hide headings tagged with at least one of the members of the group or any of its subgroups. =20 If you want to ignore group tags temporarily, toggle group tags @@ -993,8 +993,8 @@ support with ~org-toggle-tags-groups~, bound to {{{kbd(= C-c C-x q)}}}. =20 - {{{kbd(C-c / m)}}} or {{{kbd(C-c \)}}} :: =20 - Create a sparse tree with all headlines matching a tags search. - With a {{{kbd(C-u)}}} prefix argument, ignore headlines that are not + Create a sparse tree with all headings matching a tags search. + With a {{{kbd(C-u)}}} prefix argument, ignore headings that are not a TODO line. =20 - {{{kbd(M-x org-agenda m)}}} :: @@ -1091,7 +1091,7 @@ time information is called a /timestamp/ in Org mode. A timestamp is a specification of a date---possibly with a time or a range of times---in a special format, either =3D<2003-09-16 Tue>=3D or =3D<2003-09-16 Tue 09:39>=3D or =3D<2003-09-16 Tue 12:00-12:30>=3D. -A timestamp can appear anywhere in the headline or body of an Org tree +A timestamp can appear anywhere in the heading or body of an Org tree entry. Its presence causes entries to be shown on specific dates in the agenda (see [[*The Weekly/daily Agenda]]). We distinguish: =20 @@ -1207,7 +1207,7 @@ planning: - {{{kbd(C-c C-d)}}} :: =20 Insert =3DDEADLINE=3D keyword along with a time stamp, in the line - following the headline. + following the heading. =20 Meaning: the task---most likely a TODO item, though not necessarily---is supposed to be finished on that date. @@ -1227,12 +1227,12 @@ planning: - {{{kbd(C-c C-s)}}} :: =20 Insert =3DSCHEDULED=3D keyword along with a stamp, in the line following - the headline. + the heading. =20 Meaning: you are planning to start working on that task on the given date[fn:7]. =20 - The headline is listed under the given date[fn:8]. In addition, + The heading is listed under the given date[fn:8]. In addition, a reminder that the scheduled date has passed is present in the compilation for /today/, until the entry is marked as done, i.e., the task is automatically forwarded until completed. @@ -1290,7 +1290,7 @@ a project. =20 - {{{kbd(C-c C-x C-j)}}} :: =20 - Jump to the headline of the currently clocked in task. With + Jump to the heading of the currently clocked in task. With a {{{kbd(C-u)}}} prefix argument, select the target task from a list of recently clocked tasks. =20 @@ -1374,7 +1374,7 @@ configuration would look like: =20 #+begin_src emacs-lisp (setq org-capture-templates - '(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks") + '(("t" "Todo" entry (file+heading "~/org/gtd.org" "Tasks") "* TODO %?\n %i\n %a") ("j" "Journal" entry (file+datetree "~/org/journal.org") "* %?\nEntered on %U\n %i\n %a"))) @@ -1415,7 +1415,7 @@ special command: completion. The item (or all items in the region) is filed below the target heading as a subitem. =20 - By default, all level 1 headlines in the current buffer are + By default, all level 1 headings in the current buffer are considered to be targets, but you can have more complex definitions across a number of files. See the variable ~org-refile-targets~ for details. @@ -1475,7 +1475,7 @@ example: :END: =20 Due to the way Org works, TODO items, time-stamped items, and tagged -headlines can be scattered throughout a file or even a number of +headings can be scattered throughout a file or even a number of files. To get an overview of open action items, or of events that are important for a particular date, this information must be collected, sorted and displayed in an organized way. @@ -1535,7 +1535,7 @@ commands: =20 - {{{kbd(m)}}}, {{{kbd(M)}}} :: =20 - Create a list of headlines matching a given expression (see + Create a list of headings matching a given expression (see [[*Matching Tags and Properties]]). =20 - {{{kbd(s)}}} :: @@ -1607,15 +1607,15 @@ Buffer]]. :DESCRIPTION: Structured information with fine-tuned search. :END: =20 -If headlines in the agenda files are marked with /tags/ (see [[*Tags]]), -or have properties (see [[*Properties]]), you can select headlines based +If headings in the agenda files are marked with /tags/ (see [[*Tags]]), +or have properties (see [[*Properties]]), you can select headings based on this metadata and collect them into an agenda buffer. The match syntax described here also applies when creating sparse trees with {{{kbd(C-c / m)}}}. =20 - {{{kbd(M-x org-agenda m)}}} :: =20 - Produce a list of all headlines that match a given set of tags. The + Produce a list of all headings that match a given set of tags. The command prompts for a selection criterion, which is a boolean logic expression with tags, like =3D+work+urgent-withboss=3D or =3Dwork|home=3D (see [[*Tags]]). If you often need a specific search, define a custom @@ -1623,7 +1623,7 @@ syntax described here also applies when creating spar= se trees with =20 - {{{kbd(M-x org-agenda M)}}} :: =20 - Like {{{kbd(m)}}}, but only select headlines that are also TODO + Like {{{kbd(m)}}}, but only select headings that are also TODO items. =20 A search string can use Boolean operators =3D&=3D for AND and =3D|=3D for = OR. @@ -1638,7 +1638,7 @@ only tags. =20 - =3D+work-boss=3D :: =20 - Select headlines tagged =3Dwork=3D, but discard those also tagged + Select headings tagged =3Dwork=3D, but discard those also tagged =3Dboss=3D. =20 - =3Dwork|laptop=3D :: @@ -1811,7 +1811,7 @@ the agenda menu and the manual for a complete list. =20 - {{{kbd($)}}} :: =20 - Archive the subtree corresponding to the current headline. + Archive the subtree corresponding to the current heading. =20 - {{{kbd(C-c C-s)}}} :: =20 @@ -1900,12 +1900,12 @@ matching. The example above will therefore define: =20 - {{{kbd(u)}}} :: =20 - as a global tags search for headlines tagged =3Dboss=3D but not + as a global tags search for headings tagged =3Dboss=3D but not =3Durgent=3D. =20 - {{{kbd(v)}}} :: =20 - The same search, but limiting it to headlines that are also TODO + The same search, but limiting it to headings that are also TODO items. =20 * Markup for Rich Contents @@ -2137,8 +2137,8 @@ pressing {{{kbd(#)}}}. :DESCRIPTION: The if and where of the table of contents. :END: =20 -The table of contents includes all headlines in the document. Its -depth is therefore the same as the headline levels in the file. If +The table of contents includes all headings in the document. Its +depth is therefore the same as the heading levels in the file. If you need to use a different depth, or turn it off entirely, set the ~org-export-with-toc~ variable accordingly. You can achieve the same on a per file basis, using the following =3Dtoc=3D item in =3DOPTIONS=3D @@ -2150,7 +2150,7 @@ keyword: #+end_example =20 Org normally inserts the table of contents directly before the first -headline of the file. +heading of the file. =20 ** Include Files :PROPERTIES: @@ -2185,7 +2185,7 @@ are not exported. =20 Finally, a =3DCOMMENT=3D keyword at the beginning of an entry, but after any other keyword or priority cookie, comments out the entire subtree. -The command below helps changing the comment status of a headline. +The command below helps changing the comment status of a heading. =20 - {{{kbd(C-c ;)}}} :: =20 @@ -2555,8 +2555,8 @@ involved. Type one or more letters and invoke the ho= t key to complete the text in-place. =20 For example, this command will complete TeX symbols after =3D\=3D, TODO -keywords at the beginning of a headline, and tags after =3D:=3D in -a headline. +keywords at the beginning of a heading, and tags after =3D:=3D in +a heading. =20 =20 ** Structure Templates @@ -2584,13 +2584,13 @@ indentation scheme, as shown on the right in the fo= llowing table. It uses only one star and indents text to line with the heading: =20 #+begin_example -,* Top level headline | * Top level headline +,* Top level heading | * Top level heading ,** Second level | * Second level ,*** Third level | * Third level some text | some text ,*** Third level | * Third level more text | more text -,* Another top level headline | * Another top level headline +,* Another top level heading | * Another top level heading #+end_example =20 This kind of view can be achieved dynamically at display time using @@ -2604,7 +2604,7 @@ can turn it on for individual files using If you want the indentation to be hard space characters so that the plain text file looks as similar as possible to the Emacs display, Org supports you by helping to indent (with {{{kbd(TAB)}}}) text below -each headline, by hiding leading stars, and by only using levels 1, 3, +each heading, by hiding leading stars, and by only using levels 1, 3, etc to get two characters indentation for each level. To get this support in a file, use =20 @@ -2623,7 +2623,7 @@ support in a file, use * Footnotes =20 [fn:1] See the variable ~org-special-ctrl-a/e~ to configure special -behavior of {{{kbd(C-a)}}} and {{{kbd(C-e)}}} in headlines. +behavior of {{{kbd(C-a)}}} and {{{kbd(C-e)}}} in headings. =20 [fn:2] If you do not want the line to be split, customize the variable ~org-M-RET-may-split-line~. diff --git a/doc/org-manual.org b/doc/org-manual.org index 2cb538975..9843c7242 100644 --- a/doc/org-manual.org +++ b/doc/org-manual.org @@ -376,28 +376,28 @@ worked on. Org greatly simplifies the use of outline= s by compressing the entire show and hide functionalities into a single command, ~org-cycle~, which is bound to the {{{kbd(TAB)}}} key. =20 -** Headlines +** Headings :PROPERTIES: -:DESCRIPTION: How to typeset Org tree headlines. +:DESCRIPTION: How to typeset Org tree headings. :END: -#+cindex: headlines +#+cindex: headings #+cindex: outline tree #+vindex: org-special-ctrl-a/e #+vindex: org-special-ctrl-k #+vindex: org-ctrl-k-protect-subtree =20 -Headlines define the structure of an outline tree. Org headlines +Headings define the structure of an outline tree. Org headings start on the left margin[fn:3] with one or more stars followed by a space. For example: =20 #+begin_example -,* Top level headline +,* Top level heading ,** Second level ,*** Third level some text ,*** Third level more text -,* Another top level headline +,* Another top level heading #+end_example =20 #+vindex: org-footnote-section @@ -405,12 +405,12 @@ The name defined in ~org-footnote-section~ is reserve= d. Do not use it as a title for your own headings. =20 Some people find the many stars too noisy and would prefer an outline -that has whitespace followed by a single star as headline starters. +that has whitespace followed by a single star as heading starters. This can be achieved using a Org Indent minor mode. See [[*A Cleaner Outline View]] for more information. =20 -Headlines are not numbered. However, you may want to dynamically -number some, or all, of them. See [[*Dynamic Headline Numbering]]. +Headings are not numbered. However, you may want to dynamically +number some, or all, of them. See [[*Dynamic Heading Numbering]]. =20 #+vindex: org-cycle-separator-lines An empty line after the end of a subtree is considered part of it and @@ -456,7 +456,7 @@ Org uses just two commands, bound to {{{kbd(TAB)}}} and #+end_example =20 #+vindex: org-cycle-emulate-tab - Point must be on a headline for this to work[fn:4]. + Point must be on a heading for this to work[fn:4]. =20 - {{{kbd(S-TAB)}}} (~org-global-cycle~), {{{kbd(C-u TAB)}}} :: =20 @@ -476,7 +476,7 @@ Org uses just two commands, bound to {{{kbd(TAB)}}} and #+end_example =20 When {{{kbd(S-TAB)}}} is called with a numeric prefix argument - {{{var(N)}}}, view contents only up to headlines of level + {{{var(N)}}}, view contents only up to headings of level {{{var(N)}}}. =20 Note that inside tables (see [[*Tables]]), {{{kbd(S-TAB)}}} jumps to the @@ -484,7 +484,7 @@ Org uses just two commands, bound to {{{kbd(TAB)}}} and =20 #+vindex: org-cycle-global-at-bob You can run global cycling using {{{kbd(TAB)}}} only if point is at - the very beginning of the buffer, but not on a headline, and + the very beginning of the buffer, but not on a heading, and ~org-cycle-global-at-bob~ is set to a non-~nil~ value. =20 - {{{kbd(C-u C-u TAB)}}} (~org-set-startup-visibility~) :: @@ -599,13 +599,13 @@ invisible edits and process them. =20 ** Motion :PROPERTIES: -:DESCRIPTION: Jumping to other headlines. +:DESCRIPTION: Jumping to other headings. :END: -#+cindex: motion, between headlines -#+cindex: jumping, to headlines -#+cindex: headline navigation +#+cindex: motion, between headings +#+cindex: jumping, to headings +#+cindex: heading navigation =20 -The following commands jump to other headlines in the buffer. +The following commands jump to other headings in the buffer. =20 - {{{kbd(C-c C-n)}}} (~org-next-visible-heading~) :: =20 @@ -648,7 +648,7 @@ The following commands jump to other headlines in the b= uffer. =20 #+attr_texinfo: :columns 0.3 0.7 | {{{kbd(TAB)}}} | Cycle visibility. | - | {{{kbd(DOWN)}}} / {{{kbd(UP)}}} | Next/previous visible headline. | + | {{{kbd(DOWN)}}} / {{{kbd(UP)}}} | Next/previous visible heading. | | {{{kbd(RET)}}} | Select this location. | | {{{kbd(/)}}} | Do a Sparse-tree search | =20 @@ -656,8 +656,8 @@ The following commands jump to other headlines in the b= uffer. The following keys work if you turn off ~org-goto-auto-isearch~ =20 #+attr_texinfo: :columns 0.3 0.7 - | {{{kbd(n)}}} / {{{kbd(p)}}} | Next/previous visible headline. | - | {{{kbd(f)}}} / {{{kbd(b)}}} | Next/previous headline same level. | + | {{{kbd(n)}}} / {{{kbd(p)}}} | Next/previous visible heading. | + | {{{kbd(f)}}} / {{{kbd(b)}}} | Next/previous heading same level. | | {{{kbd(u)}}} | One level up. | | {{{kbd(0)}}} ... {{{kbd(9)}}} | Digit argument. | | {{{kbd(q)}}} | Quit. | @@ -668,10 +668,10 @@ The following commands jump to other headlines in the= buffer. =20 ** Structure Editing :PROPERTIES: -:DESCRIPTION: Changing sequence and level of headlines. +:DESCRIPTION: Changing sequence and level of headings. :END: #+cindex: structure editing -#+cindex: headline, promotion and demotion +#+cindex: heading, promotion and demotion #+cindex: promotion, of subtrees #+cindex: demotion, of subtrees #+cindex: subtree, cut and paste @@ -695,7 +695,7 @@ The following commands jump to other headlines in the b= uffer. beginning of a regular line of text, turn that line into a heading. =20 When this command is used in the middle of a line, the line is split - and the rest of the line becomes the new item or headline. If you + and the rest of the line becomes the new item or heading. If you do not want the line to be split, customize ~org-M-RET-may-split-line~. =20 @@ -723,7 +723,7 @@ The following commands jump to other headlines in the b= uffer. #+kindex: C-S-RET #+findex: org-insert-todo-heading-respect-content Insert new TODO entry with same level as current heading. Like - {{{kbd(C-RET)}}}, the new headline is inserted after the current + {{{kbd(C-RET)}}}, the new heading is inserted after the current subtree. =20 - {{{kbd(TAB)}}} (~org-cycle~) :: @@ -748,10 +748,10 @@ The following commands jump to other headlines in the= buffer. #+cindex: active region #+cindex: transient mark mode When there is an active region---i.e., when Transient Mark mode is - active---promotion and demotion work on all headlines in the region. - To select a region of headlines, it is best to place both point and + active---promotion and demotion work on all headings in the region. + To select a region of headings, it is best to place both point and mark at the beginning of a line, mark at the beginning of the first - headline, and point at the line just after the last headline to + heading, and point at the line just after the last heading to change. =20 - {{{kbd(M-S-LEFT)}}} (~org-promote-subtree~) :: @@ -806,7 +806,7 @@ The following commands jump to other headlines in the b= uffer. Yank subtree from kill ring. This does modify the level of the subtree to make sure the tree fits in nicely at the yank position. The yank level can also be specified with a numeric prefix argument, - or by yanking after a headline marker like =3D****=3D. + or by yanking after a heading marker like =3D****=3D. =20 - {{{kbd(C-y)}}} (~org-yank~) :: =20 @@ -849,7 +849,7 @@ The following commands jump to other headlines in the b= uffer. #+findex: org-sort Sort same-level entries. When there is an active region, all entries in the region are sorted. Otherwise the children of the - current headline are sorted. The command prompts for the sorting + current heading are sorted. The command prompts for the sorting method, which can be alphabetically, numerically, by time---first timestamp with active preferred, creation time, scheduled time, deadline time---by priority, by TODO keyword---in the sequence the @@ -880,13 +880,13 @@ The following commands jump to other headlines in the= buffer. =20 #+kindex: C-c * #+findex: org-toggle-heading - Turn a normal line or plain list item into a headline---so that it - becomes a subheading at its location. Also turn a headline into + Turn a normal line or plain list item into a heading---so that it + becomes a subheading at its location. Also turn a heading into a normal line by removing the stars. If there is an active region, - turn all lines in the region into headlines. If the first line in - the region was an item, turn only the item lines into headlines. - Finally, if the first line is a headline, remove the stars from all - headlines in the region. + turn all lines in the region into headings. If the first line in + the region was an item, turn only the item lines into headings. + Finally, if the first line is a heading, remove the stars from all + headings in the region. =20 Note that when point is inside a table (see [[*Tables]]), the Meta-Cursor keys have different functionality. @@ -904,7 +904,7 @@ keys have different functionality. An important feature of Org mode is the ability to construct /sparse trees/ for selected information in an outline tree, so that the entire document is folded as much as possible, but the selected information -is made visible along with the headline structure above it[fn:7]. +is made visible along with the heading structure above it[fn:7]. Just try it out and you will see immediately how it works. =20 Org mode contains several commands creating such trees, all these @@ -924,11 +924,11 @@ commands can be accessed through a dispatcher: #+findex: org-occur #+vindex: org-remove-highlights-with-change Prompts for a regexp (see [[*Regular Expressions]]) and shows a sparse - tree with all matches. If the match is in a headline, the headline - is made visible. If the match is in the body of an entry, headline + tree with all matches. If the match is in a heading, the heading + is made visible. If the match is in the body of an entry, heading and body are made visible. In order to provide minimal context, - also the full hierarchy of headlines above the match is shown, as - well as the headline following the match. Each match is also + also the full hierarchy of headings above the match is shown, as + well as the heading following the match. Each match is also highlighted; the highlights disappear when the buffer is changed by an editing command, or by pressing {{{kbd(C-c C-c)}}}[fn:8]. When called with a {{{kbd(C-u)}}} prefix argument, previous highlights @@ -1065,12 +1065,12 @@ to disable them individually. #+kindex: TAB #+findex: org-cycle #+vindex: org-cycle-include-plain-lists - Items can be folded just like headline levels. Normally this works + Items can be folded just like heading levels. Normally this works only if point is on a plain list item. For more details, see the variable ~org-cycle-include-plain-lists~. If this variable is set to ~integrate~, plain list items are treated like low-level - headlines. The level of an item is then given by the indentation of - the bullet/number. Items are always subordinate to real headlines, + headings. The level of an item is then given by the indentation of + the bullet/number. Items are always subordinate to real headings, however; the hierarchies remain completely separated. In a new item with no text yet, the first {{{kbd(TAB)}}} demotes the item to become a child of the previous one. Subsequent {{{kbd(TAB)}}}s move @@ -1162,7 +1162,7 @@ to disable them individually. - {{{kbd(C-c *)}}} :: =20 #+kindex: C-c * - Turn a plain list item into a headline---so that it becomes + Turn a plain list item into a heading---so that it becomes a subheading at its location. See [[*Structure Editing]], for a detailed explanation. =20 @@ -1198,11 +1198,11 @@ to disable them individually. =20 Sometimes you want to keep information associated with an entry, but you normally do not want to see it. For this, Org mode has /drawers/. -They can contain anything but a headline and another drawer. Drawers +They can contain anything but a heading and another drawer. Drawers look like this: =20 #+begin_example -,** This is a headline +,** This is a heading Still outside the drawer :DRAWERNAME: This is inside the drawer. @@ -1216,14 +1216,14 @@ You can interactively insert a drawer at point by c= alling ~org-insert-drawer~, which is bound to {{{kbd(C-c C-x d)}}}. With an active region, this command puts the region inside the drawer. With a prefix argument, this command calls ~org-insert-property-drawer~, -which creates a =3DPROPERTIES=3D drawer right below the current headline. +which creates a =3DPROPERTIES=3D drawer right below the current heading. Org mode uses this special drawer for storing properties (see [[*Properties and Columns]]). You cannot use it for anything else. =20 Completion over drawer keywords is also possible using {{{kbd(M-TAB)}}}[fn:16]. =20 -Visibility cycling (see [[*Visibility Cycling]]) on the headline hides and +Visibility cycling (see [[*Visibility Cycling]]) on the heading hides and shows the entry, but keep the drawer collapsed to a single line. In order to look inside the drawer, you need to move point to the drawer line and press {{{kbd(TAB)}}} there. @@ -3065,7 +3065,7 @@ Org provides several refinements to internal navigati= on within a document. Most notably, a construct like =3D[[#my-custom-id]]=3D specifically targets the entry with the =3DCUSTOM_ID=3D property set to =3Dmy-custom-id=3D. Also, an internal link looking like =3D[[*Some -section]]=3D points to a headline with the name =3DSome section=3D[fn:25]. +section]]=3D points to a heading with the name =3DSome section=3D[fn:25]. =20 #+cindex: targets, for links When the link does not belong to any of the cases above, Org looks for @@ -3085,11 +3085,11 @@ it refers to, as in the following example | of | four cells | #+end_example =20 -#+vindex: org-link-search-must-match-exact-headline -Ultimately, if none of the above succeeds, Org searches for a headline +#+vindex: org-link-search-must-match-exact-heading +Ultimately, if none of the above succeeds, Org searches for a heading that is exactly the link text but may also include a TODO keyword and tags, or initiates a plain text search, according to the value of -~org-link-search-must-match-exact-headline~. +~org-link-search-must-match-exact-heading~. =20 Note that you must make sure custom IDs, dedicated targets, and names are unique throughout the document. Org provides a linter to assist @@ -3170,7 +3170,7 @@ Here is the full set of built-in link types: File links. File name may be remote, absolute, or relative. =20 Additionally, you can specify a line number, or a text search. - In Org files, you may link to a headline name, a custom ID, or a + In Org files, you may link to a heading name, a custom ID, or a code reference instead. =20 As a special case, "file" prefix may be omitted if the file name @@ -3214,7 +3214,7 @@ Here is the full set of built-in link types: =20 - =3Did=3D :: =20 - Link to a specific headline by its ID property, in an Org file. + Link to a specific heading by its ID property, in an Org file. =20 - =3Dinfo=3D :: =20 @@ -3253,8 +3253,8 @@ options: | | =3Dfile:sometextfile::NNN=3D (jump to line number) = | | | =3Dfile:projects.org=3D = | | | =3Dfile:projects.org::some words=3D (text search)[fn:27] = | -| | =3Dfile:projects.org::*task title=3D (headline search) = | -| | =3Dfile:projects.org::#custom-id=3D (headline search) = | +| | =3Dfile:projects.org::*task title=3D (heading search) = | +| | =3Dfile:projects.org::#custom-id=3D (heading search) = | | attachment | =3Dattachment:projects.org=3D = | | | =3Dattachment:projects.org::some words=3D (text search) = | | docview | =3Ddocview:papers/last.pdf::NNN=3D = | @@ -3334,13 +3334,13 @@ current buffer: - /Org mode buffers/ :: =20 For Org files, if there is a =3D<>=3D at point, the link points - to the target. Otherwise it points to the current headline, which + to the target. Otherwise it points to the current heading, which is also the description[fn:28]. =20 #+vindex: org-id-link-to-org-use-id #+cindex: @samp{CUSTOM_ID}, property #+cindex: @samp{ID}, property - If the headline has a =3DCUSTOM_ID=3D property, store a link to this + If the heading has a =3DCUSTOM_ID=3D property, store a link to this custom ID. In addition or alternatively, depending on the value of ~org-id-link-to-org-use-id~, create and/or use a globally unique =3DID=3D property for the link[fn:29]. So using this command in Org @@ -3460,7 +3460,7 @@ generally, act on links. ~browse-url-at-point~), run VM/MH-E/Wanderlust/Rmail/Gnus/BBDB for the corresponding links, and execute the command in a shell link. When point is on an internal link, this command runs the - corresponding search. When point is on the tags part of a headline, + corresponding search. When point is on the tags part of a heading, it creates the corresponding tags view (see [[*Matching tags and properties]]). If point is on a timestamp, it compiles the agenda for that date. Furthermore, it visits text and remote files in =3Dfile=3D @@ -3472,8 +3472,8 @@ generally, act on links. a {{{kbd(C-u C-u)}}} prefix. =20 #+vindex: org-link-frame-setup - If point is on a headline, but not on a link, offer all links in the - headline and entry text. If you want to setup the frame + If point is on a heading, but not on a link, offer all links in the + heading and entry text. If you want to setup the frame configuration for following links, customize ~org-link-frame-setup~. =20 - {{{kbd(RET)}}} :: @@ -3664,7 +3664,7 @@ link, together with explanations for each: =20 - =3D*My Target=3D :: =20 - In an Org file, restrict search to headlines. + In an Org file, restrict search to headings. =20 - =3D#my-custom-id=3D :: =20 @@ -3731,7 +3731,7 @@ have to do. :ALT_TITLE: TODO Basics :END: =20 -Any headline becomes a TODO item when it starts with the word =3DTODO=3D, +Any heading becomes a TODO item when it starts with the word =3DTODO=3D, for example: =20 : *** TODO Write letter to Sam Fortune @@ -3820,7 +3820,7 @@ with /TODO keywords/ (stored in ~org-todo-keywords~).= With special setup, the TODO keyword system can work differently in different files. =20 -Note that /tags/ are another way to classify headlines in general and +Note that /tags/ are another way to classify headings in general and TODO items in particular (see [[*Tags]]). =20 *** TODO keywords as workflow states @@ -4142,7 +4142,7 @@ command ~org-todo~ with a prefix argument. =20 #+kindex: C-u C-c C-t Prompt for a note and record a the time of the TODO state change. - The note is inserted as a list item below the headline, but can also + The note is inserted as a list item below the heading, but can also be placed into a drawer, see [[*Tracking TODO state changes]]. =20 If you want to be more systematic, Org mode can automatically record a @@ -4168,7 +4168,7 @@ TODO item was marked as done. This can be achieved w= ith[fn:41] #+texinfo: @noindent Then each time you turn an entry from a TODO (not-done) state into any of the DONE states, a line =3DCLOSED: [timestamp]=3D is inserted just -after the headline. If you turn the entry back into a TODO item +after the heading. If you turn the entry back into a TODO item through further state cycling, that line is removed again. If you turn the entry back to a non-TODO state (by pressing {{{kbd(C-c C-t SPC)}}} for example), that line is also removed, unless you set @@ -4195,7 +4195,7 @@ entry with a =3DClosing Note=3D heading. You might want to automatically keep track of when a state change occurred and maybe take a note about this change. You can either record just a timestamp, or a time-stamped note. These records are -inserted after the headline as an itemized list, newest first[fn:43]. +inserted after the heading as an itemized list, newest first[fn:43]. When taking a lot of notes, you might want to get the notes out of the way into a drawer (see [[*Drawers]]). Customize the variable ~org-log-into-drawer~ to get this behavior---the recommended drawer @@ -4379,7 +4379,7 @@ example. =20 If you use Org mode extensively, you may end up with enough TODO items that it starts to make sense to prioritize them. Prioritizing can be -done by placing a /priority cookie/ into the headline of a TODO item +done by placing a /priority cookie/ into the heading of a TODO item right after the TODO keyword, like this: =20 : *** TODO [#A] Write letter to Sam Fortune @@ -4409,10 +4409,10 @@ TODO items. =20 #+kindex: C-c , #+findex: org-priority - Set the priority of the current headline. The command prompts for + Set the priority of the current heading. The command prompts for a priority character =3DA=3D, =3DB=3D or =3DC=3D. When you press {{{kbd= (SPC)}}} instead, the priority cookie, if one is set, is removed from the - headline. The priorities can also be changed "remotely" from the + heading. The priorities can also be changed "remotely" from the agenda buffer with the {{{kbd(\,)}}} command (see [[*Commands in the Agenda Buffer]]). =20 @@ -4423,7 +4423,7 @@ TODO items. #+findex: org-priority-up #+findex: org-priority-down #+vindex: org-priority-start-cycle-with-default - Increase/decrease the priority of the current headline[fn:46]. Note + Increase/decrease the priority of the current heading[fn:46]. Note that these keys are also used to modify timestamps (see [[*Creating Timestamps]]). See also [[*Packages that conflict with Org mode]], for a discussion of the interaction with shift-selection. @@ -4457,7 +4457,7 @@ It is often advisable to break down large tasks into = smaller, manageable subtasks. You can do this by creating an outline tree below a TODO item, with detailed subtasks on the tree[fn:47]. To keep an overview of the fraction of subtasks that have already been marked -as done, insert either =3D[/]=3D or =3D[%]=3D anywhere in the headline. T= hese +as done, insert either =3D[/]=3D or =3D[%]=3D anywhere in the heading. Th= ese cookies are updated each time the TODO status of a child changes, or when pressing {{{kbd(C-c C-c)}}} on the cookie. For example: =20 @@ -4544,14 +4544,14 @@ The =3D[2/4]=3D and =3D[1/3]=3D in the first and se= cond line are cookies indicating how many checkboxes present in this entry have been checked off, and the total number of checkboxes present. This can give you an idea on how many checkboxes remain, even without opening a folded -entry. The cookies can be placed into a headline or into (the first +entry. The cookies can be placed into a heading or into (the first line of) a plain list item. Each cookie covers checkboxes of direct -children structurally below the headline/item on which the cookie +children structurally below the heading/item on which the cookie appears[fn:49]. You have to insert the cookie yourself by typing either =3D[/]=3D or =3D[%]=3D. With =3D[/]=3D you get an =3Dn out of m=3D= result, as in the examples above. With =3D[%]=3D you get information about the percentage of checkboxes checked (in the above example, this would be -=3D[50%]=3D and =3D[33%]=3D, respectively). In a headline, a cookie can c= ount +=3D[50%]=3D and =3D[33%]=3D, respectively). In a heading, a cookie can co= unt either checkboxes below the heading or TODO states of children, and it displays whatever was changed last. Set the property =3DCOOKIE_DATA=3D to either =3Dcheckbox=3D or =3Dtodo=3D to resolve this issue. @@ -4586,8 +4586,8 @@ The following commands work with checkboxes: first. With a prefix argument, add or remove the checkbox for all items in the region. =20 - - If point is in a headline, toggle checkboxes in the region between - this headline and the next---so /not/ the entire subtree. + - If point is in a heading, toggle checkboxes in the region between + this heading and the next---so /not/ the entire subtree. =20 - If there is no active region, just toggle the checkbox at point. =20 @@ -4640,23 +4640,23 @@ The following commands work with checkboxes: =20 * Tags :PROPERTIES: -:DESCRIPTION: Tagging headlines and matching sets of tags. +:DESCRIPTION: Tagging headings and matching sets of tags. :END: #+cindex: tags -#+cindex: headline tagging +#+cindex: heading tagging #+cindex: matching, tags #+cindex: sparse tree, tag based =20 An excellent way to implement labels and contexts for -cross-correlating information is to assign /tags/ to headlines. Org +cross-correlating information is to assign /tags/ to headings. Org mode has extensive support for tags. =20 #+vindex: org-tag-faces -Every headline can contain a list of tags; they occur at the end of -the headline. Tags are normal words containing letters, numbers, =3D_=3D, +Every heading can contain a list of tags; they occur at the end of +the heading. Tags are normal words containing letters, numbers, =3D_=3D, and =3D@=3D. Tags must be preceded and followed by a single colon, e.g., =3D:work:=3D. Several tags can be specified, as in =3D:work:urgent:=3D. = Tags -by default are in bold face with the same color as the headline. You +by default are in bold face with the same color as the heading. You may specify special faces for specific tags using the variable ~org-tag-faces~, in much the same way as you can for TODO keywords (see [[*Faces for TODO keywords]]). @@ -4696,7 +4696,7 @@ use the variables ~org-use-tag-inheritance~ and ~org-tags-exclude-from-inheritance~. =20 #+vindex: org-tags-match-list-sublevels -When a headline matches during a tags search while tag inheritance is +When a heading matches during a tags search while tag inheritance is turned on, all the sublevels in the same tree---for a simple match form---match as well[fn:52]. The list of matches may then become very long. If you only want to see the first tags match in a subtree, @@ -4715,13 +4715,13 @@ up agenda generation. =20 ** Setting Tags :PROPERTIES: -:DESCRIPTION: How to assign tags to a headline. +:DESCRIPTION: How to assign tags to a heading. :END: #+cindex: setting tags #+cindex: tags, setting =20 #+kindex: M-TAB -Tags can simply be typed into the buffer at the end of a headline. +Tags can simply be typed into the buffer at the end of a heading. After a colon, {{{kbd(M-TAB)}}} offers completion on tags. There is also a special command for inserting tags: =20 @@ -4731,7 +4731,7 @@ also a special command for inserting tags: #+findex: org-set-tags-command #+cindex: completion, of tags #+vindex: org-tags-column - Enter new tags for the current headline. Org mode either offers + Enter new tags for the current heading. Org mode either offers completion or a special single-key interface for setting tags, see below. After pressing {{{kbd(RET)}}}, the tags are inserted and aligned to ~org-tags-column~. When called with a {{{kbd(C-u)}}} @@ -4743,7 +4743,7 @@ also a special command for inserting tags: - {{{kbd(C-c C-c)}}} (~org-set-tags-command~) :: =20 #+kindex: C-c C-c - When point is in a headline, this does the same as {{{kbd(C-c + When point is in a heading, this does the same as {{{kbd(C-c C-q)}}}. =20 #+vindex: org-complete-tags-always-offer-all-agenda-tags @@ -4836,7 +4836,7 @@ by the following configuration: =20 If at least one tag has a selection key then pressing {{{kbd(C-c C-c)}}} automatically presents you with a special interface, listing -inherited tags, the tags of the current headline, and a list of all +inherited tags, the tags of the current heading, and a list of all valid tags with corresponding keys[fn:54]. =20 Pressing keys assigned to tags adds or removes them from the list of @@ -4888,7 +4888,7 @@ In this interface, you can also use the following spe= cial keys: using expert mode, the first {{{kbd(C-c)}}} displays the selection window. =20 -This method lets you assign tags to a headline with very few keys. +This method lets you assign tags to a heading with very few keys. With the above setup, you could clear the current tags and set =3D@home=3D, =3Dlaptop=3D and =3Dpc=3D tags with just the following keys: {{{kbd(C-c C-c SPC h l p RET)}}}. Switching from =3D@home=3D to =3D@work= =3D @@ -4926,7 +4926,7 @@ to classify nodes in a document or set of documents. =20 When you search for a group tag, it return matches for all members in the group and its subgroups. In an agenda view, filtering by a group -tag displays or hide headlines tagged with at least one of the members +tag displays or hide headings tagged with at least one of the members of the group or any of its subgroups. This makes tag searches and filters even more flexible. =20 @@ -5027,8 +5027,8 @@ related information into special lists. #+kindex: C-c / m #+kindex: C-c \ #+findex: org-match-sparse-tree - Create a sparse tree with all headlines matching a tags search. - With a {{{kbd(C-u)}}} prefix argument, ignore headlines that are not + Create a sparse tree with all headings matching a tags search. + With a {{{kbd(C-u)}}} prefix argument, ignore headings that are not a TODO line. =20 - {{{kbd(M-x org-agenda m)}}} (~org-tags-view~) :: @@ -5088,7 +5088,7 @@ Properties can be conveniently edited and viewed in c= olumn view (see Properties are key--value pairs. When they are associated with a single entry or with a tree they need to be inserted into a special drawer (see [[*Drawers]]) with the name =3DPROPERTIES=3D, which has to be -located right below a headline, and its planning line (see [[*Deadlines +located right below a heading, and its planning line (see [[*Deadlines and Scheduling]]) when applicable. Each property is specified on a single line, with the key---surrounded by colons---first, and the value after it. Keys are case-insensitive. Here is an example: @@ -5127,8 +5127,8 @@ disks in a box like this: #+end_example =20 Properties can be inserted on buffer level. That means they apply -before the first headline and can be inherited by all entries in a -file. Property blocks defined before first headline needs to be +before the first heading and can be inherited by all entries in a +file. Property blocks defined before first heading needs to be located at the top of the buffer, allowing only comments above. =20 Properties can also be defined using lines like: @@ -5196,7 +5196,7 @@ The following commands help to work with properties: #+findex: org-insert-drawer Insert a property drawer into the current entry. The drawer is inserted early in the entry, but after the lines with planning - information like deadlines. If before first headline the drawer is + information like deadlines. If before first heading the drawer is inserted at the top of the drawer after any potential comments. =20 - {{{kbd(C-c C-c)}}} (~org-property-action~) :: @@ -5275,10 +5275,10 @@ not be used as keys in the properties drawer: | =3DCLOSED=3D | When was this entry closed? = | | =3DDEADLINE=3D | The deadline timestamp. = | | =3DFILE=3D | The filename the entry is located in. = | -| =3DITEM=3D | The headline of the entry. = | +| =3DITEM=3D | The heading of the entry. = | | =3DPRIORITY=3D | The priority of the entry, a string with a single l= etter. | | =3DSCHEDULED=3D | The scheduling timestamp. = | -| =3DTAGS=3D | The tags defined directly in the headline. = | +| =3DTAGS=3D | The tags defined directly in the heading. = | | =3DTIMESTAMP=3D | The first keyword-less timestamp in the entry. = | | =3DTIMESTAMP_IA=3D | The first inactive timestamp in the entry. = | | =3DTODO=3D | The TODO keyword of the entry. = | @@ -5300,7 +5300,7 @@ Searches]]). #+kindex: C-c \ #+findex: org-match-sparse-tree Create a sparse tree with all matching entries. With - a {{{kbd(C-u)}}} prefix argument, ignore headlines that are not + a {{{kbd(C-u)}}} prefix argument, ignore headings that are not a TODO line. =20 - {{{kbd(M-x org-agenda m)}}} (~org-tags-view~) :: @@ -5394,12 +5394,12 @@ A great way to view and edit properties in an outli= ne tree is /column view/. In column view, each outline node is turned into a table row. Columns in this table provide access to properties of the entries. Org mode implements columns by overlaying a tabular structure over the -headline of each item. While the headlines have been turned into +heading of each item. While the headings have been turned into a table row, you can still change the visibility of the outline tree. For example, you get a compact table by switching to "contents" view---{{{kbd(S-TAB)}}} {{{kbd(S-TAB)}}}, or simply {{{kbd(c)}}} while column view is active---but you can still open, read, and edit -the entry below each headline. Or, you can switch to column view +the entry below each heading. Or, you can switch to column view after executing a sparse tree command and in this way get a table only for the selected items. Column view also works in agenda buffers (see [[*Agenda Views]]) where queries have collected selected items, possibly @@ -5430,7 +5430,7 @@ a =3DCOLUMNS=3D property to the top node of that tree= , for example: :END: #+end_example =20 -A =3DCOLUMNS=3D property within a property drawer before first headline +A =3DCOLUMNS=3D property within a property drawer before first heading will apply to the entire file. As an addition to property drawers, keywords can also be defined for an entire file using a line like: =20 @@ -5534,7 +5534,7 @@ allowed values[fn:57]. =20 #+texinfo: @noindent The first column, =3D%25ITEM=3D, means the first 25 characters of the item -itself, i.e., of the headline. You probably always should start the +itself, i.e., of the heading. You probably always should start the column definition with the =3DITEM=3D specifier. The other specifiers create columns =3DOwner=3D with a list of names as allowed values, for =3DStatus=3D with four different possible values, and for a checkbox field @@ -5563,7 +5563,7 @@ either for all clocks or just for today. #+kindex: C-c C-x C-c #+vindex: org-columns #+vindex: org-columns-default-format - Turn on column view. If point is before the first headline in the + Turn on column view. If point is before the first heading in the file, column view is turned on for the entire file, using the =3D#+COLUMNS=3D definition. If point is somewhere inside the outline, this command searches the hierarchy, up from point, for a =3DCOLUMNS=3D @@ -5724,14 +5724,14 @@ This dynamic block has the following parameters: - =3D:match=3D :: =20 When set to a string, use this as a tags/property match filter to - select only a subset of the headlines in the scope set by the ~:id~ + select only a subset of the headings in the scope set by the ~:id~ parameter. =20 =20 - =3D:hlines=3D :: =20 When ~t~, insert an hline after every line. When a number N, insert - an hline before each headline with level ~<=3D N~. + an hline before each heading with level ~<=3D N~. =20 - =3D:vlines=3D :: =20 @@ -5829,7 +5829,7 @@ is used in a much wider sense. A timestamp is a specification of a date (possibly with a time or a range of times) in a special format, either =3D<2003-09-16 Tue>=3D or =3D<2003-09-16 Tue 09:39>=3D or =3D<2003-09-16 Tue 12:00-12:30>=3D[fn:59]. -A timestamp can appear anywhere in the headline or body of an Org tree +A timestamp can appear anywhere in the heading or body of an Org tree entry. Its presence causes entries to be shown on specific dates in the agenda (see [[*Weekly/daily agenda]]). We distinguish: =20 @@ -5839,7 +5839,7 @@ the agenda (see [[*Weekly/daily agenda]]). We distin= guish: #+cindex: appointment A simple timestamp just assigns a date/time to an item. This is just like writing down an appointment or event in a paper agenda. - In the agenda display, the headline of an entry associated with + In the agenda display, the heading of an entry associated with a plain timestamp is shown exactly on that date. =20 #+begin_example @@ -5879,7 +5879,7 @@ the agenda (see [[*Weekly/daily agenda]]). We distin= guish: =20 #+cindex: timerange #+cindex: date range - Two timestamps connected by =3D--=3D denote a range. The headline is + Two timestamps connected by =3D--=3D denote a range. The heading is shown on the first and last day of the range, and on any dates that are displayed and fall in the range. Here is an example: =20 @@ -5986,7 +5986,7 @@ format. contains a time range like =3D15:30-16:30=3D, modifying the first time also shifts the second, shifting the time block with constant length. To change the length, modify the second time. Note that if - point is in a headline and not at a timestamp, these same keys + point is in a heading and not at a timestamp, these same keys modify the priority of an item (see [[*Priorities]]). The key bindings also conflict with shift-selection and related modes (see [[*Packages that conflict with Org mode]]). @@ -6217,7 +6217,7 @@ immediately after the task they refer to. date. =20 #+vindex: org-agenda-skip-scheduled-if-done - The headline is listed under the given date[fn:65]. In addition, + The heading is listed under the given date[fn:65]. In addition, a reminder that the scheduled date has passed is present in the compilation for /today/, until the entry is marked as done, i.e., the task is automatically forwarded until completed. @@ -6277,7 +6277,7 @@ schedule an item:[fn:66] #+findex: org-deadline #+vindex: org-log-redeadline Insert =3DDEADLINE=3D keyword along with a stamp. The insertion happens - in the line directly following the headline. Remove any =3DCLOSED=3D + in the line directly following the heading. Remove any =3DCLOSED=3D timestamp . When called with a prefix argument, also remove any existing deadline from the entry. Depending on the variable ~org-log-redeadline~, take a note when changing an existing @@ -6289,7 +6289,7 @@ schedule an item:[fn:66] #+findex: org-schedule #+vindex: org-log-reschedule Insert =3DSCHEDULED=3D keyword along with a stamp. The insertion - happens in the line directly following the headline. Remove any + happens in the line directly following the heading. Remove any =3DCLOSED=3D timestamp. When called with a prefix argument, also remove the scheduling date from the entry. Depending on the variable ~org-log-reschedule~, take a note when changing an existing @@ -6583,7 +6583,7 @@ prompted about what to do with it. =20 #+kindex: C-c C-x C-j #+findex: or-clock-goto - Jump to the headline of the currently clocked in task. With + Jump to the heading of the currently clocked in task. With a {{{kbd(C-u)}}} prefix argument, select the target task from a list of recently clocked tasks. =20 @@ -6593,7 +6593,7 @@ prompted about what to do with it. #+findex: org-clock-display #+vindex: org-remove-highlights-with-change Display time summaries for each subtree in the current buffer. This - puts overlays at the end of each headline, showing the total time + puts overlays at the end of each heading, showing the total time recorded under that heading, including the time of any subheadings. You can use visibility cycling to study the tree, but the overlays disappear when you change the buffer (see variable @@ -6771,17 +6771,17 @@ using the =3D:formatter=3D parameter. =20 - =3D:link=3D :: =20 - Link the item headlines in the table to their origins. + Link the item headings in the table to their origins. =20 - =3D:narrow=3D :: =20 - An integer to limit the width of the headline column in the Org - table. If you write it like =3D50!=3D, then the headline is also + An integer to limit the width of the heading column in the Org + table. If you write it like =3D50!=3D, then the heading is also shortened in export. =20 - =3D:indent=3D :: =20 - Indent each headline field according to its level. + Indent each heading field according to its level. =20 - =3D:hidefiles=3D :: =20 @@ -6815,7 +6815,7 @@ using the =3D:formatter=3D parameter. =20 - =3D:tags=3D :: =20 - When this flag is non-~nil~, show the headline's tags. + When this flag is non-~nil~, show the heading's tags. =20 - =3D:properties=3D :: =20 @@ -7202,7 +7202,7 @@ special command: the target heading as a subitem. Depending on ~org-reverse-note-order~, it is either the first or last subitem. =20 - By default, all level 1 headlines in the current buffer are + By default, all level 1 headings in the current buffer are considered to be targets, but you can have more complex definitions across a number of files. See the variable ~org-refile-targets~ for details. If you would like to select a location via @@ -7306,10 +7306,10 @@ file, the archive file. - {{{kbd(C-u C-c C-x C-s)}}} :: =20 #+kindex: C-u C-c C-x C-s - Check if any direct children of the current headline could be moved + Check if any direct children of the current heading could be moved to the archive. To do this, check each subtree for open TODO entries. If none is found, the command offers to move it to the - archive location. If point is /not/ on a headline when this command + archive location. If point is /not/ on a heading when this command is invoked, check level 1 trees. =20 - {{{kbd(C-u C-u C-c C-x C-s)}}} :: @@ -7360,7 +7360,7 @@ If you want to just switch off---for agenda views---c= ertain subtrees without moving them to a different file, you can use the =3DARCHIVE=3D tag. =20 -A headline that is marked with the =3DARCHIVE=3D tag (see [[*Tags]]) stays= at +A heading that is marked with the =3DARCHIVE=3D tag (see [[*Tags]]) stays = at its location in the outline tree, but behaves in the following way: =20 - @@ -7387,7 +7387,7 @@ its location in the outline tree, but behaves in the = following way: =20 - #+vindex: org-export-with-archived-trees - Archived trees are not exported (see [[*Exporting]]), only the headline + Archived trees are not exported (see [[*Exporting]]), only the heading is. Configure the details using the variable ~org-export-with-archived-trees~. =20 @@ -7402,17 +7402,17 @@ The following commands help manage the =3DARCHIVE= =3D tag: =20 #+kindex: C-c C-x a #+findex: org-toggle-archive-tag - Toggle the archive tag for the current headline. When the tag is - set, the headline changes to a shadowed face, and the subtree below + Toggle the archive tag for the current heading. When the tag is + set, the heading changes to a shadowed face, and the subtree below it is hidden. =20 - {{{kbd(C-u C-c C-x a)}}} :: =20 #+kindex: C-u C-c C-x a - Check if any direct children of the current headline should be + Check if any direct children of the current heading should be archived. To do this, check each subtree for open TODO entries. If none is found, the command offers to set the =3DARCHIVE=3D tag for the - child. If point is /not/ on a headline when this command is + child. If point is /not/ on a heading when this command is invoked, check the level 1 trees. =20 - {{{kbd(C-c C-TAB)}}} (~org-force-cycle-archived~) :: @@ -7568,7 +7568,7 @@ configuration would look like: =20 #+begin_src emacs-lisp (setq org-capture-templates - '(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks") + '(("t" "Todo" entry (file+heading "~/org/gtd.org" "Tasks") "* TODO %?\n %i\n %a") ("j" "Journal" entry (file+datetree "~/org/journal.org") "* %?\nEntered on %U\n %i\n %a"))) @@ -7632,7 +7632,7 @@ Now lets look at the elements of a template definitio= n. Each entry in =20 - ~entry~ :: =20 - An Org mode node, with a headline. Will be filed as the child of + An Org mode node, with a heading. Will be filed as the child of the target entry or as a top-level entry. The target file should be an Org file. =20 @@ -7679,7 +7679,7 @@ Now lets look at the elements of a template definitio= n. Each entry in =20 Filing as child of this entry, or in the body of the entry. =20 - - =3D(file+headline "filename" "node headline")=3D :: + - =3D(file+heading "filename" "node heading")=3D :: =20 Fast configuration if the target heading is unique in the file. =20 @@ -8184,7 +8184,7 @@ mentioning. A=3D. =20 Inheritance works the same way for both =3DID=3D and =3DDIR=3D property.= If - both properties are defined on the same headline then =3DDIR=3D takes + both properties are defined on the same heading then =3DDIR=3D takes precedence. This is also true if inheritance is enabled. If =3DDIR=3D is inherited from a parent node in the outline, that property still takes precedence over an =3DID=3D property defined on the node itself. @@ -8355,7 +8355,7 @@ Entries=3D, whenever the following command is used: #+kindex: C-c C-x G Prompt for a feed name and go to the inbox configured for this feed. =20 -Under the same headline, Org creates a drawer =3DFEEDSTATUS=3D in which it +Under the same heading, Org creates a drawer =3DFEEDSTATUS=3D in which it stores information about the status of items in the feed, to avoid adding the same item several times. =20 @@ -8369,7 +8369,7 @@ For more information, including how to read atom feed= s, see #+cindex: agenda views =20 Due to the way Org works, TODO items, time-stamped items, and tagged -headlines can be scattered throughout a file or even a number of +headings can be scattered throughout a file or even a number of files. To get an overview of open action items, or of events that are important for a particular date, this information must be collected, sorted and displayed in an organized way. @@ -8382,7 +8382,7 @@ a separate buffer. Six different view types are prov= ided: =20 - a /TODO list/ that covers all unfinished action items, =20 -- a /match view/, showings headlines based on the tags, properties, +- a /match view/, showings headings based on the tags, properties, and TODO state associated with them, =20 - a /text search view/ that shows all entries from multiple files that @@ -8479,7 +8479,7 @@ scope for an extended period, use the following comma= nds: #+findex: org-agenda-set-restriction-lock Restrict the agenda to the current subtree. If there already is a restriction at point, remove it. When called with a universal - prefix argument or with point before the first headline in a file, + prefix argument or with point before the first heading in a file, set the agenda scope to the entire file. This restriction remains in effect until removed with {{{kbd(C-c C-x >)}}}, or by typing either {{{kbd(<)}}} or {{{kbd(>)}}} in the agenda dispatcher. If @@ -8534,7 +8534,7 @@ commands: =20 - {{{kbd(m)}}}, {{{kbd(M)}}} :: =20 - Create a list of headlines matching a given expression (see + Create a list of headings matching a given expression (see [[*Matching tags and properties]]). =20 - {{{kbd(s)}}} :: @@ -8829,7 +8829,7 @@ a TODO entry with a single key press. The commands a= vailable in the TODO list are described in [[*Commands in the Agenda Buffer]]. =20 #+cindex: sublevels, inclusion into TODO list -Normally the global TODO list simply shows all headlines with TODO +Normally the global TODO list simply shows all headings with TODO keywords. This list can become very long. There are two ways to keep it more compact: =20 @@ -8852,7 +8852,7 @@ it more compact: #+vindex: org-agenda-todo-list-sublevels TODO items may have sublevels to break up the task into subtasks. In such cases it may be enough to list only the highest level TODO - headline and omit the sublevels from the global list. Configure the + heading and omit the sublevels from the global list. Configure the variable ~org-agenda-todo-list-sublevels~ to get this behavior. =20 *** Matching tags and properties @@ -8864,9 +8864,9 @@ it more compact: #+cindex: tags view #+cindex: match view =20 -If headlines in the agenda files are marked with /tags/ (see [[*Tags]]), +If headings in the agenda files are marked with /tags/ (see [[*Tags]]), or have properties (see [[*Properties and Columns]]), you can select -headlines based on this metadata and collect them into an agenda +headings based on this metadata and collect them into an agenda buffer. The match syntax described here also applies when creating sparse trees with {{{kbd(C-c / m)}}}. =20 @@ -8874,7 +8874,7 @@ sparse trees with {{{kbd(C-c / m)}}}. =20 #+kindex: m @r{(Agenda dispatcher)} #+findex: org-tags-view - Produce a list of all headlines that match a given set of tags. The + Produce a list of all headings that match a given set of tags. The command prompts for a selection criterion, which is a boolean logic expression with tags, like =3D+work+urgent-withboss=3D or =3Dwork|home=3D (see [[*Tags]]). If you often need a specific search, define a custom @@ -8886,7 +8886,7 @@ sparse trees with {{{kbd(C-c / m)}}}. #+findex: org-tags-view #+vindex: org-tags-match-list-sublevels #+vindex: org-agenda-tags-todo-honor-ignore-options - Like {{{kbd(m)}}}, but only select headlines that are also TODO + Like {{{kbd(m)}}}, but only select headings that are also TODO items and force checking subitems (see the variable ~org-tags-match-list-sublevels~). To exclude scheduled/deadline items, see the variable ~org-agenda-tags-todo-honor-ignore-options~. @@ -8909,7 +8909,7 @@ only tags. =20 - =3D+work-boss=3D :: =20 - Select headlines tagged =3Dwork=3D, but discard those also tagged + Select headings tagged =3Dwork=3D, but discard those also tagged =3Dboss=3D. =20 - =3Dwork|laptop=3D :: @@ -8924,14 +8924,14 @@ only tags. #+cindex: regular expressions, with tags search Instead of a tag, you may also specify a regular expression enclosed in curly braces (see [[*Regular Expressions]]). For example, -=3Dwork+{^boss.*}=3D matches headlines that contain the tag =3D:work:=3D a= nd +=3Dwork+{^boss.*}=3D matches headings that contain the tag =3D:work:=3D and any tag /starting/ with =3Dboss=3D. =20 #+cindex: group tags, as regular expressions Group tags (see [[*Tag Hierarchy]]) are expanded as regular expressions. E.g., if =3Dwork=3D is a group tag for the group =3D:work:lab:conf:=3D, th= en searching for =3Dwork=3D also searches for =3D{\(?:work\|lab\|conf\)}=3D a= nd -searching for =3D-work=3D searches for all headlines but those with one of +searching for =3D-work=3D searches for all headings but those with one of the tags in the group (i.e., =3D-{\(?:work\|lab\|conf\)}=3D). =20 #+cindex: TODO keyword matching, with tags search @@ -8944,7 +8944,7 @@ special properties that represent other metadata (see= [[*Special Properties]]). For example, the property =3DTODO=3D represents the TODO keyword of the entry. Or, the property =3DLEVEL=3D represents the level of an entry. So searching =3D+LEVEL=3D3+boss-TODO=E2=80=8B=3D"DONE"=3D li= sts all level -three headlines that have the tag =3Dboss=3D and are /not/ marked with the +three headings that have the tag =3Dboss=3D and are /not/ marked with the TODO keyword =3DDONE=3D. In buffers with ~org-odd-levels-only~ set, =3DLEVEL=3D does not count the number of stars, but =3DLEVEL=3D2=3D corres= ponds to 3 stars etc. @@ -9102,7 +9102,7 @@ and define next actions for them. =20 You almost certainly need to configure this view before it works for you. The built-in default assumes that all your projects are level-2 -headlines, and that a project is not stuck if it has at least one +headings, and that a project is not stuck if it has at least one entry marked with a TODO keyword =3DTODO=3D or =3DNEXT=3D or =3DNEXTACTION= =3D. =20 Let's assume that you, in your own way of using Org mode, identify @@ -9142,7 +9142,7 @@ of the item and other important information. You can= customize in which column tags are displayed through ~org-agenda-tags-column~. You can also customize the prefix using the option ~org-agenda-prefix-format~. This prefix is followed by a cleaned-up -version of the outline headline associated with the item. +version of the outline heading associated with the item. =20 *** Categories :PROPERTIES: @@ -9185,8 +9185,8 @@ Time ranges can be specified with two timestamps: =20 : <2005-05-10 Tue 20:30>--<2005-05-10 Tue 22:15> =20 -#+vindex: org-agenda-search-headline-for-time -In the headline of the entry itself, a time(range)---like =3D12:45=3D or +#+vindex: org-agenda-search-heading-for-time +In the heading of the entry itself, a time(range)---like =3D12:45=3D or a =3D8:30-1pm=3D---may also appear as plain text[fn:97]. =20 If the agenda integrates the Emacs diary (see [[*Weekly/daily agenda]]), @@ -9291,7 +9291,7 @@ agenda commands. #+cindex: filtering entries, in agenda #+cindex: tag filtering, in agenda #+cindex: category filtering, in agenda -#+cindex: top headline filtering, in agenda +#+cindex: top heading filtering, in agenda #+cindex: effort filtering, in agenda #+cindex: query editing, in agenda =20 @@ -9355,11 +9355,11 @@ filter elements are accumulated. filter, press {{{kbd(_)}}} twice (once to call the command again, and once at the first prompt). =20 -- {{{kbd(^)}}} (~org-agenda-filter-by-top-headline~) :: +- {{{kbd(^)}}} (~org-agenda-filter-by-top-heading~) :: =20 - #+findex: org-agenda-filter-by-top-headline + #+findex: org-agenda-filter-by-top-heading Filter the current agenda view and only display items that fall - under the same top-level headline as the current entry. To clear + under the same top-level heading as the current entry. To clear the filter, call this command again by pressing {{{kbd(^)}}}. =20 - {{{kbd(/)}}} (~org-agenda-filter~) :: @@ -9905,7 +9905,7 @@ the other commands, point needs to be in the desired = line. #+kindex: C-c C-x a #+findex: org-agenda-toggle-archive-tag Toggle the archive tag (see [[*Internal archiving]]) for the current - headline. + heading. =20 - {{{kbd(C-c C-x A)}}} (~org-agenda-archive-to-archive-sibling~) :: =20 @@ -9919,7 +9919,7 @@ the other commands, point needs to be in the desired = line. #+kindex: C-c C-x C-s #+kindex: $ #+findex: org-agenda-archive - Archive the subtree corresponding to the current headline. This + Archive the subtree corresponding to the current heading. This means the entry is moved to the configured archive location, most likely a different file. =20 @@ -9930,13 +9930,13 @@ the other commands, point needs to be in the desire= d line. #+vindex: org-agenda-show-inherited-tags Show all tags associated with the current item. This is useful if you have turned off ~org-agenda-show-inherited-tags~, but still want - to see all tags of a headline occasionally. + to see all tags of a heading occasionally. =20 - {{{kbd(:)}}} (~org-agenda-set-tags~) :: =20 #+kindex: : #+findex: org-agenda-set-tags - Set tags for the current headline. If there is an active region in + Set tags for the current heading. If there is an active region in the agenda, change a tag for all headings in the region. =20 - {{{kbd(\,)}}} (~org-agenda-priority~) :: @@ -10373,12 +10373,12 @@ above will therefore define: =20 - {{{kbd(u)}}} :: =20 - as a global tags search for headlines tagged =3Dboss=3D but not + as a global tags search for headings tagged =3Dboss=3D but not =3Durgent=3D. =20 - {{{kbd(v)}}} :: =20 - The same search, but limiting it to headlines that are also TODO + The same search, but limiting it to headings that are also TODO items. =20 - {{{kbd(U)}}} :: @@ -10467,8 +10467,8 @@ at the right spot in ~org-agenda-custom-commands~. = For example: Now the {{{kbd(w)}}} command sorts the collected entries only by priority, and the prefix format is modified to just say =3DMixed:=3D instead of giving the category of the entry. The sparse tags tree of -{{{kbd(U)}}} now turns out ultra-compact, because neither the headline -hierarchy above the match, nor the headline following the match are +{{{kbd(U)}}} now turns out ultra-compact, because neither the heading +hierarchy above the match, nor the heading following the match are shown. The command {{{kbd(N)}}} does a text search limited to only a single file. =20 @@ -11009,7 +11009,7 @@ images. =20 Produce a preview image of the LaTeX fragment at point and overlay it over the source code. If there is no fragment at point, process - all fragments in the current entry---between two headlines. + all fragments in the current entry---between two headings. =20 When called with a single prefix argument, clear all images in the current entry. Two prefix arguments produce a preview image for all @@ -11127,7 +11127,7 @@ the contents of the block. =20 #+begin_example ,#+BEGIN_EXAMPLE -,,* I am no real headline +,,* I am no real heading ,#+END_EXAMPLE #+end_example =20 @@ -11323,7 +11323,7 @@ as a horizontal line. =20 A footnote is started by a footnote marker in square brackets in column 0, no indentation allowed. It ends at the next footnote -definition, headline, or after two consecutive empty lines. The +definition, heading, or after two consecutive empty lines. The footnote reference is simply the marker in square brackets, inside text. Markers always start with =3Dfn:=3D. For example: =20 @@ -11601,7 +11601,7 @@ global variables, include: =3Dexport=3D (~org-export-select-tags~), Org selects that tree and its sub-trees for export. Org excludes trees with =3Dnoexport=3D tags, see below. When selectively exporting files with =3Dexport=3D tags set, Org - does not export any text that appears before the first headline. + does not export any text that appears before the first heading. =20 - =3DEXCLUDE_TAGS=3D :: =20 @@ -11678,9 +11678,9 @@ following arguments. - ~arch~ :: =20 #+vindex: org-export-with-archived-trees - Configure how archived trees are exported. When set to ~headline~, + Configure how archived trees are exported. When set to ~heading~, the export process skips the contents and processes only the - headlines (~org-export-with-archived-trees~). + headings (~org-export-with-archived-trees~). =20 - ~author~ :: =20 @@ -11736,9 +11736,9 @@ following arguments. =20 - ~H~ :: =20 - #+vindex: org-export-headline-levels - Set the number of headline levels for export - (~org-export-headline-levels~). Below that level, headlines are + #+vindex: org-export-heading-levels + Set the number of heading levels for export + (~org-export-heading-levels~). Below that level, headings are treated differently. In most back-ends, they become list items. =20 - ~inline~ :: @@ -11751,10 +11751,10 @@ following arguments. #+vindex: org-export-with-section-numbers #+cindex: @samp{UNNUMBERED}, property Toggle section-numbers (~org-export-with-section-numbers~). When - set to number N, Org numbers only those headlines at level N or + set to number N, Org numbers only those headings at level N or above. Set =3DUNNUMBERED=3D property to non-~nil~ to disable numbering of heading and subheadings entirely. Moreover, when the value is - =3Dnotoc=3D the headline, and all its children, do not appear in the + =3Dnotoc=3D the heading, and all its children, do not appear in the table of contents either (see [[*Table of Contents]]). =20 - ~p~ :: @@ -11762,7 +11762,7 @@ following arguments. #+vindex: org-export-with-planning Toggle export of planning information (~org-export-with-planning~). "Planning information" comes from lines located right after the - headline and contain any combination of these cookies: =3DSCHEDULED=3D, + heading and contain any combination of these cookies: =3DSCHEDULED=3D, =3DDEADLINE=3D, or =3DCLOSED=3D. =20 - ~pri~ :: @@ -11853,8 +11853,8 @@ in-buffer settings that cannot be changed using key= words. =20 #+cindex: @samp{toc}, in @samp{OPTIONS} keyword #+vindex: org-export-with-toc -The table of contents includes all headlines in the document. Its -depth is therefore the same as the headline levels in the file. If +The table of contents includes all headings in the document. Its +depth is therefore the same as the heading levels in the file. If you need to use a different depth, or turn it off entirely, set the ~org-export-with-toc~ variable accordingly. You can achieve the same on a per file basis, using the following =3Dtoc=3D item in =3DOPTIONS=3D @@ -11867,8 +11867,8 @@ keyword: =20 #+cindex: excluding entries from table of contents #+cindex: table of contents, exclude entries -Org includes both numbered and unnumbered headlines in the table of -contents[fn:124]. If you need to exclude an unnumbered headline, +Org includes both numbered and unnumbered headings in the table of +contents[fn:124]. If you need to exclude an unnumbered heading, along with all its children, set the =3DUNNUMBERED=3D property to =3Dnotoc= =3D value. =20 @@ -11881,15 +11881,15 @@ value. =20 #+cindex: @samp{TOC}, keyword Org normally inserts the table of contents directly before the first -headline of the file. To move the table of contents to a different +heading of the file. To move the table of contents to a different location, first turn off the default with ~org-export-with-toc~ -variable or with =3D#+OPTIONS: toc:nil=3D. Then insert =3D#+TOC: headlines +variable or with =3D#+OPTIONS: toc:nil=3D. Then insert =3D#+TOC: headings N=3D at the desired location(s). =20 #+begin_example ,#+OPTIONS: toc:nil ... -,#+TOC: headlines 2 +,#+TOC: headings 2 #+end_example =20 To adjust the table of contents depth for a specific section of the @@ -11899,7 +11899,7 @@ inserts a local table of contents, with direct chil= dren only. =20 #+begin_example ,* Section -,#+TOC: headlines 1 local +,#+TOC: headings 1 local #+end_example =20 Note that for this feature to work properly in LaTeX export, the Org @@ -11918,7 +11918,7 @@ children of the specified target. ,** Heading A ,** Heading B ,* Another section -,#+TOC: headlines 1 :target #TargetSection +,#+TOC: headings 1 :target #TargetSection #+end_example =20 The =3D:target=3D attribute is supported in HTML, Markdown, ODT, and ASCII= export. @@ -11932,7 +11932,7 @@ listings---with captions. #+end_example =20 #+cindex: @samp{ALT_TITLE}, property -Normally Org uses the headline for its entry in the table of contents. +Normally Org uses the heading for its entry in the table of contents. But with =3DALT_TITLE=3D property, a different entry can be specified for the table of contents. =20 @@ -11966,13 +11966,13 @@ If an included file is not specified as having an= y markup language, Org assumes it be in Org format and proceeds as usual with a few exceptions. Org makes the footnote labels (see [[*Creating Footnotes]]) in the included file local to that file. The contents of the included -file belong to the same structure---headline, item---containing the -=3DINCLUDE=3D keyword. In particular, headlines within the file become +file belong to the same structure---heading, item---containing the +=3DINCLUDE=3D keyword. In particular, headings within the file become children of the current section. That behavior can be changed by providing an additional keyword parameter, =3D:minlevel=3D. It shifts the -headlines in the included file to become the lowest level. For +headings in the included file to become the lowest level. For example, this syntax makes the included file a sibling of the current -top-level headline: +top-level heading: =20 : #+INCLUDE: "~/my-book/chapter2.org" :minlevel 1 =20 @@ -11994,7 +11994,7 @@ Therefore, : #+INCLUDE: "./paper.org::*conclusion" :lines 1-20 =20 #+texinfo: @noindent -includes the first 20 lines of the headline named =3Dconclusion=3D. +includes the first 20 lines of the heading named =3Dconclusion=3D. =20 #+cindex: @samp{only-contents}, include To extract only the contents of the matched object, set @@ -12051,7 +12051,7 @@ macro turns =3D{{{gnustamp(linux)}}}=3D into =3DGNU/Linux=3D during export. =20 Org recognizes macro references in following Org markup areas: -paragraphs, headlines, verse blocks, tables cells and lists. Org also +paragraphs, headings, verse blocks, tables cells and lists. Org also recognizes macro references in keywords, such as =3DCAPTION=3D, =3DTITLE= =3D, =3DAUTHOR=3D, =3DDATE=3D, and for some back-end specific export options. =20 @@ -12147,7 +12147,7 @@ Finally, a =3DCOMMENT=3D keyword at the beginning o= f an entry, but after any other keyword or priority cookie, comments out the entire subtree. In this case, the subtree is not exported and no code block within it is executed either[fn:127]. The command below helps changing the -comment status of a headline. +comment status of a heading. =20 - {{{kbd(C-c ;)}}} (~org-toggle-comment~) :: #+kindex: C-c ; @@ -12225,7 +12225,7 @@ output. Setting this keyword works similar to the = general options :UNNUMBERED: notoc :END: =20 -Org converts the first three outline levels into headlines for ASCII +Org converts the first three outline levels into headings for ASCII export. The remaining levels are turned into lists. To change this cut-off point where levels become lists, see [[*Export Settings]]. =20 @@ -12404,15 +12404,15 @@ should in principle be exportable as a Beamer pre= sentation. =20 - #+vindex: org-beamer-frame-level - Org headlines become Beamer frames when the heading level in Org is + Org headings become Beamer frames when the heading level in Org is equal to ~org-beamer-frame-level~ or =3DH=3D value in a =3DOPTIONS=3D li= ne (see [[*Export Settings]]). =20 #+cindex: @samp{BEAMER_ENV}, property - Org overrides headlines to frames conversion for the current tree of + Org overrides headings to frames conversion for the current tree of an Org file if it encounters the =3DBEAMER_ENV=3D property set to =3Dframe=3D or =3Dfullframe=3D. Org ignores whatever - ~org-beamer-frame-level~ happens to be for that headline level in + ~org-beamer-frame-level~ happens to be for that heading level in the Org tree. In Beamer terminology, a full frame is a frame without its title. =20 @@ -12434,15 +12434,15 @@ should in principle be exportable as a Beamer pre= sentation. with =3D\againframe=3D command, which makes setting the =3DBEAMER_REF=3D property mandatory because =3D\againframe=3D needs frame to resume. =20 - When =3Dignoreheading=3D is set, Org export ignores the entry's headline + When =3Dignoreheading=3D is set, Org export ignores the entry's heading but not its content. This is useful for inserting content between frames. It is also useful for properly closing a =3Dcolumn=3D environment. @end itemize =20 #+cindex: @samp{BEAMER_ACT}, property #+cindex: @samp{BEAMER_OPT}, property - When =3DBEAMER_ACT=3D is set for a headline, Org export translates that - headline as an overlay or action specification. When enclosed in + When =3DBEAMER_ACT=3D is set for a heading, Org export translates that + heading as an overlay or action specification. When enclosed in square brackets, Org export makes the overlay specification a default. Use =3DBEAMER_OPT=3D to set any options applicable to the current Beamer frame or block. The Beamer export back-end wraps @@ -12451,7 +12451,7 @@ should in principle be exportable as a Beamer prese= ntation. =20 #+cindex: @samp{BEAMER_COL}, property To create a column on the Beamer slide, use the =3DBEAMER_COL=3D - property for its headline in the Org file. Set the value of + property for its heading in the Org file. Set the value of =3DBEAMER_COL=3D to a decimal number representing the fraction of the total text width. Beamer export uses this value to set the column's width and fills the column with the contents of the Org entry. If @@ -12459,7 +12459,7 @@ should in principle be exportable as a Beamer prese= ntation. ignores the heading. If the Org entry has a defined environment, Beamer export uses the heading as title. Behind the scenes, Beamer export automatically handles LaTeX column separations for contiguous - headlines. To manually adjust them for any unique configurations + headings. To manually adjust them for any unique configurations needs, use the =3DBEAMER_ENV=3D property. =20 *** Beamer specific syntax @@ -12476,7 +12476,7 @@ Beamer export wraps the table of contents generated= with =3Dtoc:t=3D wrap the table of contents generated with =3DTOC=3D keyword (see [[*Table = of Contents]]). Use square brackets for specifying options. =20 -: #+TOC: headlines [currentsection] +: #+TOC: headings [currentsection] =20 Insert Beamer-specific code using the following constructs: =20 @@ -12784,9 +12784,9 @@ HTML exporter reverts to standard translation (see ~org-html-html5-elements~). For example, =3D#+BEGIN_lederhosen=3D exports to ~
~. =20 -Special blocks cannot have headlines. For the HTML exporter to wrap -the headline and its contents in ~
~ or ~
~ tags, set -the =3DHTML_CONTAINER=3D property for the headline. +Special blocks cannot have headings. For the HTML exporter to wrap +the heading and its contents in ~
~ or ~
~ tags, set +the =3DHTML_CONTAINER=3D property for the heading. =20 *** HTML preamble and postamble :PROPERTIES: @@ -12842,20 +12842,20 @@ For larger raw HTML code blocks, use these HTML e= xport code blocks: ,#+END_EXPORT #+end_example =20 -*** Headlines in HTML export +*** Headings in HTML export :PROPERTIES: -:DESCRIPTION: Formatting headlines. +:DESCRIPTION: Formatting headings. :END: -#+cindex: headlines, in HTML export +#+cindex: headings, in HTML export =20 -Headlines are exported to =3D

=3D, =3D

=3D, etc. Each headline gets= the +Headings are exported to =3D

=3D, =3D

=3D, etc. Each heading gets t= he =3Did=3D attribute from =3DCUSTOM_ID=3D property, or a unique generated va= lue, see [[*Internal Links]]. =20 -#+vindex: org-html-self-link-headlines -When ~org-html-self-link-headlines~ is set to a non-~nil~ value, the -text of the headlines is also wrapped in =3D=3D tags. These tags have -a =3Dhref=3D attribute making the headlines link to themselves. +#+vindex: org-html-self-link-headings +When ~org-html-self-link-headings~ is set to a non-~nil~ value, the +text of the headings is also wrapped in =3D=3D tags. These tags have +a =3Dhref=3D attribute making the headings link to themselves. =20 *** Links in HTML export :PROPERTIES: @@ -13084,7 +13084,7 @@ You can modify the CSS style definitions for the ex= ported file. The HTML exporter assigns the following special CSS classes[fn:132] to appropriate parts of the document---your style specifications may change these, in addition to any of the standard classes like for -headlines, tables, etc. +headings, tables, etc. =20 | ~p.author~ | author information, including email = | | ~p.date~ | publishing date = | @@ -13097,14 +13097,14 @@ headlines, tables, etc. | ~.timestamp~ | timestamp = | | ~.timestamp-kwd~ | keyword associated with a timestamp, like =3DSCHE= DULED=3D | | ~.timestamp-wrapper~ | span around keyword plus timestamp = | -| ~.tag~ | tag in a headline = | +| ~.tag~ | tag in a heading = | | ~._HOME~ | each tag uses itself as a class, "@" replaced by = "_" | | ~.target~ | target for links = | | ~.linenr~ | the line number in a code example = | | ~.code-highlighted~ | for highlighting referenced code lines = | -| ~div.outline-N~ | div for outline level N (headline plus text) = | +| ~div.outline-N~ | div for outline level N (heading plus text) = | | ~div.outline-text-N~ | extra div for text at outline level N = | -| ~.section-number-N~ | section number in headlines, different for each l= evel | +| ~.section-number-N~ | section number in headings, different for each le= vel | | ~.figure-number~ | label like "Figure 1:" = | | ~.table-number~ | label like "Table 1:" = | | ~.listing-number~ | label like "Listing 1:" = | @@ -13112,7 +13112,7 @@ headlines, tables, etc. | ~pre.src~ | formatted source code = | | ~pre.example~ | normal example = | | ~p.verse~ | verse paragraph = | -| ~div.footnotes~ | footnote section headline = | +| ~div.footnotes~ | footnote section heading = | | ~p.footnote~ | footnote definition paragraph, containing a footn= ote | | ~.footref~ | a footnote reference number (always a ) = | | ~.footnum~ | footnote number in footnote definition (always ) | @@ -13148,12 +13148,12 @@ around them. Both of these approaches can avoid = referring to an external file. =20 #+cindex: @samp{HTML_CONTAINER_CLASS}, property -#+cindex: @samp{HTML_HEADLINE_CLASS}, property +#+cindex: @samp{HTML_HEADING_CLASS}, property In order to add styles to a sub-tree, use the =3DHTML_CONTAINER_CLASS=3D property to assign a class to the tree. In order to specify CSS -styles for a particular headline, you can use the ID specified in +styles for a particular heading, you can use the ID specified in a =3DCUSTOM_ID=3D property. You can also assign a specific class to -a headline with the =3DHTML_HEADLINE_CLASS=3D property. +a heading with the =3DHTML_HEADING_CLASS=3D property. =20 Never change the ~org-html-style-default~ constant. Instead use other simpler ways of customizing as described above. @@ -13197,16 +13197,16 @@ options described below: =20 | =3Dinfo=3D | Info-like interface with one section per page = | | =3Doverview=3D | Folding interface, initially showing only top-level = | - | =3Dcontent=3D | Folding interface, starting with all headlines visibl= e | - | =3Dshowall=3D | Folding interface, all headlines and text visible = | + | =3Dcontent=3D | Folding interface, starting with all headings visible= | + | =3Dshowall=3D | Folding interface, all headings and text visible = | =20 - =3Dsdepth:=3D :: =20 - Maximum headline level still considered as an independent section + Maximum heading level still considered as an independent section for info and folding modes. The default is taken from - ~org-export-headline-levels~, i.e., the =3DH=3D switch in =3DOPTIONS=3D.= If - this is smaller than in ~org-export-headline-levels~, each - info/folding section can still contain child headlines. + ~org-export-heading-levels~, i.e., the =3DH=3D switch in =3DOPTIONS=3D. = If + this is smaller than in ~org-export-heading-levels~, each + info/folding section can still contain child headings. =20 - =3Dtoc:=3D :: =20 @@ -13216,7 +13216,7 @@ options described below: - =3Dtdepth:=3D :: =20 The depth of the table of contents. The defaults are taken from the - variables ~org-export-headline-levels~ and ~org-export-with-toc~. + variables ~org-export-heading-levels~ and ~org-export-with-toc~. =20 - =3Dftoc:=3D :: =20 @@ -13363,7 +13363,7 @@ general options (see [[*Export Settings]]). #+vindex: org-latex-default-class #+vindex: org-latex-classes This is LaTeX document class, such as /article/, /report/, /book/, - and so on, which contain predefined preamble and headline level + and so on, which contain predefined preamble and heading level mapping that the LaTeX export back-end needs. The back-end reads the default class name from the ~org-latex-default-class~ variable. Org has /article/ as the default class. A valid default class must @@ -13429,7 +13429,7 @@ The following sections have further details. #+cindex: sectioning structure, for @LaTeX{} export =20 The LaTeX export back-end converts the first three of Org's outline -levels into LaTeX headlines. The remaining Org levels are exported as +levels into LaTeX headings. The remaining Org levels are exported as lists. To change this globally for the cut-off point between levels and lists, (see [[*Export Settings]]). =20 @@ -13476,9 +13476,9 @@ A sample Org file with the above headers: ,#+LATEX_CLASS_OPTIONS: [a4paper] ,#+LATEX_HEADER: \usepackage{xyz} =20 -,* Headline 1 +,* Heading 1 some text -,* Headline 2 +,* Heading 2 some more text #+end_example =20 @@ -14011,11 +14011,11 @@ tables, to HTML. :UNNUMBERED: notoc :END: =20 -#+vindex: org-md-headline-style -Based on ~org-md-headline-style~, Markdown export can generate -headlines of both /atx/ and /setext/ types. /atx/ limits headline -levels to two whereas /setext/ limits headline levels to six. Beyond -these limits, the export back-end converts headlines to lists. To set +#+vindex: org-md-heading-style +Based on ~org-md-heading-style~, Markdown export can generate +headings of both /atx/ and /setext/ types. /atx/ limits heading +levels to two whereas /setext/ limits heading levels to six. Beyond +these limits, the export back-end converts headings to lists. To set a limit to a level before the absolute limit (see [[*Export Settings]]). =20 ** OpenDocument Text Export @@ -15054,7 +15054,7 @@ keywords. They have to be set in raw Texinfo code. #+end_example =20 #+cindex: @samp{COPYING}, property -Copying material is defined in a dedicated headline with a non-~nil~ +Copying material is defined in a dedicated heading with a non-~nil~ =3DCOPYING=3D property. The back-end inserts the contents within a =3D@copying=3D command at the beginning of the document. The heading itself does not appear in the structure of the document. @@ -15107,9 +15107,9 @@ Here is an example that writes to the Info director= y file: #+vindex: org-texinfo-default-class #+cindex: @samp{TEXINFO_CLASS}, keyword The Texinfo export back-end uses a pre-defined scheme to convert Org -headlines to equivalent Texinfo structuring commands. A scheme like -this maps top-level headlines to numbered chapters tagged as -~@chapter~ and lower-level headlines to unnumbered chapters tagged as +headings to equivalent Texinfo structuring commands. A scheme like +this maps top-level headings to numbered chapters tagged as +~@chapter~ and lower-level headings to unnumbered chapters tagged as ~@unnumbered~. To override such mappings to introduce ~@part~ or other Texinfo structuring commands, define a new class in ~org-texinfo-classes~. Activate the new class with the @@ -15117,19 +15117,19 @@ other Texinfo structuring commands, define a new = class in the Texinfo export back-end defaults to the ~org-texinfo-default-class~. =20 -If an Org headline's level has no associated Texinfo structuring +If an Org heading's level has no associated Texinfo structuring command, or is below a certain threshold (see [[*Export Settings]]), then the Texinfo export back-end makes it into a list item. =20 #+cindex: @samp{APPENDIX}, property -The Texinfo export back-end makes any headline with a non-~nil~ +The Texinfo export back-end makes any heading with a non-~nil~ =3DAPPENDIX=3D property into an appendix. This happens independent of the -Org headline level or the =3DTEXINFO_CLASS=3D keyword. +Org heading level or the =3DTEXINFO_CLASS=3D keyword. =20 #+cindex: @samp{ALT_TITLE}, property #+cindex: @samp{DESCRIPTION}, property The Texinfo export back-end creates a menu entry after the Org -headline for each regular sectioning structure. To override this with +heading for each regular sectioning structure. To override this with a shorter menu entry, use the =3DALT_TITLE=3D property (see [[*Table of Contents]]). Texinfo menu entries also have an option for a longer =3DDESCRIPTION=3D property. Here's an example that uses both to override @@ -15144,7 +15144,7 @@ the default menu entry: #+end_example =20 #+cindex: Top node, in Texinfo export -The text before the first headline belongs to the /Top/ node, i.e., +The text before the first heading belongs to the /Top/ node, i.e., the node in which a reader enters an Info manual. As such, it is expected not to appear in printed output generated from the =3D.texi=3D file. See [[info:texinfo::The Top Node]], for more information. @@ -15175,11 +15175,11 @@ belong to a Texinfo command. : #+CINDEX: Defining indexing entries =20 #+cindex: @samp{INDEX}, property -For the back-end to generate an index entry for a headline, set the +For the back-end to generate an index entry for a heading, set the =3DINDEX=3D property to =3Dcp=3D or =3Dvr=3D. These abbreviations come fr= om Texinfo that stand for concept index and variable index. The Texinfo manual has abbreviations for all other kinds of indexes. The back-end -exports the headline as an unnumbered chapter or section command, and +exports the heading as an unnumbered chapter or section command, and then inserts the index after its contents. =20 #+begin_example @@ -15459,7 +15459,7 @@ entry. Consult the ~org-icalendar-use-deadline~ and =20 #+vindex: org-icalendar-categories #+vindex: org-icalendar-alarm-time -For tags on the headline, the iCalendar export back-end makes them +For tags on the heading, the iCalendar export back-end makes them into iCalendar categories. To tweak the inheritance of tags and TODO states, configure the variable ~org-icalendar-categories~. To assign clock alarms based on time, configure the ~org-icalendar-alarm-time~ @@ -15518,7 +15518,7 @@ when exporting. To force the back-end to inherit t= he =3DLOCATION=3D, #+vindex: org-icalendar-include-body When Org entries do not have =3DSUMMARY=3D, =3DDESCRIPTION=3D, =3DLOCATION= =3D and =3DCLASS=3D properties, the iCalendar export back-end derives the summary -from the headline, and derives the description from the body of the +from the heading, and derives the description from the body of the Org item. The ~org-icalendar-include-body~ variable limits the maximum number of characters of the content are turned into its description. @@ -15582,16 +15582,16 @@ before the buffer is parsed. Functions added to these hooks are called with a single argument: the export back-end actually used, as a symbol. You may use them for heavy duty structural modifications of the document. For example, you -can remove every headline in the buffer during export like this: +can remove every heading in the buffer during export like this: =20 #+begin_src emacs-lisp -(defun my-headline-removal (backend) - "Remove all headlines in the current buffer. +(defun my-heading-removal (backend) + "Remove all headings in the current buffer. BACKEND is the export back-end being used, as a symbol." (org-map-entries (lambda () (delete-region (point) (line-beginning-position 2))))) =20 -(add-hook 'org-export-before-parsing-hook #'my-headline-removal) +(add-hook 'org-export-before-parsing-hook #'my-heading-removal) #+end_src =20 *** Filters @@ -15617,7 +15617,7 @@ is the type targeted by the filter. Valid types ar= e: | diary-sexp | drawer | dynamic-block | | entity | example-block | export-block | | export-snippet | final-output | fixed-width | -| footnote-definition | footnote-reference | headline | +| footnote-definition | footnote-reference | heading | | horizontal-rule | inline-babel-call | inline-src-block | | inlinetask | italic | item | | keyword | latex-environment | latex-fragment | @@ -15996,7 +15996,7 @@ Settings]]), however, override everything. =20 | ~:archived-trees~ | ~org-export-with-archived-trees~ | | ~:exclude-tags~ | ~org-export-exclude-tags~ | -| ~:headline-levels~ | ~org-export-headline-levels~ | +| ~:heading-levels~ | ~org-export-heading-levels~ | | ~:language~ | ~org-export-default-language~ | | ~:preserve-breaks~ | ~org-export-preserve-breaks~ | | ~:section-numbers~ | ~org-export-with-section-numbers~ | @@ -16036,7 +16036,7 @@ Settings]]), however, override everything. | ~:ascii-global-margin~ | ~org-ascii-global-margin~ = | | ~:ascii-format-drawer-function~ | ~org-ascii-format-drawer-functi= on~ | | ~:ascii-format-inlinetask-function~ | ~org-ascii-format-inlinetask-fu= nction~ | -| ~:ascii-headline-spacing~ | ~org-ascii-headline-spacing~ = | +| ~:ascii-heading-spacing~ | ~org-ascii-heading-spacing~ = | | ~:ascii-indented-line-width~ | ~org-ascii-indented-line-width~= | | ~:ascii-inlinetask-width~ | ~org-ascii-inlinetask-width~ = | | ~:ascii-inner-margin~ | ~org-ascii-inner-margin~ = | @@ -16079,7 +16079,7 @@ Settings]]), however, override everything. | ~:html-footnote-separator~ | ~org-html-footnote-sepa= rator~ | | ~:html-footnotes-section~ | ~org-html-footnotes-sec= tion~ | | ~:html-format-drawer-function~ | ~org-html-format-drawer= -function~ | -| ~:html-format-headline-function~ | ~org-html-format-headli= ne-function~ | +| ~:html-format-heading-function~ | ~org-html-format-heading= -function~ | | ~:html-format-inlinetask-function~ | ~org-html-format-inline= task-function~ | | ~:html-head-extra~ | ~org-html-head-extra~ = | | ~:html-head-include-default-style~ | ~org-html-head-include-= default-style~ | @@ -16104,7 +16104,7 @@ Settings]]), however, override everything. | ~:html-postamble~ | ~org-html-postamble~ = | | ~:html-preamble-format~ | ~org-html-preamble-form= at~ | | ~:html-preamble~ | ~org-html-preamble~ = | -| ~:html-self-link-headlines~ | ~org-html-self-link-hea= dlines~ | +| ~:html-self-link-headings~ | ~org-html-self-link-head= ings~ | | ~:html-table-align-individual-field~ | ~de{org-html-table-alig= n-individual-fields~ | | ~:html-table-attributes~ | ~org-html-table-default= -attributes~ | | ~:html-table-caption-above~ | ~org-html-table-caption= -above~ | @@ -16139,7 +16139,7 @@ Settings]]), however, override everything. | ~:latex-footnote-defined-format~ | ~org-latex-footnote-defined-for= mat~ | | ~:latex-footnote-separator~ | ~org-latex-footnote-separator~ = | | ~:latex-format-drawer-function~ | ~org-latex-format-drawer-functi= on~ | -| ~:latex-format-headline-function~ | ~org-latex-format-headline-func= tion~ | +| ~:latex-format-heading-function~ | ~org-latex-format-heading-functi= on~ | | ~:latex-format-inlinetask-function~ | ~org-latex-format-inlinetask-fu= nction~ | | ~:latex-hyperref-template~ | ~org-latex-hyperref-template~ = | | ~:latex-image-default-height~ | ~org-latex-image-default-height= ~ | @@ -16171,7 +16171,7 @@ Settings]]), however, override everything. =20 | ~:md-footnote-format~ | ~org-md-footnote-format~ | | ~:md-footnotes-section~ | ~org-md-footnotes-section~ | -| ~:md-headline-style~ | ~org-md-headline-style~ | +| ~:md-heading-style~ | ~org-md-heading-style~ | =20 **** ODT specific properties :PROPERTIES: @@ -16182,7 +16182,7 @@ Settings]]), however, override everything. | ~:odt-display-outline-level~ | ~org-odt-display-outline-level~ = | | ~:odt-fontify-srcblocks~ | ~org-odt-fontify-srcblocks~ = | | ~:odt-format-drawer-function~ | ~org-odt-format-drawer-function~ = | -| ~:odt-format-headline-function~ | ~org-odt-format-headline-function~ = | +| ~:odt-format-heading-function~ | ~org-odt-format-heading-function~ | | ~:odt-format-inlinetask-function~ | ~org-odt-format-inlinetask-function~= | | ~:odt-inline-formula-rules~ | ~org-odt-inline-formula-rules~ = | | ~:odt-inline-image-rules~ | ~org-odt-inline-image-rules~ = | @@ -16203,7 +16203,7 @@ Settings]]), however, override everything. | ~:texinfo-diary-timestamp-format~ | ~org-texinfo-diary-timestamp-= format~ | | ~:texinfo-filename~ | ~org-texinfo-filename~ = | | ~:texinfo-format-drawer-function~ | ~org-texinfo-format-drawer-fu= nction~ | -| ~:texinfo-format-headline-function~ | ~org-texinfo-format-headline-= function~ | +| ~:texinfo-format-heading-function~ | ~org-texinfo-format-heading-fu= nction~ | | ~:texinfo-format-inlinetask-function~ | ~org-texinfo-format-inlinetas= k-function~ | | ~:texinfo-inactive-timestamp-format~ | ~org-texinfo-inactive-timesta= mp-format~ | | ~:texinfo-link-with-unknown-path-format~ | ~org-texinfo-link-with-unknow= n-path-format~ | @@ -16455,7 +16455,7 @@ place on the web server, and publishing images to i= t. :publishing-directory "/ssh:user@host:~/html/notebook/" :publishing-function org-html-publish-to-html :exclude "PrivatePage.org" ;; regexp - :headline-levels 3 + :heading-levels 3 :section-numbers nil :with-toc nil :html-head "