[nongnu] elpa/markdown-mode fc733be 1/8: feat: Add resize inline image without imagemagick

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit fc733be3777c281d5d5e06dacf71cc43109e4a1f
Author: Noboru Ota 
Commit: Noboru Ota 

feat: Add resize inline image without imagemagick

This is a small enahcnement to `markdown-toggle-inline-images`,
adding a feature to resize the inline display of the image without the need
for Imagemagick present in the computer.

It uses the existing variable `markdown-max-image-size` to
determine the size.

Org Mode now is able to do this (see the code in the link below). This 
feature
is intended to emulate it in Markdown-mode.


https://github.com/bzg/org-mode/blob/abedf386b3f13af2769728755d00c4698ac5d3b0/lisp/org.el#L16344-L16349

  (create-image file-or-data
(and (image-type-available-p 'imagemagick)
 width
 'imagemagick)
remote?
:width width
---
 markdown-mode.el | 16 ++--
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index b27ad49..64e5ac0 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -8429,13 +8429,17 @@ or \\[markdown-toggle-inline-images]."
   unhex_file
 (concat default-directory unhex_file)))
  (image
-  (if (and markdown-max-image-size
+  (cond ((and markdown-max-image-size
(image-type-available-p 'imagemagick))
-  (create-image
-   abspath 'imagemagick nil
-   :max-width (car markdown-max-image-size)
-   :max-height (cdr markdown-max-image-size))
-(create-image abspath
+ (create-image
+  abspath 'imagemagick nil
+  :max-width (car markdown-max-image-size)
+  :max-height (cdr markdown-max-image-size)))
+(markdown-max-image-size
+ (create-image abspath nil nil
+   :max-width (car 
markdown-max-image-size)
+   :max-height (cdr 
markdown-max-image-size)))
+(t (create-image abspath)
 (when image
   (let ((ov (make-overlay start end)))
 (overlay-put ov 'display image)

[nongnu] elpa/markdown-mode da7b9df 2/8: Update CHANGELOG

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit da7b9df08800c4f8acb6cdf7495196102aa95091
Author: Noboru Ota 
Commit: Noboru Ota 

Update CHANGELOG
---
 CHANGES.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGES.md b/CHANGES.md
index 9a1d580..2f65410 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -10,6 +10,7 @@
 to automatically define a default link text before prompting the user.
 -   Option to inhibit the prompt for a tooltip text via
 `markdown-disable-tooltip-prompt`.
+-   Add ability to resize inline image display without Imagemagick in the 
computer (emulating Org Mode)
 
 *   Improvements:
 -   Correct indirect buffer's indentation in `markdown-edit-code-block` 
[GH-375][]

[nongnu] elpa/markdown-mode 0085875 4/8: Merge pull request #579 from nobiot/feat/inline-image-size-no-imagemagick

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit 00858754c0e8e7b413a21862aac8387351486cfe
Merge: e250a84 6f97180
Author: Shohei YOSHIDA 
Commit: GitHub 

Merge pull request #579 from nobiot/feat/inline-image-size-no-imagemagick

Feat/inline image size no imagemagick
---
 CHANGES.md   |  1 +
 markdown-mode.el | 16 ++--
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 9a1d580..788cd1e 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -24,6 +24,7 @@
 -   Enable flyspell check at yaml metadata[GH-560][]
 -   Clean up Makefile
 -   Support to display local image with percent encoding file path
+-   Add ability to resize inline image display 
(`markdown-toggle-inline-images`) without Imagemagick installed in the computer 
(emulating Org Mode)
 
 *   Bug fixes:
 -   Fix remaining flyspell overlay in code block or comment issue 
[GH-311][]
diff --git a/markdown-mode.el b/markdown-mode.el
index b27ad49..64e5ac0 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -8429,13 +8429,17 @@ or \\[markdown-toggle-inline-images]."
   unhex_file
 (concat default-directory unhex_file)))
  (image
-  (if (and markdown-max-image-size
+  (cond ((and markdown-max-image-size
(image-type-available-p 'imagemagick))
-  (create-image
-   abspath 'imagemagick nil
-   :max-width (car markdown-max-image-size)
-   :max-height (cdr markdown-max-image-size))
-(create-image abspath
+ (create-image
+  abspath 'imagemagick nil
+  :max-width (car markdown-max-image-size)
+  :max-height (cdr markdown-max-image-size)))
+(markdown-max-image-size
+ (create-image abspath nil nil
+   :max-width (car 
markdown-max-image-size)
+   :max-height (cdr 
markdown-max-image-size)))
+(t (create-image abspath)
 (when image
   (let ((ov (make-overlay start end)))
 (overlay-put ov 'display image)

[nongnu] elpa/markdown-mode ec6ae58 7/8: Merge remote-tracking branch 'origin/master' into pr-581

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit ec6ae5858be74530ba891277d53d05d0dce95edd
Merge: d5106ff 0085875
Author: Shohei YOSHIDA 
Commit: Shohei YOSHIDA 

Merge remote-tracking branch 'origin/master' into pr-581
---
 CHANGES.md   |  1 +
 markdown-mode.el | 16 ++--
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 0953909..d3ed601 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -24,6 +24,7 @@
 -   Enable flyspell check at yaml metadata[GH-560][]
 -   Clean up Makefile
 -   Support to display local image with percent encoding file path
+-   Add ability to resize inline image display 
(`markdown-toggle-inline-images`) without Imagemagick installed in the computer 
(emulating Org Mode)
 -   Support including braces around the language specification in GFM code 
blocks
 
 *   Bug fixes:
diff --git a/markdown-mode.el b/markdown-mode.el
index 6c80f95..4d9ab78 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -8438,13 +8438,17 @@ or \\[markdown-toggle-inline-images]."
   unhex_file
 (concat default-directory unhex_file)))
  (image
-  (if (and markdown-max-image-size
+  (cond ((and markdown-max-image-size
(image-type-available-p 'imagemagick))
-  (create-image
-   abspath 'imagemagick nil
-   :max-width (car markdown-max-image-size)
-   :max-height (cdr markdown-max-image-size))
-(create-image abspath
+ (create-image
+  abspath 'imagemagick nil
+  :max-width (car markdown-max-image-size)
+  :max-height (cdr markdown-max-image-size)))
+(markdown-max-image-size
+ (create-image abspath nil nil
+   :max-width (car 
markdown-max-image-size)
+   :max-height (cdr 
markdown-max-image-size)))
+(t (create-image abspath)
 (when image
   (let ((ov (make-overlay start end)))
 (overlay-put ov 'display image)

[nongnu] elpa/markdown-mode 6724a2c 5/8: Added optional support for inserting braces in GFM code block header

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit 6724a2cb23853cb1aea62e2839be17e71bab2525
Author: plantarum 
Commit: Shohei YOSHIDA 

Added optional support for inserting braces in GFM code block header
---
 CHANGES.md   |  1 +
 README.md|  6 +
 markdown-mode.el | 77 +++-
 3 files changed, 50 insertions(+), 34 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 9a1d580..0953909 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -24,6 +24,7 @@
 -   Enable flyspell check at yaml metadata[GH-560][]
 -   Clean up Makefile
 -   Support to display local image with percent encoding file path
+-   Support including braces around the language specification in GFM code 
blocks
 
 *   Bug fixes:
 -   Fix remaining flyspell overlay in code block or comment issue 
[GH-311][]
diff --git a/README.md b/README.md
index bd4e891..216e180 100644
--- a/README.md
+++ b/README.md
@@ -991,6 +991,12 @@ by `markdown-mode` and `gfm-mode` as described below.
   region will be placed inside the code block.  You will be
   prompted for the name of the language, but may press enter to
   continue without naming a language.
+  
+  In addition, in `gfm-mode`, GFM code blocks can be inserted via the
+  option `markdown-gfm-use-electric-backquote`. If the option
+  `markdown-code-block-braces` is set to `t`, code blocks inserted with
+  C-c C-s C or electric backquotes will include braces ("{}")
+  around the language attributes.
 
 * **Strikethrough:** Strikethrough text is supported in both
   `markdown-mode` and `gfm-mode`.  It can be inserted (and toggled)
diff --git a/markdown-mode.el b/markdown-mode.el
index b27ad49..6c80f95 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -4301,6 +4301,11 @@ opening code fence and an info string."
   :safe #'natnump
   :package-version '(markdown-mode . "2.3"))
 
+(defcustom markdown-code-block-braces nil
+  "When non-nil, automatically insert braces for GFM code blocks."
+  :group 'markdown
+  :type 'boolean)
+
 (defun markdown-insert-gfm-code-block (&optional lang edit)
   "Insert GFM code block for language LANG.
 If LANG is nil, the language will be queried from user.  If a
@@ -4321,45 +4326,49 @@ code block in an indirect buffer after insertion."
  (quit "")))
  current-prefix-arg))
   (unless (string= lang "") (markdown-gfm-add-used-language lang))
-  (when (> (length lang) 0)
+  (when (and (> (length lang) 0)
+ (not markdown-code-block-braces))
 (setq lang (concat (make-string markdown-spaces-after-code-fence ?\s)
lang)))
-  (if (use-region-p)
-  (let* ((b (region-beginning)) (e (region-end)) end
- (indent (progn (goto-char b) (current-indentation
-(goto-char e)
-;; if we're on a blank line, don't newline, otherwise the ```
-;; should go on its own line
-(unless (looking-back "\n" nil)
-  (newline))
+  (let ((gfm-open-brace (if markdown-code-block-braces "{" ""))
+(gfm-close-brace (if markdown-code-block-braces "}" "")))
+(if (use-region-p)
+(let* ((b (region-beginning)) (e (region-end)) end
+   (indent (progn (goto-char b) (current-indentation
+  (goto-char e)
+  ;; if we're on a blank line, don't newline, otherwise the ```
+  ;; should go on its own line
+  (unless (looking-back "\n" nil)
+(newline))
+  (indent-to indent)
+  (insert "```")
+  (markdown-ensure-blank-line-after)
+  (setq end (point))
+  (goto-char b)
+  ;; if we're on a blank line, insert the quotes here, otherwise
+  ;; add a new line first
+  (unless (looking-at-p "\n")
+(newline)
+(forward-line -1))
+  (markdown-ensure-blank-line-before)
+  (indent-to indent)
+  (insert "```" gfm-open-brace lang gfm-close-brace)
+  (markdown-syntax-propertize-fenced-block-constructs (point-at-bol) 
end))
+  (let ((indent (current-indentation))
+start-bol)
+(delete-horizontal-space :backward-only)
+(markdown-ensure-blank-line-before)
+(indent-to indent)
+(setq start-bol (point-at-bol))
+(insert "```" gfm-open-brace lang gfm-close-brace "\n")
+(indent-to indent)
+(unless edit (insert ?\n))
 (indent-to indent)
 (insert "```")
 (markdown-ensure-blank-line-after)
-(setq end (point))
-(goto-char b)
-;; if we're on a blank line, insert the quotes here, otherwise
-;; add a new line first
-(unless (looking-at-p "\n")
-  (newline)
-  (forward-line -1))
-(markdown-ensure-blank-line-before)
-(indent-to indent)
-(insert "```" lang)
-(markdown-syntax-propertize-fenced-block-constructs (point-at-bol) 
end))
-(let ((indent (current-indentation)) start-bol)
-  (delete-horizo

[nongnu] elpa/markdown-mode d5106ff 6/8: Add unit test for markdown code block braces

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit d5106ff6823b93593beebe1618582e6ecb21d70c
Author: Shohei YOSHIDA 
Commit: Shohei YOSHIDA 

Add unit test for markdown code block braces
---
 tests/markdown-test.el | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/tests/markdown-test.el b/tests/markdown-test.el
index 99b9ad3..a6b200f 100644
--- a/tests/markdown-test.el
+++ b/tests/markdown-test.el
@@ -6185,6 +6185,13 @@ Details: 
https://github.com/jrblevin/markdown-mode/issues/534";
 (should (equal (buffer-substring-no-properties (point) (point-max))
"\nbar\n```\n\n"
 
+(ert-deftest test-markdown-gfm/markdown-code-block-braces ()
+  "Test `markdown-gfm-use-electric-backquote'."
+  (markdown-test-string-gfm ""
+(let ((markdown-code-block-braces t))
+  (markdown-insert-gfm-code-block "elisp")
+  (should (equal (buffer-string) "```{elisp}\n\n```")
+
 (ert-deftest test-markdown-gfm/gfm-parse-buffer-for-languages ()
   "Parse buffer for existing languages for `markdown-gfm-used-languages' test."
   (markdown-test-string-gfm "``` MADEUP\n\n```\n``` 
LANGUAGES\n\n```\n```MaDeUp\n\n```\n```\n\n```\n``` \n\n```\n"

[nongnu] elpa/markdown-mode 137696f 8/8: Merge branch 'pr-581'

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit 137696f1b3b3d8b028995d933d555f1313bc5ae5
Merge: 0085875 ec6ae58
Author: Shohei YOSHIDA 
Commit: Shohei YOSHIDA 

Merge branch 'pr-581'
---
 CHANGES.md |  1 +
 README.md  |  6 
 markdown-mode.el   | 77 --
 tests/markdown-test.el |  7 +
 4 files changed, 57 insertions(+), 34 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 788cd1e..d3ed601 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -25,6 +25,7 @@
 -   Clean up Makefile
 -   Support to display local image with percent encoding file path
 -   Add ability to resize inline image display 
(`markdown-toggle-inline-images`) without Imagemagick installed in the computer 
(emulating Org Mode)
+-   Support including braces around the language specification in GFM code 
blocks
 
 *   Bug fixes:
 -   Fix remaining flyspell overlay in code block or comment issue 
[GH-311][]
diff --git a/README.md b/README.md
index bd4e891..216e180 100644
--- a/README.md
+++ b/README.md
@@ -991,6 +991,12 @@ by `markdown-mode` and `gfm-mode` as described below.
   region will be placed inside the code block.  You will be
   prompted for the name of the language, but may press enter to
   continue without naming a language.
+  
+  In addition, in `gfm-mode`, GFM code blocks can be inserted via the
+  option `markdown-gfm-use-electric-backquote`. If the option
+  `markdown-code-block-braces` is set to `t`, code blocks inserted with
+  C-c C-s C or electric backquotes will include braces ("{}")
+  around the language attributes.
 
 * **Strikethrough:** Strikethrough text is supported in both
   `markdown-mode` and `gfm-mode`.  It can be inserted (and toggled)
diff --git a/markdown-mode.el b/markdown-mode.el
index 64e5ac0..4d9ab78 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -4301,6 +4301,11 @@ opening code fence and an info string."
   :safe #'natnump
   :package-version '(markdown-mode . "2.3"))
 
+(defcustom markdown-code-block-braces nil
+  "When non-nil, automatically insert braces for GFM code blocks."
+  :group 'markdown
+  :type 'boolean)
+
 (defun markdown-insert-gfm-code-block (&optional lang edit)
   "Insert GFM code block for language LANG.
 If LANG is nil, the language will be queried from user.  If a
@@ -4321,45 +4326,49 @@ code block in an indirect buffer after insertion."
  (quit "")))
  current-prefix-arg))
   (unless (string= lang "") (markdown-gfm-add-used-language lang))
-  (when (> (length lang) 0)
+  (when (and (> (length lang) 0)
+ (not markdown-code-block-braces))
 (setq lang (concat (make-string markdown-spaces-after-code-fence ?\s)
lang)))
-  (if (use-region-p)
-  (let* ((b (region-beginning)) (e (region-end)) end
- (indent (progn (goto-char b) (current-indentation
-(goto-char e)
-;; if we're on a blank line, don't newline, otherwise the ```
-;; should go on its own line
-(unless (looking-back "\n" nil)
-  (newline))
+  (let ((gfm-open-brace (if markdown-code-block-braces "{" ""))
+(gfm-close-brace (if markdown-code-block-braces "}" "")))
+(if (use-region-p)
+(let* ((b (region-beginning)) (e (region-end)) end
+   (indent (progn (goto-char b) (current-indentation
+  (goto-char e)
+  ;; if we're on a blank line, don't newline, otherwise the ```
+  ;; should go on its own line
+  (unless (looking-back "\n" nil)
+(newline))
+  (indent-to indent)
+  (insert "```")
+  (markdown-ensure-blank-line-after)
+  (setq end (point))
+  (goto-char b)
+  ;; if we're on a blank line, insert the quotes here, otherwise
+  ;; add a new line first
+  (unless (looking-at-p "\n")
+(newline)
+(forward-line -1))
+  (markdown-ensure-blank-line-before)
+  (indent-to indent)
+  (insert "```" gfm-open-brace lang gfm-close-brace)
+  (markdown-syntax-propertize-fenced-block-constructs (point-at-bol) 
end))
+  (let ((indent (current-indentation))
+start-bol)
+(delete-horizontal-space :backward-only)
+(markdown-ensure-blank-line-before)
+(indent-to indent)
+(setq start-bol (point-at-bol))
+(insert "```" gfm-open-brace lang gfm-close-brace "\n")
+(indent-to indent)
+(unless edit (insert ?\n))
 (indent-to indent)
 (insert "```")
 (markdown-ensure-blank-line-after)
-(setq end (point))
-(goto-char b)
-;; if we're on a blank line, insert the quotes here, otherwise
-;; add a new line first
-(unless (looking-at-p "\n")
-  (newline)
-  (forward-line -1))
-(markdown-ensure-blank-line-before)
-(indent-to indent)
-(insert "```" lang)
-(markdown-syntax-propert

[nongnu] elpa/markdown-mode 6f97180 3/8: Update CHANGELOG

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit 6f971802182368a266b174c619ccb4138a3f943c
Author: Noboru Ota 
Commit: Noboru Ota 

Update CHANGELOG
---
 CHANGES.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CHANGES.md b/CHANGES.md
index 2f65410..788cd1e 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -10,7 +10,6 @@
 to automatically define a default link text before prompting the user.
 -   Option to inhibit the prompt for a tooltip text via
 `markdown-disable-tooltip-prompt`.
--   Add ability to resize inline image display without Imagemagick in the 
computer (emulating Org Mode)
 
 *   Improvements:
 -   Correct indirect buffer's indentation in `markdown-edit-code-block` 
[GH-375][]
@@ -25,6 +24,7 @@
 -   Enable flyspell check at yaml metadata[GH-560][]
 -   Clean up Makefile
 -   Support to display local image with percent encoding file path
+-   Add ability to resize inline image display 
(`markdown-toggle-inline-images`) without Imagemagick installed in the computer 
(emulating Org Mode)
 
 *   Bug fixes:
 -   Fix remaining flyspell overlay in code block or comment issue 
[GH-311][]

[nongnu] elpa/markdown-mode updated (e250a84 -> 137696f)

2021-01-06 Thread ELPA Syncer 
elpasync pushed a change to branch elpa/markdown-mode.

  from  e250a84   Update Changelog
   new  6724a2c   Added optional support for inserting braces in GFM code 
block header
   new  d5106ff   Add unit test for markdown code block braces
   new  fc733be   feat: Add resize inline image without imagemagick
   new  da7b9df   Update CHANGELOG
   new  6f97180   Update CHANGELOG
   new  0085875   Merge pull request #579 from 
nobiot/feat/inline-image-size-no-imagemagick
   new  ec6ae58   Merge remote-tracking branch 'origin/master' into pr-581
   new  137696f   Merge branch 'pr-581'


Summary of changes:
 CHANGES.md |  2 ++
 README.md  |  6 
 markdown-mode.el   | 93 --
 tests/markdown-test.el |  7 
 4 files changed, 68 insertions(+), 40 deletions(-)

[nongnu] elpa/markdown-mode 6d64f9e 2/2: Merge pull request #583 from jrblevin/byte-compile

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit 6d64f9e96203b1e76e3f0adfd2f545b5b02f5ffb
Merge: 137696f ae2187f
Author: Shohei YOSHIDA 
Commit: GitHub 

Merge pull request #583 from jrblevin/byte-compile

Fix byte-compile warnings for newer Emacs
---
 markdown-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index 4d9ab78..d784b98 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -116,7 +116,8 @@ arguments."
   :type '(choice file function (const :tag "None" nil)))
 
 (defcustom markdown-open-image-command nil
-  "Command used for opening image files directly at 
`markdown-follow-link-at-point'."
+  "Command used for opening image files directly.
+This is used at `markdown-follow-link-at-point'."
   :group 'markdown
   :type '(choice file function (const :tag "None" nil)))
 
@@ -2140,7 +2141,7 @@ Depending on your font, some reasonable choices are:
 
 (defconst markdown-footnote-chars
   "[[:alnum:]-]"
-  "Regular expression matching any character that is allowed in a footnote 
identifier.")
+  "Regular expression matching any character for a footnote identifier.")
 
 (defconst markdown-regex-footnote-definition
   (concat "^ \\{0,3\\}\\[\\(\\^" markdown-footnote-chars "*?\\)\\]:\\(?:[ 
\t]+\\|$\\)")

[nongnu] elpa/markdown-mode ae2187f 1/2: Fix byte-compile warnings for newer Emacs

2021-01-06 Thread ELPA Syncer 
branch: elpa/markdown-mode
commit ae2187f741f84669460286189808dca86730dc26
Author: Shohei YOSHIDA 
Commit: Shohei YOSHIDA 

Fix byte-compile warnings for newer Emacs

Newer Emacs warns against long docstring lines.
---
 markdown-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index 4d9ab78..d784b98 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -116,7 +116,8 @@ arguments."
   :type '(choice file function (const :tag "None" nil)))
 
 (defcustom markdown-open-image-command nil
-  "Command used for opening image files directly at 
`markdown-follow-link-at-point'."
+  "Command used for opening image files directly.
+This is used at `markdown-follow-link-at-point'."
   :group 'markdown
   :type '(choice file function (const :tag "None" nil)))
 
@@ -2140,7 +2141,7 @@ Depending on your font, some reasonable choices are:
 
 (defconst markdown-footnote-chars
   "[[:alnum:]-]"
-  "Regular expression matching any character that is allowed in a footnote 
identifier.")
+  "Regular expression matching any character for a footnote identifier.")
 
 (defconst markdown-regex-footnote-definition
   (concat "^ \\{0,3\\}\\[\\(\\^" markdown-footnote-chars "*?\\)\\]:\\(?:[ 
\t]+\\|$\\)")

[elpa] externals/diff-hl 8f4e413 1/4: Set reference rev in change log buffer

2021-01-06 Thread ELPA Syncer 
branch: externals/diff-hl
commit 8f4e4138fe18132d9e5ea0ba509bb12be2b73210
Author: AmaiKinono 
Commit: AmaiKinono 

Set reference rev in change log buffer
---
 diff-hl.el | 86 ++
 1 file changed, 86 insertions(+)

diff --git a/diff-hl.el b/diff-hl.el
index a816610..1f56ae4 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -55,6 +55,8 @@
 (require 'diff-mode)
 (require 'vc)
 (require 'vc-dir)
+(require 'log-view)
+
 (eval-when-compile
   (require 'cl-lib)
   (require 'vc-git)
@@ -684,6 +686,90 @@ The value of this variable is a mode line template as in
 (turn-on-diff-hl-mode)))
 
 ;;;###autoload
+(defun diff-hl-log-view-set-reference-rev-for-fileset ()
+  "In *vc-change-log* buffer, set current as reference revision.
+Call `vc-print-log' first, then use this command on a revision,
+`diff-hl' will show changes against this revision for this file."
+  (interactive)
+  ;; For some reason `log-view-current-tag' has to be called before
+  ;; `vc-deduce-fileset'.
+  (let* ((rev (log-view-current-tag))
+ (fileset (nth 1 (vc-deduce-fileset)))
+ (bufs (mapcar #'get-file-buffer fileset))
+ (bufs (cl-delete nil bufs)))
+(unless rev
+  (user-error "Not in a change log buffer"))
+(unless bufs
+  (user-error "Files in the fileset are all closed"))
+(dolist (buf bufs)
+  (with-current-buffer buf
+(setq-local diff-hl-reference-revision rev)
+
+;;;###autoload
+(defun diff-hl-reset-reference-rev-for-fileset ()
+  "Use most recent revision as reference for current fileset."
+  (interactive)
+  "Use most recent revision as reference for current fileset."
+  (let* ((fileset (nth 1 (vc-deduce-fileset)))
+ (bufs (mapcar #'get-file-buffer fileset))
+ (bufs (cl-delete nil bufs)))
+(unless bufs
+  (user-error "Files in the fileset are all closed"))
+(dolist (buf bufs)
+  (with-current-buffer buf
+(setq-local diff-hl-reference-revision nil)
+
+;;;###autoload
+(defun diff-hl-log-view-set-reference-rev-for-repo ()
+  "In *vc-change-log* buffer, set current as reference revision.
+Call `vc-print-root-log' first, then use this command on a
+revision, `diff-hl' will show changes against this revision for
+all files in the repo."
+  (interactive)
+  (let* ((rev (log-view-current-tag))
+ (repo (vc-root-dir))
+ bufs)
+(unless rev
+  (user-error "Not in a change log buffer"))
+;; If we are in a change log buffer, `repo' would not be nil, so it's safe
+;; to run `expand-file-name' on it.
+(setq repo (expand-file-name repo))
+(dolist (buf (buffer-list))
+  (with-current-buffer buf
+(let* ((filename (buffer-file-name))
+   (filename (when (stringp filename)
+   (expand-file-name filename
+  (when (and filename (string-prefix-p repo filename))
+(push buf bufs)
+(unless bufs
+  (user-error "Files in the repo are all closed"))
+(dolist (buf bufs)
+  (with-current-buffer buf
+(setq-local diff-hl-reference-revision rev)
+
+;;;###autoload
+(defun diff-hl-reset-reference-rev-for-repo ()
+  "Use most recent revision as reference for current repo."
+  (interactive)
+  (let* ((repo (vc-root-dir))
+ bufs)
+(unless repo
+  (user-error "Not in a repo"))
+(setq repo (expand-file-name repo))
+(dolist (buf (buffer-list))
+  (with-current-buffer buf
+(let* ((filename (buffer-file-name))
+   (filename (when (stringp filename)
+   (expand-file-name filename
+  (when (and filename (string-prefix-p repo filename))
+(push buf bufs)
+(unless bufs
+  (user-error "Files in the repo are all closed"))
+(dolist (buf bufs)
+  (with-current-buffer buf
+(setq-local diff-hl-reference-revision nil)
+
+;;;###autoload
 (define-globalized-minor-mode global-diff-hl-mode diff-hl-mode
   diff-hl--global-turn-on :after-hook (diff-hl-global-mode-change))

[elpa] externals/diff-hl ecd3a3e 3/4: fixup! more generalized diff-hl-set-reference-rev

2021-01-06 Thread ELPA Syncer 
branch: externals/diff-hl
commit ecd3a3e2c12680d013be23d9d7ee6f49a3394504
Author: AmaiKinono 
Commit: AmaiKinono 

fixup! more generalized diff-hl-set-reference-rev
---
 README.md  |  4 ++--
 diff-hl.el | 34 +++---
 2 files changed, 25 insertions(+), 13 deletions(-)

diff --git a/README.md b/README.md
index c5dd945..b64d228 100644
--- a/README.md
+++ b/README.md
@@ -15,8 +15,8 @@ The package also contains auxiliary modes:
 * `diff-hl-margin-mode` changes the highlighting function to
   use the margin instead of the fringe.
 * `diff-hl-amend-mode` sets the reference revision to the one before
-  recent one. Also, you could use `diff-hl-log-view-set-reference-rev`
-  to set it to any revision, see its docstring for details.
+  recent one. Also, you could use `diff-hl-set-reference-rev` to set
+  it to any revision, see its docstring for details.
 * `diff-hl-flydiff-mode` implements highlighting changes on the fly.
   It requires Emacs 24.4 or newer.
 
diff --git a/diff-hl.el b/diff-hl.el
index 10579a1..6328862 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -35,7 +35,7 @@
 ;; `diff-hl-revert-hunk' C-x v n
 ;; `diff-hl-previous-hunk'   C-x v [
 ;; `diff-hl-next-hunk'   C-x v ]
-;; `diff-hl-log-view-set-reference-rev'
+;; `diff-hl-set-reference-rev'
 ;; `diff-hl-reset-reference-rev'
 ;;
 ;; The mode takes advantage of `smartrep' if it is installed.
@@ -688,26 +688,38 @@ The value of this variable is a mode line template as in
 (turn-on-diff-hl-mode)))
 
 ;;;###autoload
-(defun diff-hl-log-view-set-reference-rev ()
-  "In *vc-change-log* buffer, set the current one as reference revision.
-Call `vc-print-log' or `vc-print-root-log' first, then use this
-command on a revision, `diff-hl-mode' will show changes against
-this revision.
+(defun diff-hl-set-reference-rev (&optional rev)
+  "Set the reference revision globally to REV.
+When called interactively, REV is get from contexts:
+
+- In a log view buffer, it uses the revision of current entry.
+Call `vc-print-log' or `vc-print-root-log' first to open a log
+view buffer.
+- In a VC annotate buffer, it uses the revision of current line.
+- In other situations, get the revision name at point.
 
 Notice that this sets the reference revision globally, so in
 files from other repositories, `diff-hl-mode' will not highlight
 changes correctly, until you run `diff-hl-reset-reference-rev'.
 
-Also notice that `diff-hl-amend-mode' will override this.
-Disable it to reveal the effect of this command."
+Also notice that this will disable `diff-hl-amend-mode' in
+buffers that enables it, since `diff-hl-amend-mode' overrides its
+effect."
   (interactive)
-  (let* ((rev (log-view-current-tag)))
-(unless rev
-  (user-error "Not in a change log buffer"))
+  (let* ((rev (or rev
+  (and (equal major-mode 'vc-annotate-mode)
+   (car (vc-annotate-extract-revision-at-line)))
+  (log-view-current-tag)
+  (thing-at-point 'symbol t
+(if rev
+(message "Set reference rev to %s" rev)
+  (user-error "Can't find a revision around point"))
 (setq diff-hl-reference-revision rev))
   (dolist (buf (buffer-list))
 (with-current-buffer buf
   (when diff-hl-mode
+(when diff-hl-amend-mode
+  (diff-hl-amend-mode -1))
 (diff-hl-update)
 
 ;;;###autoload

[elpa] externals/diff-hl updated (a0028d9 -> 89aeb2f)

2021-01-06 Thread ELPA Syncer 
elpasync pushed a change to branch externals/diff-hl.

  from  a0028d9   Merge branch 'externals/diff-hl' of 
git+ssh://git.sv.gnu.org/srv/git/emacs/elpa
   new  8f4e413   Set reference rev in change log buffer
   new  4857fb1   Set reference rev globally
   new  ecd3a3e   fixup! more generalized diff-hl-set-reference-rev
   new  89aeb2f   Merge pull request #146 from 
AmaiKinono/generalize-amend-mode


Summary of changes:
 README.md|  4 +++-
 diff-hl-amend.el |  2 +-
 diff-hl.el   | 49 +
 3 files changed, 53 insertions(+), 2 deletions(-)

[elpa] externals/diff-hl 4857fb1 2/4: Set reference rev globally

2021-01-06 Thread ELPA Syncer 
branch: externals/diff-hl
commit 4857fb10349e1398943630e0eada78729d9edf67
Author: AmaiKinono 
Commit: AmaiKinono 

Set reference rev globally
---
 README.md|   4 ++-
 diff-hl-amend.el |   2 +-
 diff-hl.el   | 103 +++
 3 files changed, 31 insertions(+), 78 deletions(-)

diff --git a/README.md b/README.md
index 9bc4576..c5dd945 100644
--- a/README.md
+++ b/README.md
@@ -14,7 +14,9 @@ The package also contains auxiliary modes:
 * `diff-hl-dired-mode` provides similar functionality in Dired.
 * `diff-hl-margin-mode` changes the highlighting function to
   use the margin instead of the fringe.
-* `diff-hl-amend-mode` shifts the reference revision back by one.
+* `diff-hl-amend-mode` sets the reference revision to the one before
+  recent one. Also, you could use `diff-hl-log-view-set-reference-rev`
+  to set it to any revision, see its docstring for details.
 * `diff-hl-flydiff-mode` implements highlighting changes on the fly.
   It requires Emacs 24.4 or newer.
 
diff --git a/diff-hl-amend.el b/diff-hl-amend.el
index defb3f4..f674753 100644
--- a/diff-hl-amend.el
+++ b/diff-hl-amend.el
@@ -39,7 +39,7 @@ Currently only supports Git, Mercurial and Bazaar."
 (diff-hl-amend-setup)
 (add-hook 'after-revert-hook 'diff-hl-amend-setup nil t))
 (remove-hook 'after-revert-hook 'diff-hl-amend-setup t)
-(setq-local diff-hl-reference-revision nil))
+(kill-local-variable 'diff-hl-reference-revision))
   (when diff-hl-mode
 (diff-hl-update)))
 
diff --git a/diff-hl.el b/diff-hl.el
index 1f56ae4..10579a1 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -35,6 +35,8 @@
 ;; `diff-hl-revert-hunk' C-x v n
 ;; `diff-hl-previous-hunk'   C-x v [
 ;; `diff-hl-next-hunk'   C-x v ]
+;; `diff-hl-log-view-set-reference-rev'
+;; `diff-hl-reset-reference-rev'
 ;;
 ;; The mode takes advantage of `smartrep' if it is installed.
 
@@ -686,88 +688,37 @@ The value of this variable is a mode line template as in
 (turn-on-diff-hl-mode)))
 
 ;;;###autoload
-(defun diff-hl-log-view-set-reference-rev-for-fileset ()
-  "In *vc-change-log* buffer, set current as reference revision.
-Call `vc-print-log' first, then use this command on a revision,
-`diff-hl' will show changes against this revision for this file."
+(defun diff-hl-log-view-set-reference-rev ()
+  "In *vc-change-log* buffer, set the current one as reference revision.
+Call `vc-print-log' or `vc-print-root-log' first, then use this
+command on a revision, `diff-hl-mode' will show changes against
+this revision.
+
+Notice that this sets the reference revision globally, so in
+files from other repositories, `diff-hl-mode' will not highlight
+changes correctly, until you run `diff-hl-reset-reference-rev'.
+
+Also notice that `diff-hl-amend-mode' will override this.
+Disable it to reveal the effect of this command."
   (interactive)
-  ;; For some reason `log-view-current-tag' has to be called before
-  ;; `vc-deduce-fileset'.
-  (let* ((rev (log-view-current-tag))
- (fileset (nth 1 (vc-deduce-fileset)))
- (bufs (mapcar #'get-file-buffer fileset))
- (bufs (cl-delete nil bufs)))
+  (let* ((rev (log-view-current-tag)))
 (unless rev
   (user-error "Not in a change log buffer"))
-(unless bufs
-  (user-error "Files in the fileset are all closed"))
-(dolist (buf bufs)
-  (with-current-buffer buf
-(setq-local diff-hl-reference-revision rev)
-
-;;;###autoload
-(defun diff-hl-reset-reference-rev-for-fileset ()
-  "Use most recent revision as reference for current fileset."
-  (interactive)
-  "Use most recent revision as reference for current fileset."
-  (let* ((fileset (nth 1 (vc-deduce-fileset)))
- (bufs (mapcar #'get-file-buffer fileset))
- (bufs (cl-delete nil bufs)))
-(unless bufs
-  (user-error "Files in the fileset are all closed"))
-(dolist (buf bufs)
-  (with-current-buffer buf
-(setq-local diff-hl-reference-revision nil)
-
-;;;###autoload
-(defun diff-hl-log-view-set-reference-rev-for-repo ()
-  "In *vc-change-log* buffer, set current as reference revision.
-Call `vc-print-root-log' first, then use this command on a
-revision, `diff-hl' will show changes against this revision for
-all files in the repo."
-  (interactive)
-  (let* ((rev (log-view-current-tag))
- (repo (vc-root-dir))
- bufs)
-(unless rev
-  (user-error "Not in a change log buffer"))
-;; If we are in a change log buffer, `repo' would not be nil, so it's safe
-;; to run `expand-file-name' on it.
-(setq repo (expand-file-name repo))
-(dolist (buf (buffer-list))
-  (with-current-buffer buf
-(let* ((filename (buffer-file-name))
-   (filename (when (stringp filename)
-   (expand-file-name filename
-  (when (and filename (string-prefix-p repo filename))
-(push buf bufs)
-(unless bufs
-  (user-error "Files in

[elpa] externals/diff-hl 89aeb2f 4/4: Merge pull request #146 from AmaiKinono/generalize-amend-mode

2021-01-06 Thread ELPA Syncer 
branch: externals/diff-hl
commit 89aeb2fc8b24b6c4de4394f85041c5dd5fa60dad
Merge: a0028d9 ecd3a3e
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #146 from AmaiKinono/generalize-amend-mode

Set reference rev in change log buffer
---
 README.md|  4 +++-
 diff-hl-amend.el |  2 +-
 diff-hl.el   | 49 +
 3 files changed, 53 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 9bc4576..b64d228 100644
--- a/README.md
+++ b/README.md
@@ -14,7 +14,9 @@ The package also contains auxiliary modes:
 * `diff-hl-dired-mode` provides similar functionality in Dired.
 * `diff-hl-margin-mode` changes the highlighting function to
   use the margin instead of the fringe.
-* `diff-hl-amend-mode` shifts the reference revision back by one.
+* `diff-hl-amend-mode` sets the reference revision to the one before
+  recent one. Also, you could use `diff-hl-set-reference-rev` to set
+  it to any revision, see its docstring for details.
 * `diff-hl-flydiff-mode` implements highlighting changes on the fly.
   It requires Emacs 24.4 or newer.
 
diff --git a/diff-hl-amend.el b/diff-hl-amend.el
index b0470ae..c58a2bd 100644
--- a/diff-hl-amend.el
+++ b/diff-hl-amend.el
@@ -39,7 +39,7 @@ Currently only supports Git, Mercurial and Bazaar."
 (diff-hl-amend-setup)
 (add-hook 'after-revert-hook 'diff-hl-amend-setup nil t))
 (remove-hook 'after-revert-hook 'diff-hl-amend-setup t)
-(setq-local diff-hl-reference-revision nil))
+(kill-local-variable 'diff-hl-reference-revision))
   (when diff-hl-mode
 (diff-hl-update)))
 
diff --git a/diff-hl.el b/diff-hl.el
index 0b7adc3..bf82254 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -35,6 +35,8 @@
 ;; `diff-hl-revert-hunk' C-x v n
 ;; `diff-hl-previous-hunk'   C-x v [
 ;; `diff-hl-next-hunk'   C-x v ]
+;; `diff-hl-set-reference-rev'
+;; `diff-hl-reset-reference-rev'
 ;;
 ;; The mode takes advantage of `smartrep' if it is installed.
 
@@ -55,6 +57,8 @@
 (require 'diff-mode)
 (require 'vc)
 (require 'vc-dir)
+(require 'log-view)
+
 (eval-when-compile
   (require 'cl-lib)
   (require 'vc-git)
@@ -698,6 +702,51 @@ The value of this variable is a mode line template as in
 (turn-on-diff-hl-mode)))
 
 ;;;###autoload
+(defun diff-hl-set-reference-rev (&optional rev)
+  "Set the reference revision globally to REV.
+When called interactively, REV is get from contexts:
+
+- In a log view buffer, it uses the revision of current entry.
+Call `vc-print-log' or `vc-print-root-log' first to open a log
+view buffer.
+- In a VC annotate buffer, it uses the revision of current line.
+- In other situations, get the revision name at point.
+
+Notice that this sets the reference revision globally, so in
+files from other repositories, `diff-hl-mode' will not highlight
+changes correctly, until you run `diff-hl-reset-reference-rev'.
+
+Also notice that this will disable `diff-hl-amend-mode' in
+buffers that enables it, since `diff-hl-amend-mode' overrides its
+effect."
+  (interactive)
+  (let* ((rev (or rev
+  (and (equal major-mode 'vc-annotate-mode)
+   (car (vc-annotate-extract-revision-at-line)))
+  (log-view-current-tag)
+  (thing-at-point 'symbol t
+(if rev
+(message "Set reference rev to %s" rev)
+  (user-error "Can't find a revision around point"))
+(setq diff-hl-reference-revision rev))
+  (dolist (buf (buffer-list))
+(with-current-buffer buf
+  (when diff-hl-mode
+(when diff-hl-amend-mode
+  (diff-hl-amend-mode -1))
+(diff-hl-update)
+
+;;;###autoload
+(defun diff-hl-reset-reference-rev ()
+  "Reset the reference revision globally to the most recent one."
+  (interactive)
+  (setq diff-hl-reference-revision nil)
+  (dolist (buf (buffer-list))
+(with-current-buffer buf
+  (when diff-hl-mode
+(diff-hl-update)
+
+;;;###autoload
 (define-globalized-minor-mode global-diff-hl-mode diff-hl-mode
   diff-hl--global-turn-on :after-hook (diff-hl-global-mode-change))

[elpa] externals/gnu-elpa f6d815f: * gnu-elpa-utils.el: Improve code to find which function is autoloaded

2021-01-06 Thread Stefan Monnier 
branch: externals/gnu-elpa
commit f6d815f9ad14e058759f87ad4da80a9a4bc79199
Author: Stefan Monnier 
Commit: Stefan Monnier 

* gnu-elpa-utils.el: Improve code to find which function is autoloaded

The old code was quite naive, only catering to the case where the
autoloaded function was called, whereas functions can be autoloaded
in many other cases via explicit calls to `autoload-do-load`.

(gnu-elpa--debug): New var.
(gnu-elpa--message): New function.
(gnu-elpa--f-of-af, gnu-elpa--autoloaded-sym-p): New functions.
(gnu-elpa--autoloaded-function): Rewrite.
(gnu-elpa--maybe-install): New function, extracted from
`gnu-elpa--perform-autoload`.
(gnu-elpa--perform-autoload): Use it, and adjust to new return value of
`gnu-elpa--autoloaded-function`.

* gnu-elpa--tests.el: New file.
* GNUmakefile: New file.
---
 GNUmakefile|  11 ++
 gnu-elpa--tests.el |  49 +++
 gnu-elpa-utils.el  | 114 +
 3 files changed, 157 insertions(+), 17 deletions(-)

diff --git a/GNUmakefile b/GNUmakefile
new file mode 100644
index 000..9084b70
--- /dev/null
+++ b/GNUmakefile
@@ -0,0 +1,11 @@
+
+EMACS=emacs --batch
+
+.PHONY: tests
+check:
+   $(EMACS) -l gnu-elpa-autoloads.el -l gnu-elpa--tests.el \
+-f ert-run-tests-batch-and-exit
+
+.PHONY: refresh
+refresh:
+   $(EMACS) -l gnu-elpa-maint.el -f gnu-elpa--make-features
diff --git a/gnu-elpa--tests.el b/gnu-elpa--tests.el
new file mode 100644
index 000..d42a006
--- /dev/null
+++ b/gnu-elpa--tests.el
@@ -0,0 +1,49 @@
+;;; gnu-elpa--tests.el --- Tests for the `gnu-elpa' package  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2021  Free Software Foundation, Inc.
+
+;; Author: Stefan Monnier 
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see .
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'gnu-elpa-utils)
+
+(ert-deftest gnu-elpa--describe-function ()
+  (cl-letf (((symbol-function #'yes-or-no-p) #'ignore)
+((symbol-function #'gnu-elpa--maybe-install)
+ (lambda (pkg f) (defalias f (lambda (&rest _) "Dummy doc")
+(let ((s (describe-function 'sml-run)))
+  (should (stringp s)
+
+(ert-deftest gnu-elpa--command-execute ()
+  (defvar gnu-elpa--test)
+  (cl-letf (((symbol-function #'yes-or-no-p) #'ignore)
+((symbol-function #'gnu-elpa--maybe-install)
+ (lambda (pkg f) (defalias f (lambda (&rest _) "Dummy doc"
+  (interactive)
+  (setq-local gnu-elpa--test 42))
+(setq gnu-elpa--test 1)
+(should (command-execute 'sml-mode))
+(should (equal gnu-elpa--test 42
+
+(provide 'gnu-elpa--tests)
+;;; gnu-elpa--tests.el ends here
diff --git a/gnu-elpa-utils.el b/gnu-elpa-utils.el
index 2b4a8cc..fa523f2 100644
--- a/gnu-elpa-utils.el
+++ b/gnu-elpa-utils.el
@@ -1,6 +1,6 @@
 ;;; gnu-elpa-utils.el --- Helper functions for `gnu-elpa'  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2020  Free Software Foundation, Inc.
+;; Copyright (C) 2020-2021  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier 
 ;; Keywords:
@@ -35,18 +35,81 @@
 ;;;###autoload (let ((load-source-file-function nil))
 ;;;###autoload   (require 'gnu-elpa-features nil 'noerror))
 
+(defvar gnu-elpa--debug nil)
+
+(defun gnu-elpa--message (n &rest args)
+  (when (and gnu-elpa--debug
+ (or (not (numberp gnu-elpa--debug))
+ (>= gnu-elpa--debug n)))
+(apply #'message args)))
+
+(defun gnu-elpa--f-of-af (af)
+  "Return the function to which an autoload-form belongs."
+  (catch 'found
+(mapatoms (lambda (f)
+(if (eq (symbol-function f) af)
+(throw 'found f))
+
+(defun gnu-elpa--autoloaded-sym-p (f)
+  (and (symbolp f) (autoloadp (symbol-function f
+
 (defun gnu-elpa--autoloaded-function ()
+  "Return the pair (SYMBOL . CAUSE) of the autoload cause.
+SYMBOL is the function/macro that is being autoloaded, and CAUSE
+is what appears to have triggered the autoload."
   (let* ((bt (backtrace-frames))
+ (adl-function nil)
  ;; (bt-stash bt)
+ (cause nil)
  (trigger-function nil))
+;; (message "Backtrace frames: %S" bt)
 (while bt
-  (pcase-let ((`(\_ ,f . ,_) (pop

[elpa] externals-release/org updated (332da69 -> 33de2bd)

2021-01-06 Thread ELPA Syncer 
elpasync pushed a change to branch externals-release/org.

  from  332da69   element: Fix table.el parsing... again!
   new  248dfcd   Backport commit 5ada3eece from Emacs
   new  33de2bd   org-compat: Take in obsolete org-copy


Summary of changes:
 lisp/org-compat.el | 2 ++
 lisp/org-refile.el | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

[elpa] externals-release/org 248dfcd 1/2: Backport commit 5ada3eece from Emacs

2021-01-06 Thread ELPA Syncer 
branch: externals-release/org
commit 248dfcd711a7c82f7443227f0ee0f7adc5f1f477
Author: Stefan Monnier 
Commit: Kyle Meyer 

Backport commit 5ada3eece from Emacs

* lisp/org-refile.el (org-copy): Fix missing obsoletion version.

5ada3eecec79703a84e2f2c38cae16ef4b2600cc
Stefan Monnier
Thu Dec 17 18:21:47 2020 -0500
---
 lisp/org-refile.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-refile.el b/lisp/org-refile.el
index f7ba156..1e0c339 100644
--- a/lisp/org-refile.el
+++ b/lisp/org-refile.el
@@ -373,7 +373,7 @@ the *old* location.")
 (defvar org-refile-keep nil
   "Non-nil means `org-refile' will copy instead of refile.")
 
-(define-obsolete-function-alias 'org-copy 'org-refile-copy)
+(define-obsolete-function-alias 'org-copy 'org-refile-copy "Org 9.4")
 
 ;;;###autoload
 (defun org-refile-copy ()

[elpa] externals-release/org 33de2bd 2/2: org-compat: Take in obsolete org-copy

2021-01-06 Thread ELPA Syncer 
branch: externals-release/org
commit 33de2bd8ef90483778e4b18acbce388957b6863f
Author: Kyle Meyer 
Commit: Kyle Meyer 

org-compat: Take in obsolete org-copy

* lisp/org-compat.el (org-copy): Move from org-refile.el.
* lisp/org-refile.el (org-copy): Move to org-compat.el.

Suggested-by: Marco Wahl 
Ref: https://orgmode.org/list/87o8i2cpb2@gmail.com
---
 lisp/org-compat.el | 2 ++
 lisp/org-refile.el | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 1f4e2e8..af10c2d 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -732,6 +732,8 @@ context.  See the individual commands for more information."
  "use `org-planning-line-re', followed by `org-ts-regexp-both' instead."
  "Org 9.4")
 
+(define-obsolete-function-alias 'org-copy 'org-refile-copy "Org 9.4")
+
  Obsolete link types
 
 (eval-after-load 'ol
diff --git a/lisp/org-refile.el b/lisp/org-refile.el
index 1e0c339..1e6872b 100644
--- a/lisp/org-refile.el
+++ b/lisp/org-refile.el
@@ -373,8 +373,6 @@ the *old* location.")
 (defvar org-refile-keep nil
   "Non-nil means `org-refile' will copy instead of refile.")
 
-(define-obsolete-function-alias 'org-copy 'org-refile-copy "Org 9.4")
-
 ;;;###autoload
 (defun org-refile-copy ()
   "Like `org-refile', but preserve the refiled subtree."

[elpa] externals/org updated (c07808a -> 5b5c420)

2021-01-06 Thread ELPA Syncer 
elpasync pushed a change to branch externals/org.

  from  c07808a   Merge branch 'maint'
   new  248dfcd   Backport commit 5ada3eece from Emacs
   new  33de2bd   org-compat: Take in obsolete org-copy
   new  5b5c420   Merge branch 'maint'


Summary of changes:
 lisp/org-compat.el | 2 ++
 lisp/org-refile.el | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

[elpa] externals/org 5b5c420: Merge branch 'maint'

2021-01-06 Thread ELPA Syncer 
branch: externals/org
commit 5b5c420da5298f6526b77c409a5ef67e63741bad
Merge: c07808a 33de2bd
Author: Kyle Meyer 
Commit: Kyle Meyer 

Merge branch 'maint'
---
 lisp/org-compat.el | 2 ++
 lisp/org-refile.el | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 1f4e2e8..af10c2d 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -732,6 +732,8 @@ context.  See the individual commands for more information."
  "use `org-planning-line-re', followed by `org-ts-regexp-both' instead."
  "Org 9.4")
 
+(define-obsolete-function-alias 'org-copy 'org-refile-copy "Org 9.4")
+
  Obsolete link types
 
 (eval-after-load 'ol
diff --git a/lisp/org-refile.el b/lisp/org-refile.el
index 0b44fdf..4a09ab5 100644
--- a/lisp/org-refile.el
+++ b/lisp/org-refile.el
@@ -373,8 +373,6 @@ the *old* location.")
 (defvar org-refile-keep nil
   "Non-nil means `org-refile' will copy instead of refile.")
 
-(define-obsolete-function-alias 'org-copy 'org-refile-copy)
-
 ;;;###autoload
 (defun org-refile-copy ()
   "Like `org-refile', but preserve the refiled subtree."