etc/ORG-NEWS: Mention the new \P entity

* lisp/oc-csl.el: Recognise org-entity based paragraph and section
locators "\P" and "\S".

etc/ORG-NEWS

@@ -209,6 +209,12 @@ from Clojure and ClojureScript.
 This is now handled with an optional function parameter in
 the respective functions that need this information.
 
+*** New org-entity alias: =\P= for =\para=
+
+For symmetry with =\S= and =\sect= for the section symbol, =\P= has
+been added as an another form for the pilcrow symbol currently
+available as =\para=.
+
 * Version 9.6
 
 ** Important announcements and breaking changes

lisp/ob-tangle.el

@@ -158,9 +158,9 @@ result.  The default value is `org-remove-indentation'."
   :version "24.1"
   :type 'function)
 
-(defcustom org-babel-tangle-default-file-mode #o544
+(defcustom org-babel-tangle-default-file-mode #o644
   "The default mode used for tangled files, as an integer.
-The default value 356 correspands to the octal #o544, which is
+The default value 420 correspands to the octal #o644, which is
 read-write permissions for the user, read-only for everyone else."
   :group 'org-babel-tangle
   :package-version '(Org . "9.6")
@@ -361,9 +361,9 @@ Did you give the decimal value %1$d by mistake?" mode)))
     ;; Match regexp taken from `file-modes-symbolic-to-number'.
     (file-modes-symbolic-to-number mode org-babel-tangle-default-file-mode))
    ((string-match-p "^[r-][w-][xs-][r-][w-][xs-][r-][w-][x-]$" mode)
-    (file-modes-symbolic-to-number (concat  "u=" (substring mode 0 3)
+    (file-modes-symbolic-to-number (concat "u="  (delete ?- (substring mode 0 3))
-                                            ",g=" (substring mode 3 6)
+                                           ",g=" (delete ?- (substring mode 3 6))
-                                            ",o=" (substring mode 6 9))
+                                           ",o=" (delete ?- (substring mode 6 9)))
                                    0))
    (t (error "File mode %S not recognized as a valid format. See `org-babel-interpret-file-mode'." mode))))
 

lisp/oc-csl.el

@@ -382,13 +382,17 @@ If nil then the Chicago author-date style is used as a fallback.")
     ("paragraph" . "paragraph")
     ("para."     . "paragraph")
     ("paras."    . "paragraph")
+    ("\\P"       . "paragraph")
     ("¶"         . "paragraph")
+    ("\\P\\P"    . "paragraph")
     ("¶¶"        . "paragraph")
     ("part"      . "part")
     ("pt."       . "part")
     ("pts."      . "part")
     ("§"         . "section")
+    ("\\S"       . "section")
     ("§§"        . "section")
+    ("\\S\\S"    . "section")
     ("section"   . "section")
     ("sec."      . "section")
     ("secs."     . "section")

lisp/org-entities.el

@@ -272,8 +272,10 @@ packages to be loaded, add these packages to `org-latex-packages-alist'."
      ("vert" "\\vert{}" t "|" "|" "|" "|")
      ("vbar" "|" nil "|" "|" "|" "|")
      ("brvbar" "\\textbrokenbar{}" nil "¦" "|" "¦" "¦")
-     ("S" "\\S" nil "§" "paragraph" "§" "§")
+     ("S" "\\S" nil "§" "section" "§" "§")
-     ("sect" "\\S" nil "§" "paragraph" "§" "§")
+     ("sect" "\\S" nil "§" "section" "§" "§")
+     ("P" "\\P{}" nil "¶" "paragraph" "¶" "¶")
+     ("para" "\\P{}" nil "¶" "paragraph" "¶" "¶")
      ("amp" "\\&" nil "&" "&" "&" "&")
      ("lt" "\\textless{}" nil "&lt;" "<" "<" "<")
      ("gt" "\\textgreater{}" nil "&gt;" ">" ">" ">")
@@ -489,7 +491,6 @@ packages to be loaded, add these packages to `org-latex-packages-alist'."
      ("checkmark" "\\checkmark" t "&check;" "[checkmark]" "[checkmark]" "✓")
 
      "** Miscellaneous (seldom used)"
-     ("para" "\\P{}" nil "&para;" "[pilcrow]" "¶" "¶")
      ("ordf" "\\textordfeminine{}" nil "&ordf;" "_a_" "ª" "ª")
      ("ordm" "\\textordmasculine{}" nil "&ordm;" "_o_" "º" "º")
      ("cedil" "\\c{}" nil "&cedil;" "[cedilla]" "¸" "¸")