[elpa] externals/detached 12421301d2: Update incorrectly formatted docstrings

2022-11-28 Thread ELPA Syncer
branch: externals/detached
commit 12421301d2788bbff8ae9411d7296dc0b68f4300
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update incorrectly formatted docstrings
---
 detached-compile.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/detached-compile.el b/detached-compile.el
index 96063068e3..0d3fade342 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -44,7 +44,7 @@
 
 ;;;###autoload
 (defun detached-compile (command &optional comint)
-  "Run COMMAND through `compile' but in a 'detached' session.
+  "Run COMMAND through `compile' but in a `detached' session.
 Optionally enable COMINT if prefix-argument is provided."
   (interactive
(list
@@ -62,7 +62,7 @@ Optionally enable COMINT if prefix-argument is provided."
 
 ;;;###autoload
 (defun detached-compile-recompile (&optional edit-command)
-  "Re-compile by running `compile' but in a 'detached' session.
+  "Re-compile by running `compile' but in a `detached' session.
 Optionally EDIT-COMMAND."
   (interactive "P")
   (detached-with-session detached-buffer-session
@@ -77,7 +77,7 @@ Optionally EDIT-COMMAND."
   (apply #'compilation-start `(,detached-session-command)
 
 (defun detached-compile-kill ()
-  "Kill a 'detached' session."
+  "Kill a `detached' session."
   (interactive)
   (detached-kill-session detached-buffer-session))
 



[elpa] externals/graphql ca75ab64c5: Minor README formatting updates

2022-11-28 Thread ELPA Syncer
branch: externals/graphql
commit ca75ab64c58ca7ab9621b881689d4461ebacb164
Author: Sean Allred 
Commit: Sean Allred 

Minor README formatting updates

Mostly hard-wrapping. I'd like to see what this looks like before
considering removing all the language tags from code blocks. Ideally,
we could just find a way to support the syntax in ELPA's renderer.
---
 README.md | 69 +++
 1 file changed, 56 insertions(+), 13 deletions(-)

diff --git a/README.md b/README.md
index 76e106ee8a..800baecbf4 100644
--- a/README.md
+++ b/README.md
@@ -3,9 +3,11 @@
 
[![MELPA](https://melpa.org/packages/graphql-badge.svg)](https://melpa.org/#/graphql)
 [![Build 
Status](https://travis-ci.org/vermiculus/graphql.el.svg?branch=master)](https://travis-ci.org/vermiculus/graphql.el)
 
-GraphQL.el provides a set of generic functions for interacting with GraphQL 
web services.
+GraphQL.el provides a set of generic functions for interacting with
+GraphQL web services.
 
 See also the following resources:
+
 - [GraphQL language service][graph-lsp] and [`lsp-mode`][el-lsp]
 - [`graphql-mode`][graphql-mode]
 - [This brief overview of GraphQL syntax][graphql]
@@ -17,20 +19,37 @@ See also the following resources:
 
 ## Syntax Overview
 Two macros are provided to express GraphQL *queries* and *mutations*:
-- `graphql-query` encodes the graph provided under a root `(query ...)` node.
-- `graphql-mutation` encodes the graph provided under a root `(mutation ...)` 
node.
-Both macros allow special syntax for query/mutation parameters if this is 
desired; see the docstrings for details.  I will note that backtick notation 
usually feels more natural in Lisp code.
+
+- `graphql-query` encodes the graph provided under a root `(query
+  ...)` node.
+- `graphql-mutation` encodes the graph provided under a root
+  `(mutation ...)` node.
+
+Both macros allow special syntax for query/mutation parameters if this
+is desired; see the docstrings for details. I will note that backtick
+notation usually feels more natural in Lisp code.
 
 ### Basic Queries
-The body of these macros is the graph of your query/mutation expressed in a 
Lispy DSL.  Generally speaking, we represent fields as symbols and edges as 
nested lists with the edge name being the head of that list.  For example,
+
+The body of these macros is the graph of your query/mutation expressed
+in a Lispy DSL. Generally speaking, we represent fields as symbols and
+edges as nested lists with the edge name being the head of that list.
+For example,
+
 ```emacs-lisp
 (graphql-query
  (myField1 myField2 (myEdges (edges (node myField3)
 ```
-will construct a query that retrieves `myField1`, `myField2`, and `myField3` 
for every node in `myEdges`.  The query is returned as a string without any 
unnecessary whitespace (i.e., formatting) added.
+
+will construct a query that retrieves `myField1`, `myField2`, and
+`myField3` for every node in `myEdges`. The query is returned as a
+string without any unnecessary whitespace (i.e., formatting) added.
 
 ## Following Edges
-Multiple edges can of course be followed.  Here's an example using GitHub's 
API:
+
+Multiple edges can of course be followed. Here's an example using
+GitHub's API:
+
 ```emacs-lisp
 (graphql-query
  ((viewer login)
@@ -38,7 +57,10 @@ Multiple edges can of course be followed.  Here's an example 
using GitHub's API:
 ```
 
 ## Passing Arguments
-Usually, queries need explicit arguments.  We pass them in an alist set off by 
the `:arguments` keyword:
+
+Usually, queries need explicit arguments. We pass them in an alist set
+off by the `:arguments` keyword:
+
 ``` emacs-lisp
 (graphql-query
  ((repository
@@ -49,7 +71,11 @@ Usually, queries need explicit arguments.  We pass them in 
an alist set off by t
(edges
 (node number title url id))
 ```
-As you can see, strings, numbers, vectors, symbols, and variables can all be 
given as arguments.  The above evaluates to the following (formatting added):
+
+As you can see, strings, numbers, vectors, symbols, and variables can
+all be given as arguments. The above evaluates to the following
+(formatting added):
+
 ``` graphql
 query {
   repository (owner: "github", name: $repo) {
@@ -63,14 +89,18 @@ query {
   }
 }
 ```
-Objects as arguments work, too, though practical examples seem harder to come 
by:
+
+Objects as arguments work, too, though practical examples seem harder
+to come by:
 
 ``` emacs-lisp
 (graphql-query
  ((object :arguments ((someVariable . ((someComplex . "object")
(with . ($ complexNeeds
 ```
+
 gives
+
 ``` graphql
 query {
   object (
@@ -83,7 +113,9 @@ query {
 ```
 
 ## Working with Responses
+
 - `graphql-simplify-response-edges`
+
   Simplify structures like
 
   (field
@@ -94,14 +126,25 @@ query {
   into `(field (node1values) (node2values))`.
 
 ## Keyword Reference
+
 - `:arguments`
-  Pass arguments to fields

[elpa] externals/graphql b57b5ca5d2: Increment version to fix licensing issue in build

2022-11-28 Thread ELPA Syncer
branch: externals/graphql
commit b57b5ca5d2d0837e1fb4a4f30c051d5f3e643f0f
Author: Sean Allred 
Commit: Sean Allred 

Increment version to fix licensing issue in build
---
 graphql.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/graphql.el b/graphql.el
index 0827cd75c5..dd5e38144b 100644
--- a/graphql.el
+++ b/graphql.el
@@ -5,7 +5,7 @@
 ;; Author: Sean Allred 
 ;; Keywords: hypermedia, tools, lisp
 ;; Homepage: https://github.com/vermiculus/graphql.el
-;; Package-Version: 0.1.1
+;; Package-Version: 0.1.2
 ;; Package-Requires: ((emacs "25"))
 
 ;; This program is free software; you can redistribute it and/or modify



[elpa] externals/nano-theme 69fdbefe38 2/2: Merge pull request #41 from canatella/compilation-support

2022-11-28 Thread ELPA Syncer
branch: externals/nano-theme
commit 69fdbefe380bf9869304821a4b4808779e5ac5df
Merge: 34a3efc37b c9cdf75943
Author: Nicolas P. Rougier 
Commit: GitHub 

Merge pull request #41 from canatella/compilation-support

Add compilation faces.
---
 nano-theme-support.el | 33 +
 1 file changed, 21 insertions(+), 12 deletions(-)

diff --git a/nano-theme-support.el b/nano-theme-support.el
index aba9af66b2..8caebbcb64 100644
--- a/nano-theme-support.el
+++ b/nano-theme-support.el
@@ -801,22 +801,31 @@ background color that is barely perceptible."
'(custom-variable-obsolete  ((t (:inherit nano-faded
 
;; --- Company tooltip --
-'(company-tooltip  ((t (:inherit nano-subtle
-'(company-tooltip-mouse((t (:inherit nano-faded-i
-'(company-tooltip-selection((t (:inherit nano-salient-i
+   '(company-tooltip  ((t (:inherit nano-subtle
+   '(company-tooltip-mouse((t (:inherit nano-faded-i
+   '(company-tooltip-selection((t (:inherit nano-salient-i
 
-'(company-scrollbar-fg ((t (:inherit nano-default-i
-'(company-scrollbar-bg ((t (:inherit nano-faded-i
+   '(company-scrollbar-fg ((t (:inherit nano-default-i
+   '(company-scrollbar-bg ((t (:inherit nano-faded-i
 
-'(company-tooltip-scrollbar-thumb  ((t (:inherit nano-default-i
-'(company-tooltip-scrollbar-track  ((t (:inherit nano-faded-i
+   '(company-tooltip-scrollbar-thumb  ((t (:inherit nano-default-i
+   '(company-tooltip-scrollbar-track  ((t (:inherit nano-faded-i
 
-'(company-tooltip-common   ((t (:inherit nano-strong
-'(company-tooltip-common-selection ((t (:inherit nano-salient-i
+   '(company-tooltip-common   ((t (:inherit nano-strong
+   '(company-tooltip-common-selection ((t (:inherit nano-salient-i
 :weight normal
-'(company-tooltip-annotation   ((t (:inherit nano-default
-'(company-tooltip-annotation-selection ((t (:inherit nano-subtle
-
+   '(company-tooltip-annotation   ((t (:inherit nano-default
+   '(company-tooltip-annotation-selection ((t (:inherit nano-subtle
+
+   ;; --- Compilation --
+   '(compilation-error ((t (:inherit nano-critical
+   '(compilation-info ((t (:inherit nano-default
+   '(compilation-warning ((t (:inherit nano-popout
+   '(compilation-line-number ((t (:inherit nano-default
+   '(compilation-column-number ((t (:inherit nano-default
+   '(compilation-mode-line-run ((t (:inherit nano-default-i
+   '(compilation-mode-line-exit ((t (:inherit nano-default-i
+   '(compilation-mode-line-fail ((t (:inherit nano-critical
 
;; --- Buttons --
`(custom-button



[elpa] externals/nano-theme c9cdf75943 1/2: Add compilation faces.

2022-11-28 Thread ELPA Syncer
branch: externals/nano-theme
commit c9cdf759437890cce61d25245ac38840e72b165e
Author: Damien Merenne 
Commit: Damien Merenne 

Add compilation faces.
---
 nano-theme-support.el | 33 +
 1 file changed, 21 insertions(+), 12 deletions(-)

diff --git a/nano-theme-support.el b/nano-theme-support.el
index 31f3d9ce99..f6753254f3 100644
--- a/nano-theme-support.el
+++ b/nano-theme-support.el
@@ -795,22 +795,31 @@ background color that is barely perceptible."
'(custom-variable-obsolete  ((t (:inherit nano-faded
 
;; --- Company tooltip --
-'(company-tooltip  ((t (:inherit nano-subtle
-'(company-tooltip-mouse((t (:inherit nano-faded-i
-'(company-tooltip-selection((t (:inherit nano-salient-i
+   '(company-tooltip  ((t (:inherit nano-subtle
+   '(company-tooltip-mouse((t (:inherit nano-faded-i
+   '(company-tooltip-selection((t (:inherit nano-salient-i
 
-'(company-scrollbar-fg ((t (:inherit nano-default-i
-'(company-scrollbar-bg ((t (:inherit nano-faded-i
+   '(company-scrollbar-fg ((t (:inherit nano-default-i
+   '(company-scrollbar-bg ((t (:inherit nano-faded-i
 
-'(company-tooltip-scrollbar-thumb  ((t (:inherit nano-default-i
-'(company-tooltip-scrollbar-track  ((t (:inherit nano-faded-i
+   '(company-tooltip-scrollbar-thumb  ((t (:inherit nano-default-i
+   '(company-tooltip-scrollbar-track  ((t (:inherit nano-faded-i
 
-'(company-tooltip-common   ((t (:inherit nano-strong
-'(company-tooltip-common-selection ((t (:inherit nano-salient-i
+   '(company-tooltip-common   ((t (:inherit nano-strong
+   '(company-tooltip-common-selection ((t (:inherit nano-salient-i
 :weight normal
-'(company-tooltip-annotation   ((t (:inherit nano-default
-'(company-tooltip-annotation-selection ((t (:inherit nano-subtle
-
+   '(company-tooltip-annotation   ((t (:inherit nano-default
+   '(company-tooltip-annotation-selection ((t (:inherit nano-subtle
+
+   ;; --- Compilation --
+   '(compilation-error ((t (:inherit nano-critical
+   '(compilation-info ((t (:inherit nano-default
+   '(compilation-warning ((t (:inherit nano-popout
+   '(compilation-line-number ((t (:inherit nano-default
+   '(compilation-column-number ((t (:inherit nano-default
+   '(compilation-mode-line-run ((t (:inherit nano-default-i
+   '(compilation-mode-line-exit ((t (:inherit nano-default-i
+   '(compilation-mode-line-fail ((t (:inherit nano-critical
 
;; --- Buttons --
`(custom-button



[nongnu] elpa/proof-general a49cded675 6/8: qrhl: Added more keywords to syntax highlighting:

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit a49cded675de3a714bbe302b07faf99e7b17a811
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: Added more keywords to syntax highlighting:
`rewrite`, `print goal`, `sp`, `isabelle_cmd`.
---
 qrhl/qrhl.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index 7bc51b9adb..46f0c8d8fb 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -90,12 +90,12 @@ Returns t if this worked."
   (cl-flet ((mk-regexp (word) (concat "\\(?:^\\|\\.[ \t]\\)[ \t{}+*-]*\\b\\(" 
word "\\)\\b")))
 (append qrhl-font-lock-subsuperscript
(mapcar (lambda (keyword) `(,(mk-regexp keyword) . (1 
'font-lock-keyword-face)))
-   '("debug:" "isabelle" "quantum\\s +var" "classical\\s +var" 
"ambient\\s +var"
- "program" "adversary" "qrhl" "lemma" "include" "qed" 
"cheat" "print"))
+   '("isabelle_cmd" "debug:" "isabelle" "quantum\\s +var" 
"classical\\s +var" "ambient\\s +var"
+ "program" "adversary" "qrhl" "lemma" "include" "qed" 
"cheat" "print\\s +goal" "print"))
 
(mapcar (lambda (tactic) `(,(mk-regexp tactic) . (1 
'font-lock-function-name-face)))
-   '("admit" "wp" "swap" "simp" "rule" "clear" "skip" "inline" 
"seq" "conseq\\s +pre"
- "conseq\\s +post" "conseq\\s +qrhl" "equal" "rnd"
+   '("admit" "wp" "sp" "swap" "simp" "rule" "clear" "skip" 
"inline" "seq" "conseq\\s +pre"
+ "conseq\\s +post" "conseq\\s +qrhl" "equal" "rnd" 
"rewrite"
  "byqrhl" "casesplit" "case" "fix" "squash" "frame" 
"measure" "o2h" "semiclassical"
  "sym" "local\\s +remove" "local\\s +up" "rename" "if" 
"isa"
  ))



[nongnu] elpa/proof-general ab7b274597 3/8: qrhl: Removed leftover debug output.

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit ab7b2745978f82a665939a41d490844c396edda8
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: Removed leftover debug output.
---
 qrhl/qrhl.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index 5cac311787..84283387b4 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -60,7 +60,6 @@
))
(and (qrhl-forward-regex "\\.") (point))

-(princ pos)
 (and pos (goto-char pos) t)))
 
 (defun qrhl-parse-focus-command ()



[nongnu] elpa/proof-general updated (d1bbf22ed0 -> 8e688a6770)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch elpa/proof-general.

  from  d1bbf22ed0 docs(README.md): Update badges (#676)
   new  4a020a7121 qrhl: Improved font-lock mode: - sub/subscript symbols 
reappear when the following symbol is removed - sub/subscript symbols are not 
themselves sub/superscripted - all commands/tactics are fontified - different 
fonts (faces) for commands and tactics - better recognition of the 
commands/tactics (e.g., not as substrings of other words, only at beginning of 
line) - no highlighting of commands/tactics in reponse/goal buffers - 
keywords/tactics are recognized also after  [...]
   new  a2bd550a2a qrhl: Added more abbreviations and symbols in input 
method.
   new  ab7b274597 qrhl: Removed leftover debug output.
   new  3b5d65d340 qrhl: Remove comments from within multiline commands 
before sending them to qrhl-tool.
   new  06e85d8f23 qrhl: Automatic indentation.
   new  a49cded675 qrhl: Added more keywords to syntax highlighting: 
`rewrite`, `print goal`, `sp`, `isabelle_cmd`.
   new  c844c00d8c qrhl: made `font-lock-extra-managed-props` buffer-local.
   new  8e688a6770 Merge pull request #675 from 
dominique-unruh/qrhl-tool-rebased


Summary of changes:
 qrhl/qrhl-input.el |  18 -
 qrhl/qrhl.el   | 116 +++--
 2 files changed, 121 insertions(+), 13 deletions(-)



[nongnu] elpa/proof-general 8e688a6770 8/8: Merge pull request #675 from dominique-unruh/qrhl-tool-rebased

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit 8e688a67703e4a132cc09bece1b746289868f6ab
Merge: d1bbf22ed0 c844c00d8c
Author: Pierre Courtieu 
Commit: GitHub 

Merge pull request #675 from dominique-unruh/qrhl-tool-rebased

Miscellaneous improvements of qrhl-tool support
---
 qrhl/qrhl-input.el |  18 -
 qrhl/qrhl.el   | 116 +++--
 2 files changed, 121 insertions(+), 13 deletions(-)

diff --git a/qrhl/qrhl-input.el b/qrhl/qrhl-input.el
index 8d7bc41e46..ff6bd8ca58 100644
--- a/qrhl/qrhl-input.el
+++ b/qrhl/qrhl-input.el
@@ -411,7 +411,7 @@
  ("\\heartsuit" ?♥)
  ("\\hookleftarrow" ?↩)
  ("\\hookrightarrow" ?↪)
- ("\\iff" ?⇔)
+ ;("\\iff" ?⇔) ;; Defined below now
  ("\\imath" ?ı)
  ("\\in" ?∈)
  ("\\infty" ?∞)
@@ -758,6 +758,22 @@
  (">>" ?»)
  ("\\Cla" ["ℭ𝔩𝔞"])
  ("\\qeq" ["≡𝔮"])
+ ("\\equiv_q" ["≡𝔮"])
+ ("\\sub" ?⇩)
+ ("\\sup" ?⇧)
+ ("*_C" ["*⇩C"])
+ ("*_V" ["*⇩V"])
+ ("o_CL" ["o⇩C⇩L"])
+ ("*_S" ["*⇩S"])
+ ("\\ox_l" ["⊗⇩l"])
+ ("\\ox_o" ["⊗⇩o"])
+ ("\\ox_S" ["⊗⇩S"])
+ ("\\in_q" ["∈⇩𝔮"])
+ ("=_q" ["=⇩𝔮"])
+ ("\\fun" ["⇒"])
+ ("\\fun_CL" ["⇒⇩C⇩L"])
+ ("\\implies" ?⟶)
+ ("\\iff" ?⟷)
  )
 
 (provide 'qrhl-input)
diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index d5af5661c2..d67c575413 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -28,6 +28,10 @@
   "Name/path of the qrhl-prover command. (Restart Emacs after changing this.)"
   :type '(string) :group 'qrhl)
 
+(defcustom qrhl-indentation-level 2
+  "Indentation level in qRHL scripts"
+  :group 'qrhl)
+
 (defun qrhl-find-and-forget (span)
   (proof-generic-count-undos span))
   
@@ -43,13 +47,13 @@
 
 (defun qrhl-forward-regex (regex)
   "If text starting at point matches REGEX, move to end of the match and 
return t. 
-   Otherwise return nil"
+Otherwise return nil"
   (and (looking-at regex) (goto-char (match-end 0)) t))
 
 (defun qrhl-parse-regular-command ()
   "Find the period-terminated command starting at point.
-   Moves to its end.
-   Returns t if this worked."
+Moves to its end.
+Returns t if this worked."
   (let ((pos
 (save-excursion
   (progn
@@ -60,7 +64,6 @@
))
(and (qrhl-forward-regex "\\.") (point))

-(princ pos)
 (and pos (goto-char pos) t)))
 
 (defun qrhl-parse-focus-command ()
@@ -74,21 +77,39 @@
   (and (qrhl-parse-regular-command) 'cmd)))
 
 (defvar qrhl-font-lock-subsuperscript
-  '(("\\(⇩\\)\\([^[:space:]]\\)" .
+  '(("\\(⇩\\)\\([^⇩⇧[:space:]]\\)" .
  ((2 '(face subscript display (raise -0.3)))
   (1 '(face nil display ""
-("\\(⇧\\)\\([^[:space:]]\\)" .
+("\\(⇧\\)\\([^⇩⇧[:space:]]\\)" .
  ((2 '(face superscript display (raise 0.3)))
   (1 '(face nil display "")
   "Font-lock configuration for displaying sub/superscripts that are prefixed 
by ⇩/⇧")
 
 (defvar qrhl-font-lock-keywords
-  ; Very simple configuration of keywords: highlights all occurrences, even if 
they are not actually keywords (e.g., when they are part of a term)
-  (append  qrhl-font-lock-subsuperscript
-  '("lemma" "qrhl" "include" "quantum" "program" "equal" "simp" 
"isabelle" "isa" "var" "qed"
-"skip"))
+  ; Regexp explanation: match the keyword/tactic after another command, and 
also if there are {}+*- in between (focusing commands)
+  (cl-flet ((mk-regexp (word) (concat "\\(?:^\\|\\.[ \t]\\)[ \t{}+*-]*\\b\\(" 
word "\\)\\b")))
+(append qrhl-font-lock-subsuperscript
+   (mapcar (lambda (keyword) `(,(mk-regexp keyword) . (1 
'font-lock-keyword-face)))
+   '("isabelle_cmd" "debug:" "isabelle" "quantum\\s +var" 
"classical\\s +var" "ambient\\s +var"
+ "program" "adversary" "qrhl" "lemma" "include" "qed" 
"cheat" "print\\s +goal" "print"))
+
+   (mapcar (lambda (tactic) `(,(mk-regexp tactic) . (1 
'font-lock-function-name-face)))
+   '("admit" "wp" "sp" "swap" "simp" "rule" "clear" "skip" 
"inline" "seq" "conseq\\s +pre"
+ "conseq\\s +post" "conseq\\s +qrhl" "equal" "rnd" 
"rewrite"
+ "byqrhl" "casesplit" "case" "fix" "squash" "frame" 
"measure" "o2h" "semiclassical"
+ "sym" "local\\s +remove" "local\\s +up" "rename" "if" 
"isa"
+ ))
+
+   ; Regexp explanation: Match comment after
+   '(("\\(?:^\\|[ \t]\\)[ \t]*\\(#.*\\)" . (1 
'font-lock-comment-face)))
+   ))
   "Font-lock configuration for qRHL proof scripts")
 
+(defun qrhl-proof-script-preprocess (file start end cmd)
+  "Strips comments from the command CMD.
+Called before sending CMD to the prover."
+  (list (replace-regexp-in-string "\\(?:^\\|[ \t]\\)[ \t]*#.*$" "" cmd)))
+
 (proof-easy-config 'qrhl "qRHL"
   proof-prog-name qrhl-prog-name
   ;; We need to give some option here, otherwise `proof-prog-name' is
@@ -116,9 +137,10 @@
   proof-save-command-regexp "\\`a\\`"   ;AKA `regexp-unmatchable' in Emacs-27
   proof-tree-external-display nil
   proof-script-fon

[nongnu] elpa/proof-general c844c00d8c 7/8: qrhl: made `font-lock-extra-managed-props` buffer-local.

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit c844c00d8c88120f927dd633c92e042250c69527
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: made `font-lock-extra-managed-props` buffer-local.
---
 qrhl/qrhl.el | 7 ++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index 46f0c8d8fb..d67c575413 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -139,7 +139,6 @@ Called before sending CMD to the prover."
   proof-script-font-lock-keywords qrhl-font-lock-keywords
   proof-goals-font-lock-keywords qrhl-font-lock-subsuperscript
   proof-response-font-lock-keywords qrhl-font-lock-keywords
-  font-lock-extra-managed-props '(display)
   proof-shell-unicode t
   proof-script-preprocess #'qrhl-proof-script-preprocess
   )
@@ -229,6 +228,12 @@ Called before sending CMD to the prover."
(set-input-method qrhl-input-method)
(setq electric-indent-inhibit t)  ;; Indentation is not reliable 
enough for electric indent
(setq indent-line-function 'qrhl-indent-line)
+   ;; This ensures that the fontification from 
qrhl-font-lock-subsuperscript is updated correctly
+   ;; when editing text (when re-fontifying).
+   ;; We only add it in qrhl-mode, not qrhl-response-mode or 
qrhl-goals-mode because in the latter two,
+   ;; text is never edited, only replaced as a while, so 
refontification doesn't happen there and
+   ;; is not needed.
+   (setq-local font-lock-extra-managed-props '(display))
(qrhl-buttonize-buffer)))
 
 (provide 'qrhl)



[nongnu] elpa/proof-general 06e85d8f23 5/8: qrhl: Automatic indentation.

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit 06e85d8f23f6300294dcc3f2a85188750b36812c
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: Automatic indentation.
---
 qrhl/qrhl.el | 70 +++-
 1 file changed, 69 insertions(+), 1 deletion(-)

diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index 262b2c1633..7bc51b9adb 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -28,6 +28,10 @@
   "Name/path of the qrhl-prover command. (Restart Emacs after changing this.)"
   :type '(string) :group 'qrhl)
 
+(defcustom qrhl-indentation-level 2
+  "Indentation level in qRHL scripts"
+  :group 'qrhl)
+
 (defun qrhl-find-and-forget (span)
   (proof-generic-count-undos span))
   
@@ -157,10 +161,74 @@ Called before sending CMD to the prover."
   (while (re-search-forward "include\s*\"\\([^\"]+\\)\"\s*\\." nil t)
(make-button (match-beginning 1) (match-end 1) :type 
'qrhl-find-file-button
 
+
+
+(defun qrhl-current-line-rel-indent ()
+  "Determins by how much to indent the current line relative to the previous
+   indentation level. (Taking into account only the current line.)"
+  (save-excursion
+(let ((qrhl-qed-pattern "^[ \t]*qed\\b")
+ (closing-brace-pattern "^[ \t]*}"))
+  (beginning-of-line)
+  ;; Analyse the current line and decide relative indentation accordingly
+  (cond
+   ;; qed - unindent by 2
+   ((looking-at qrhl-qed-pattern) (- qrhl-indentation-level))
+   ;; } - unindent by 2
+   ((looking-at closing-brace-pattern) (- qrhl-indentation-level))
+   ;; indent as previous
+   (t 0)
+
+(defun qrhl-indent-line ()
+  "Indent current line as qRHL proof script"
+  (interactive)
+  
+  (let ((not-found t) (previous-indent nil) (previous-offset 0) rel-indent
+   (lemma-pattern "^[ \t]*\\(lemma\\|qrhl\\)\\b")
+   (comment-pattern "^[ \t]*#")
+   (empty-line-pattern "^[ \t]*$")
+   (brace-pattern "^[ \t]*{")
+   (focus-pattern "^[ \t{}+*-]*[+*-][ \t]*"))
+
+(beginning-of-line) ;; Throughout this function, we will always be at the 
beginning of a line
+
+;; Identify preceding indented line (relative to which we indent)
+(save-excursion
+  (while (and not-found (not (bobp)))
+   (forward-line -1)
+   (cond
+((and (not previous-indent) (looking-at comment-pattern))
+ (setq previous-indent (current-indentation)))
+((looking-at empty-line-pattern) ())
+(t
+ (progn
+  (setq previous-indent (current-indentation))
+  (setq not-found nil)
+  (cond
+   ((looking-at lemma-pattern) (setq previous-offset 
qrhl-indentation-level))
+   ((looking-at focus-pattern) (setq previous-offset (- (match-end 0) 
(point) previous-indent)))
+   ((looking-at brace-pattern) (setq previous-offset 
qrhl-indentation-level)))
+ )
+(if (not previous-indent) (setq previous-indent 0))
+
+;; Now previous-indent contains the indentation-level of the preceding 
non-comment non-blank line
+;; If there is such line, it contains the indentation-level of the 
preceding non-blank line
+;; If there is no such line, it contains 0
+
+;; And previous-offset contains the offset that that line adds to 
following lines
+;; (i.e., 0 for normal lines, positive for qed and {, negative for })
+
+(setq rel-indent (qrhl-current-line-rel-indent))
+
+;; Indent relative to previous-indent by rel-indent and previous-offset
+(indent-line-to (max (+ previous-indent rel-indent previous-offset) 0
+
+
 (add-hook 'qrhl-mode-hook
  (lambda ()
(set-input-method qrhl-input-method)
-   (set-variable 'electric-indent-mode nil t)
+   (setq electric-indent-inhibit t)  ;; Indentation is not reliable 
enough for electric indent
+   (setq indent-line-function 'qrhl-indent-line)
(qrhl-buttonize-buffer)))
 
 (provide 'qrhl)



[nongnu] elpa/proof-general 3b5d65d340 4/8: qrhl: Remove comments from within multiline commands before sending them to qrhl-tool.

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit 3b5d65d340c74218e758066cad50e2b4433b3b5e
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: Remove comments from within multiline commands before sending them to 
qrhl-tool.
---
 qrhl/qrhl.el | 12 +---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index 84283387b4..262b2c1633 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -43,13 +43,13 @@
 
 (defun qrhl-forward-regex (regex)
   "If text starting at point matches REGEX, move to end of the match and 
return t. 
-   Otherwise return nil"
+Otherwise return nil"
   (and (looking-at regex) (goto-char (match-end 0)) t))
 
 (defun qrhl-parse-regular-command ()
   "Find the period-terminated command starting at point.
-   Moves to its end.
-   Returns t if this worked."
+Moves to its end.
+Returns t if this worked."
   (let ((pos
 (save-excursion
   (progn
@@ -101,6 +101,11 @@
))
   "Font-lock configuration for qRHL proof scripts")
 
+(defun qrhl-proof-script-preprocess (file start end cmd)
+  "Strips comments from the command CMD.
+Called before sending CMD to the prover."
+  (list (replace-regexp-in-string "\\(?:^\\|[ \t]\\)[ \t]*#.*$" "" cmd)))
+
 (proof-easy-config 'qrhl "qRHL"
   proof-prog-name qrhl-prog-name
   ;; We need to give some option here, otherwise `proof-prog-name' is
@@ -132,6 +137,7 @@
   proof-response-font-lock-keywords qrhl-font-lock-keywords
   font-lock-extra-managed-props '(display)
   proof-shell-unicode t
+  proof-script-preprocess #'qrhl-proof-script-preprocess
   )
 
 ; buttoning functions follow https://superuser.com/a/331896/748969



[nongnu] elpa/proof-general a2bd550a2a 2/8: qrhl: Added more abbreviations and symbols in input method.

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit a2bd550a2ab1d749b9a5e549d21d48025f8846ec
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: Added more abbreviations and symbols in input method.
---
 qrhl/qrhl-input.el | 18 +-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/qrhl/qrhl-input.el b/qrhl/qrhl-input.el
index 8d7bc41e46..ff6bd8ca58 100644
--- a/qrhl/qrhl-input.el
+++ b/qrhl/qrhl-input.el
@@ -411,7 +411,7 @@
  ("\\heartsuit" ?♥)
  ("\\hookleftarrow" ?↩)
  ("\\hookrightarrow" ?↪)
- ("\\iff" ?⇔)
+ ;("\\iff" ?⇔) ;; Defined below now
  ("\\imath" ?ı)
  ("\\in" ?∈)
  ("\\infty" ?∞)
@@ -758,6 +758,22 @@
  (">>" ?»)
  ("\\Cla" ["ℭ𝔩𝔞"])
  ("\\qeq" ["≡𝔮"])
+ ("\\equiv_q" ["≡𝔮"])
+ ("\\sub" ?⇩)
+ ("\\sup" ?⇧)
+ ("*_C" ["*⇩C"])
+ ("*_V" ["*⇩V"])
+ ("o_CL" ["o⇩C⇩L"])
+ ("*_S" ["*⇩S"])
+ ("\\ox_l" ["⊗⇩l"])
+ ("\\ox_o" ["⊗⇩o"])
+ ("\\ox_S" ["⊗⇩S"])
+ ("\\in_q" ["∈⇩𝔮"])
+ ("=_q" ["=⇩𝔮"])
+ ("\\fun" ["⇒"])
+ ("\\fun_CL" ["⇒⇩C⇩L"])
+ ("\\implies" ?⟶)
+ ("\\iff" ?⟷)
  )
 
 (provide 'qrhl-input)



[nongnu] elpa/proof-general 4a020a7121 1/8: qrhl: Improved font-lock mode:

2022-11-28 Thread ELPA Syncer
branch: elpa/proof-general
commit 4a020a712157cc94411048378b78d7832a8630c5
Author: Dominique Unruh 
Commit: Dominique Unruh 

qrhl: Improved font-lock mode:
- sub/subscript symbols reappear when the following symbol is removed
- sub/subscript symbols are not themselves sub/superscripted
- all commands/tactics are fontified
- different fonts (faces) for commands and tactics
- better recognition of the commands/tactics (e.g., not as substrings of 
other words, only at beginning of line)
- no highlighting of commands/tactics in reponse/goal buffers
- keywords/tactics are recognized also after other commands.
- comments are fontified.
---
 qrhl/qrhl.el | 28 +---
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/qrhl/qrhl.el b/qrhl/qrhl.el
index d5af5661c2..5cac311787 100644
--- a/qrhl/qrhl.el
+++ b/qrhl/qrhl.el
@@ -74,19 +74,32 @@
   (and (qrhl-parse-regular-command) 'cmd)))
 
 (defvar qrhl-font-lock-subsuperscript
-  '(("\\(⇩\\)\\([^[:space:]]\\)" .
+  '(("\\(⇩\\)\\([^⇩⇧[:space:]]\\)" .
  ((2 '(face subscript display (raise -0.3)))
   (1 '(face nil display ""
-("\\(⇧\\)\\([^[:space:]]\\)" .
+("\\(⇧\\)\\([^⇩⇧[:space:]]\\)" .
  ((2 '(face superscript display (raise 0.3)))
   (1 '(face nil display "")
   "Font-lock configuration for displaying sub/superscripts that are prefixed 
by ⇩/⇧")
 
 (defvar qrhl-font-lock-keywords
-  ; Very simple configuration of keywords: highlights all occurrences, even if 
they are not actually keywords (e.g., when they are part of a term)
-  (append  qrhl-font-lock-subsuperscript
-  '("lemma" "qrhl" "include" "quantum" "program" "equal" "simp" 
"isabelle" "isa" "var" "qed"
-"skip"))
+  ; Regexp explanation: match the keyword/tactic after another command, and 
also if there are {}+*- in between (focusing commands)
+  (cl-flet ((mk-regexp (word) (concat "\\(?:^\\|\\.[ \t]\\)[ \t{}+*-]*\\b\\(" 
word "\\)\\b")))
+(append qrhl-font-lock-subsuperscript
+   (mapcar (lambda (keyword) `(,(mk-regexp keyword) . (1 
'font-lock-keyword-face)))
+   '("debug:" "isabelle" "quantum\\s +var" "classical\\s +var" 
"ambient\\s +var"
+ "program" "adversary" "qrhl" "lemma" "include" "qed" 
"cheat" "print"))
+
+   (mapcar (lambda (tactic) `(,(mk-regexp tactic) . (1 
'font-lock-function-name-face)))
+   '("admit" "wp" "swap" "simp" "rule" "clear" "skip" "inline" 
"seq" "conseq\\s +pre"
+ "conseq\\s +post" "conseq\\s +qrhl" "equal" "rnd"
+ "byqrhl" "casesplit" "case" "fix" "squash" "frame" 
"measure" "o2h" "semiclassical"
+ "sym" "local\\s +remove" "local\\s +up" "rename" "if" 
"isa"
+ ))
+
+   ; Regexp explanation: Match comment after
+   '(("\\(?:^\\|[ \t]\\)[ \t]*\\(#.*\\)" . (1 
'font-lock-comment-face)))
+   ))
   "Font-lock configuration for qRHL proof scripts")
 
 (proof-easy-config 'qrhl "qRHL"
@@ -116,8 +129,9 @@
   proof-save-command-regexp "\\`a\\`"   ;AKA `regexp-unmatchable' in Emacs-27
   proof-tree-external-display nil
   proof-script-font-lock-keywords qrhl-font-lock-keywords
-  proof-goals-font-lock-keywords qrhl-font-lock-keywords
+  proof-goals-font-lock-keywords qrhl-font-lock-subsuperscript
   proof-response-font-lock-keywords qrhl-font-lock-keywords
+  font-lock-extra-managed-props '(display)
   proof-shell-unicode t
   )
 



[elpa] externals/nano-theme f591386e66 1/2: Set transient-value to inherit default

2022-11-28 Thread ELPA Syncer
branch: externals/nano-theme
commit f591386e66e7ac93e7f13cb33b0f0b2e1d4ae12e
Author: Luis Paulo M. Lima 
Commit: Luis Paulo M. Lima 

Set transient-value to inherit default

Fix issue #43.
---
 nano-theme-support.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/nano-theme-support.el b/nano-theme-support.el
index 8caebbcb64..eb0324b02d 100644
--- a/nano-theme-support.el
+++ b/nano-theme-support.el
@@ -1461,7 +1461,10 @@ background color that is barely perceptible."
 
 '(magit-tag  ((t (:inherit nano-strong
 
-
+;; --- Transient --
+;; Set only faces that influence Magit.  See:
+;; 
+'(transient-value((t (:inherit default
 
 ;; --- ANSI colors 
 



[elpa] externals/nano-theme 696ceedbf5 2/2: Merge pull request #44 from luispauloml/master

2022-11-28 Thread ELPA Syncer
branch: externals/nano-theme
commit 696ceedbf56a901a80dfcca2e5923a4b8c47e545
Merge: 69fdbefe38 f591386e66
Author: Nicolas P. Rougier 
Commit: GitHub 

Merge pull request #44 from luispauloml/master

Set transient-value to inherit default
---
 nano-theme-support.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/nano-theme-support.el b/nano-theme-support.el
index 8caebbcb64..eb0324b02d 100644
--- a/nano-theme-support.el
+++ b/nano-theme-support.el
@@ -1461,7 +1461,10 @@ background color that is barely perceptible."
 
 '(magit-tag  ((t (:inherit nano-strong
 
-
+;; --- Transient --
+;; Set only faces that influence Magit.  See:
+;; 
+'(transient-value((t (:inherit default
 
 ;; --- ANSI colors 
 



[elpa] externals/csharp-mode updated (d8b058c9e9 -> 1f8616a02d)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch externals/csharp-mode.

  from  d8b058c9e9 Bump version
   new  4c5e9baa68 Update readme
   new  1f8616a02d Update readme - make header more clear about 
development-status


Summary of changes:
 README.org | 15 +--
 1 file changed, 9 insertions(+), 6 deletions(-)



[elpa] externals/csharp-mode 1f8616a02d 2/2: Update readme - make header more clear about development-status

2022-11-28 Thread ELPA Syncer
branch: externals/csharp-mode
commit 1f8616a02d41233684fabfd3a23f37154b5c9ddf
Author: Jostein Kjønigsen 
Commit: GitHub 

Update readme - make header more clear about development-status
---
 README.org | 10 ++
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 064afdad77..60ef54cbc8 100644
--- a/README.org
+++ b/README.org
@@ -3,10 +3,12 @@
 
[[https://stable.melpa.org/#/csharp-mode][file:https://stable.melpa.org/packages/csharp-mode-badge.svg]]
 
[[https://elpa.gnu.org/packages/csharp-mode.html][file:https://elpa.gnu.org/packages/csharp-mode.svg]]
 
-* Development status of this mode
-This mode is now strictly in maintenance mode.  That means that /no/ new 
features
-will be added, and the mode itself will be moved into core.  Thus development 
of
-support for C# will continue in core Emacs.  However, this repo will continue
+* Obsoletion warning
+
+This mode is effectively no longer maintained. /No/ new features
+will be added, and the mode itself has been moved into Emacs core.
+
+Thus development of support for C# will continue in core Emacs.  However, this 
repo will continue
 being available from (M)ELPA for some time for backwards compatibility.
 
 If you are running Emacs 29 or later you are advised to remove this package 
and rely



[elpa] externals/csharp-mode 4c5e9baa68 1/2: Update readme

2022-11-28 Thread ELPA Syncer
branch: externals/csharp-mode
commit 4c5e9baa68f620ac754f63038431e46169c75cdc
Author: Jostein Kjønigsen 
Commit: GitHub 

Update readme

Fix typo, and improve readability.
---
 README.org | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 8db3c215f7..064afdad77 100644
--- a/README.org
+++ b/README.org
@@ -7,8 +7,9 @@
 This mode is now strictly in maintenance mode.  That means that /no/ new 
features
 will be added, and the mode itself will be moved into core.  Thus development 
of
 support for C# will continue in core Emacs.  However, this repo will continue
-being available from (M)ELPA for some time for backwards compatibility.  If you
-are running Emacs 29 or larger you are advised to remove this package and rely
+being available from (M)ELPA for some time for backwards compatibility.
+
+If you are running Emacs 29 or later you are advised to remove this package 
and rely
 on what's in core.  Bug reports should be directed to the Emacs bug tracker
 after Emacs 29 is released.
 



[nongnu] elpa/eat 6a94082eff 3/8: Use hash table to convert from charset

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit 6a94082effd5d501bf6e3608f04552abc7a9e844
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Use hash table to convert from charset

* eat.el (eat--t-dec-line-drawing-chars): New constant
containing the hash table.
* eat.el (eat--t-write): Use hash-table instead alist while
converting from DEC Line Drawing charset.
---
 eat.el | 86 ++
 1 file changed, 49 insertions(+), 37 deletions(-)

diff --git a/eat.el b/eat.el
index 476a33acbb..e07081b1b9 100644
--- a/eat.el
+++ b/eat.el
@@ -2362,6 +2362,53 @@ character or its the internal invisible spaces."
 (insert (propertize " " 'face face))
 (backward-char)
 
+(defconst eat--t-dec-line-drawing-chars
+  (eval-and-compile
+(let ((alist '((?+ . ?→)
+   (?, . ?←)
+   (?- . ?↑)
+   (?. . ?↓)
+   (?0 . ?█)
+   (?\` . ?�)
+   (?a . ?▒)
+   (?b . ?␉)
+   (?c . ?␌)
+   (?d . ?␍)
+   (?e . ?␊)
+   (?f . ?°)
+   (?g . ?±)
+   (?h . ?░)
+   (?i . ?#)
+   (?j . ?┘)
+   (?k . ?┐)
+   (?l . ?┌)
+   (?m . ?└)
+   (?n . ?┼)
+   (?o . ?⎺)
+   (?p . ?⎻)
+   (?q . ?─)
+   (?r . ?⎼)
+   (?s . ?⎽)
+   (?t . ?├)
+   (?u . ?┤)
+   (?v . ?┴)
+   (?w . ?┬)
+   (?x . ?│)
+   (?y . ?≤)
+   (?z . ?≥)
+   (?{ . ?π)
+   (?| . ?≠)
+   (?} . ?£)
+   (?~ . ?•)))
+  (table (make-hash-table :purecopy t)))
+  (dolist (pair alist)
+(puthash (car pair) (cdr pair) table))
+  table))
+  "Hash table for DEC Line Drawing charset.
+
+The key is the output character from client, and value of the
+character to actually show.")
+
 (defun eat--t-write (str)
   "Write STR on display."
   (let ((face (eat--t-face-face (eat--t-term-face eat--t-term)))
@@ -2387,43 +2434,8 @@ character or its the internal invisible spaces."
   ;; `us-ascii'.
   ('dec-line-drawing
(dotimes (i (length str))
- (let ((replacement (alist-get (aref str i)
-   '((?+ . ?→)
- (?, . ?←)
- (?- . ?↑)
- (?. . ?↓)
- (?0 . ?█)
- (?\` . ?�)
- (?a . ?▒)
- (?b . ?␉)
- (?c . ?␌)
- (?d . ?␍)
- (?e . ?␊)
- (?f . ?°)
- (?g . ?±)
- (?h . ?░)
- (?i . ?#)
- (?j . ?┘)
- (?k . ?┐)
- (?l . ?┌)
- (?m . ?└)
- (?n . ?┼)
- (?o . ?⎺)
- (?p . ?⎻)
- (?q . ?─)
- (?r . ?⎼)
- (?s . ?⎽)
- (?t . ?├)
- (?u . ?┤)
- (?v . ?┴)
- (?w . ?┬)
- (?x . ?│)
- (?y . ?≤)
- (?z . ?≥)
- (?{ . ?π)
- (?| . ?≠)
- (?} . ?£)
- (?~ . ?•)
+ (let ((replacement
+(gethash (aref str i) eat--t-dec-line-drawing-chars)))
(when replacement
  (aset str i replacement))
 ;; Find all the multi-column wide characters in STR, using a



[nongnu] elpa/eat 64c537da78 1/8: Replace 'let*' with 'let' wherever possible

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit 64c537da7813d128aac8638c32885d05b4f9c5a6
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Replace 'let*' with 'let' wherever possible

* eat.el (eat--t-eol, eat--t-reset, eat--t-erase-in-disp)
(eat--t-disable-alt-disp, eat--t-resize, eat-term-redisplay)
(eat-term-input-event, eat--adjust-process-window-size): Use
'let' instead of 'let*' wherever possible.
* eat.el (eat--eshell-exec-visual): Use (VAR nil) form instead
of VAR form in 'let*' variable list.
---
 eat.el | 48 
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/eat.el b/eat.el
index f7cc934988..b46c8985d1 100644
--- a/eat.el
+++ b/eat.el
@@ -1775,7 +1775,7 @@ Treat LINE FEED (?\\n) as the line delimiter."
   ;; Move to the beginning of line, record the point, and return that
   ;; point and the distance of that point from current line in lines.
   (save-excursion
-(let* ((moved (eat--t-goto-eol n)))
+(let ((moved (eat--t-goto-eol n)))
   (cons (point) moved
 
 (defun eat--t-col-motion (n)
@@ -1981,7 +1981,7 @@ Don't `set' it, bind it to a value with `let'.")
 
 (defun eat--t-reset ()
   "Reset terminal."
-  (let* ((disp (eat--t-term-display eat--t-term)))
+  (let ((disp (eat--t-term-display eat--t-term)))
 ;; Reset most of the things to their respective default values.
 (setf (eat--t-term-parser-state eat--t-term) nil)
 (setf (eat--t-disp-begin disp) (point-min-marker))
@@ -2783,10 +2783,10 @@ to (1, 1).  When N is 3, also erase the scrollback."
;; Restore position.
(goto-char pos
   (1
-   (let* ((y (eat--t-cur-y cursor))
-  (x (eat--t-cur-x cursor))
-  ;; Should we erase including the cursor position?
-  (incl-point (/= (point) (point-max
+   (let ((y (eat--t-cur-y cursor))
+ (x (eat--t-cur-x cursor))
+ ;; Should we erase including the cursor position?
+ (incl-point (/= (point) (point-max
  ;; Delete the region to be erased.
  (delete-region (eat--t-disp-begin disp)
 (if incl-point (1+ (point)) (point)))
@@ -2911,17 +2911,17 @@ If DONT-MOVE-CURSOR is non-nil, don't move cursor from 
current
 position."
   ;; Make sure we in the alternative display.
   (when (eat--t-term-main-display eat--t-term)
-(let* ((main-disp (eat--t-term-main-display eat--t-term))
-   (old-y (eat--t-cur-y
-   (eat--t-disp-cursor
-(eat--t-term-display eat--t-term
-   (old-x (eat--t-cur-x
-   (eat--t-disp-cursor
-(eat--t-term-display eat--t-term
-   (width (eat--t-disp-width
-   (eat--t-term-display eat--t-term)))
-   (height (eat--t-disp-height
-(eat--t-term-display eat--t-term
+(let ((main-disp (eat--t-term-main-display eat--t-term))
+  (old-y (eat--t-cur-y
+  (eat--t-disp-cursor
+   (eat--t-term-display eat--t-term
+  (old-x (eat--t-cur-x
+  (eat--t-disp-cursor
+   (eat--t-term-display eat--t-term
+  (width (eat--t-disp-width
+  (eat--t-term-display eat--t-term)))
+  (height (eat--t-disp-height
+   (eat--t-term-display eat--t-term
   ;; Delete everything.
   (delete-region (point-min) (point-max))
   ;; Restore the main display.
@@ -4092,7 +4092,7 @@ DATA is the selection data encoded in base64."
 ;; Calculate the beginning position of display.
 (goto-char (point-max))
 ;; TODO: This part needs explanation.
-(let* ((disp-begin (car (eat--t-bol (- (1- height))
+(let ((disp-begin (car (eat--t-bol (- (1- height))
   (when (< (eat--t-disp-begin disp) disp-begin)
 (goto-char (max (- (eat--t-disp-begin disp) 1)
 (point-min)))
@@ -4369,7 +4369,7 @@ you need the position."
   "Prepare TERMINAL for displaying."
   (let ((inhibit-quit t))
 (eat--t-with-env terminal
-  (let* ((disp (eat--t-term-display eat--t-term)))
+  (let ((disp (eat--t-term-display eat--t-term)))
 (when (< (eat--t-disp-old-begin disp)
  (eat--t-disp-begin disp))
   ;; Join long lines.
@@ -4541,8 +4541,8 @@ client process may get confused."
 (setq tmp (get char 'ascii-character))
 (setq char tmp
(when (numberp char)
- (let* ((base (event-basic-type char))
-(mods (event-modifiers char)))
+ (let ((base (event-basic-type char))
+   (mods (event-modifiers char)))
;; Try to avoid event-convert-list if possible.
(if (and (characterp char)
 (not (memq 'meta mods))
@@ -5715,8 +5715,8 @@ to it."
 
 PROC

[nongnu] elpa/eat bc4bd45fa6 5/8: Avoid copying STR to the extent possible

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit bc4bd45fa6dfc0515f508c38c075a484d7fcca37
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Avoid copying STR to the extent possible

* eat.el (eat--t-write): Take two more optional arguments BEG
and END to avoid copying STR multiple times unneccessarily.
---
 eat.el | 246 +
 1 file changed, 126 insertions(+), 120 deletions(-)

diff --git a/eat.el b/eat.el
index 36b42bab7c..2a547fdc5d 100644
--- a/eat.el
+++ b/eat.el
@@ -2409,131 +2409,137 @@ character or its the internal invisible spaces."
 The key is the output character from client, and value of the
 character to actually show.")
 
-(defun eat--t-write (str)
-  "Write STR on display."
-  (let ((face (eat--t-face-face (eat--t-term-face eat--t-term)))
-;; Alist of indices and width of multi-column characters.
-(multi-col-char-indices nil)
-(inserted-till 0))
-;; Copy STR and add face to it.
-(setq str (propertize str 'face face))
-;; Convert STR to Unicode according to the current character
-;; set.
-(pcase-exhaustive
-(alist-get (car (eat--t-term-charset eat--t-term))
-   (cdr (eat--t-term-charset eat--t-term)))
-  ;; For `us-ascii', the default, no conversion is
-  ;; necessary.
-  ('us-ascii
-   str)
-  ;; `dec-line-drawing' contains various characters useful
-  ;; for drawing line diagram, so it is a must.  This is
-  ;; also possible with `us-ascii', thanks to Unicode, but
-  ;; the character set `dec-line-drawing' is usually less
-  ;; expensive in terms of bytes needed to transfer than
-  ;; `us-ascii'.
-  ('dec-line-drawing
-   (dotimes (i (length str))
- (let ((replacement
-(gethash (aref str i) eat--t-dec-line-drawing-chars)))
-   (when replacement
- (aset str i replacement))
+(defun eat--t-write (str &optional beg end)
+  "Write STR from BEG to END on display."
+  (setq beg (or beg 0))
+  (setq end (or end (length str)))
+  (let* ((disp (eat--t-term-display eat--t-term))
+ (cursor (eat--t-disp-cursor disp))
+ (scroll-end (eat--t-term-scroll-end eat--t-term))
+ (charset
+  (alist-get (car (eat--t-term-charset eat--t-term))
+ (cdr (eat--t-term-charset eat--t-term
+ (face (eat--t-face-face (eat--t-term-face eat--t-term)))
+ ;; Alist of indices and width of multi-column characters.
+ (multi-col-char-indices nil)
+ (inserted-till beg))
+(cl-assert charset)
 ;; Find all the multi-column wide characters in ST; hopefully it
 ;; won't slow down showing plain ASCII.
 (setq multi-col-char-indices
-  (cl-loop for i from 0 to (1- (length str))
+  (cl-loop for i from beg to (1- end)
when (/= (char-width (aref str i)) 1)
collect (cons i (char-width (aref str i)
+;; If the position isn't safe, replace the multi-column
+;; character with spaces to make it safe.
+(eat--t-make-pos-safe)
 ;; TODO: Comment.
 ;; REVIEW: This probably needs to be updated.
-(let* ((disp (eat--t-term-display eat--t-term))
-   (cursor (eat--t-disp-cursor disp))
-   (scroll-end (eat--t-term-scroll-end eat--t-term)))
-  ;; If the position isn't safe, replace the multi-column
-  ;; character with spaces to make it safe.
-  (eat--t-make-pos-safe)
-  (while (< inserted-till (length str))
-;; Insert STR, and record the width of STR inserted
-;; successfully.
-(let ((ins-count
-   (named-let write
-   ((max
- (min (- (eat--t-disp-width disp)
- (1- (eat--t-cur-x cursor)))
-  (apply #'+ (- (length str) inserted-till)
- (mapcar (lambda (p) (1- (cdr p)))
- multi-col-char-indices
-(written 0))
- (let* ((next-multi-col (car multi-col-char-indices))
-(end (+ inserted-till max))
-(e (if next-multi-col
-   ;; Exclude the multi-column character.
-   (min (car next-multi-col) end)
- end))
-(wrote (- e inserted-till)))
-   (cl-assert (>= wrote 0))
-   (insert (substring str inserted-till e))
-   (setq inserted-till e)
-   (if (or (null next-multi-col)
-   (< (- end e) (cdr next-multi-col)))
-   ;; Either everything is done, or we reached
-   ;; the limit.
-   (+ written wrote)
- ;; There are many characters which are too narrow
- ;; for `char-width' to r

[nongnu] elpa/eat 6271968c86 2/8: Use as less let-bindings as possible

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit 6271968c86d615a2515d5a00985f1828f244c774
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Use as less let-bindings as possible

* eat.el (eat--t-goto-bol, eat--t-goto-eol)
(eat--t-repeated-insert, eat--t-cur-right, eat--t-cur-left)
(eat--t-cur-horizontal-abs, eat--t-beg-of-next-line)
(eat--t-beg-of-prev-line, eat--t-cur-down, eat--t-cur-up)
(eat--t-cur-vertical-abs, eat--t-scroll-up, eat--t-scroll-down)
(eat--t-write, eat--t-horizontal-tab)
(eat--t-horizontal-backtab, eat--t-reverse-index)
(eat--t-erase-in-line, eat--t-erase-in-disp)
(eat--t-insert-char, eat--t-delete-char, eat--t-erase-char)
(eat--t-insert-line, eat--t-delete-line)
(eat--t-repeat-last-char, eat--t-change-scroll-region)
(eat--t-send-device-attrs): Minimize let-binding count.
* eat.el (eat--t-break-long-line, eat--t-write)
(eat-trace-replay): Use replace 'propertize' call with already
propertized string.
---
 eat.el | 681 +
 1 file changed, 343 insertions(+), 338 deletions(-)

diff --git a/eat.el b/eat.el
index b46c8985d1..476a33acbb 100644
--- a/eat.el
+++ b/eat.el
@@ -1692,25 +1692,24 @@ Return the number of lines moved.
 
 Treat LINE FEED (?\\n) as the line delimiter."
   ;; TODO: Comment.
-  (let ((n (or n 0)))
-(cond
- ((> n 0)
-  (let ((moved 0))
-(while (and (< (point) (point-max))
-(< moved n))
-  (and (search-forward "\n" nil 'move)
-   (cl-incf moved)))
-moved))
- ((<= n 0)
-  (let ((moved 1))
-(while (and (or (= moved 1)
-(< (point-min) (point)))
-(< n moved))
-  (cl-decf moved)
-  (and (search-backward "\n" nil 'move)
-   (= moved n)
-   (goto-char (match-end 0
-moved)
+  (setq n (or n 0))
+  (cond ((> n 0)
+ (let ((moved 0))
+   (while (and (< (point) (point-max))
+   (< moved n))
+ (and (search-forward "\n" nil 'move)
+  (cl-incf moved)))
+   moved))
+((<= n 0)
+ (let ((moved 1))
+   (while (and (or (= moved 1)
+   (< (point-min) (point)))
+   (< n moved))
+ (cl-decf moved)
+ (and (search-backward "\n" nil 'move)
+  (= moved n)
+  (goto-char (match-end 0
+   moved
 
 (defun eat--t-goto-eol (&optional n)
   "Go to the end of current line.
@@ -1724,25 +1723,24 @@ Return the number of lines moved.
 
 Treat LINE FEED (?\\n) as the line delimiter."
   ;; TODO: Comment.
-  (let ((n (or n 0)))
-(cond
- ((>= n 0)
-  (let ((moved -1))
-(while (and (or (= moved -1)
-(< (point) (point-max)))
-(< moved n))
-  (cl-incf moved)
-  (and (search-forward "\n" nil 'move)
-   (= moved n)
-   (goto-char (match-beginning 0
-moved))
- ((< n 0)
-  (let ((moved 0))
-(while (and (< (point-min) (point))
-(< n moved))
-  (and (search-backward "\n" nil 'move)
-   (cl-decf moved)))
-moved)
+  (setq n (or n 0))
+  (cond ((>= n 0)
+ (let ((moved -1))
+   (while (and (or (= moved -1)
+   (< (point) (point-max)))
+   (< moved n))
+ (cl-incf moved)
+ (and (search-forward "\n" nil 'move)
+  (= moved n)
+  (goto-char (match-beginning 0
+   moved))
+((< n 0)
+ (let ((moved 0))
+   (while (and (< (point-min) (point))
+   (< n moved))
+ (and (search-backward "\n" nil 'move)
+  (cl-decf moved)))
+   moved
 
 (defun eat--t-bol (&optional n)
   "Return the beginning of current line.
@@ -1758,6 +1756,8 @@ Treat LINE FEED (?\\n) as the line delimiter."
   ;; Move to the beginning of line, record the point, and return that
   ;; point and the distance of that point from current line in lines.
   (save-excursion
+;; `let' is neccessary, we need to evaluate (point) after going to
+;; `(eat--t-goto-bol N)'.
 (let ((moved (eat--t-goto-bol n)))
   (cons (point) moved
 
@@ -1775,6 +1775,8 @@ Treat LINE FEED (?\\n) as the line delimiter."
   ;; Move to the beginning of line, record the point, and return that
   ;; point and the distance of that point from current line in lines.
   (save-excursion
+;; `let' is neccessary, we need to evaluate (point) after going to
+;; (eat--t-goto-eol N).
 (let ((moved (eat--t-goto-eol n)))
   (cons (point) moved
 
@@ -1789,26 +1791,27 @@ Return the number of columns moved.
 
 Assume all characters occupy a single column."
   ;; Record the current position.
-  (let ((poin

[nongnu] elpa/eat f3fed64957 8/8: Prefer 'pcase-exhaustive' over 'pcase'

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit f3fed64957b4e88cfa1ff2c5ddfb665f249624cc
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Prefer 'pcase-exhaustive' over 'pcase'

* eat.el (eat--t-erase-in-line, eat--t-erase-in-disp,
eat--t-set-mouse-mode, eat--t-send-device-attrs,
eat--t-handle-output, eat-term-input-event,
eat--manipulate-kill-ring, eat--trace-replay-eval):
Prefer 'pcase-exhaustive' over 'pcase'.
---
 eat.el | 24 
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/eat.el b/eat.el
index 02e226dd4d..550a3de6ec 100644
--- a/eat.el
+++ b/eat.el
@@ -2699,7 +2699,7 @@ N default to 1."
 N defaults to 0.  When N is 0, erase cursor to end of line.  When N is
 1, erase beginning of line to cursor.  When N is 2, erase whole line."
   (let ((face (eat--t-term-face eat--t-term)))
-(pcase n
+(pcase-exhaustive n
   ((or 0 'nil (pred (< 2)))
;; Delete cursor position (inclusive) to end of line.
(delete-region (point) (car (eat--t-eol)))
@@ -2761,7 +2761,7 @@ is 1, erase beginning of display to cursor.  In both on 
the previous
 cases, don't move cursor.  When N is 2, erase display and reset cursor
 to (1, 1).  When N is 3, also erase the scrollback."
   (let ((face (eat--t-term-face eat--t-term)))
-(pcase n
+(pcase-exhaustive n
   ((or 0 'nil (pred (< 3)))
;; Delete from cursor position (inclusive) to end of terminal.
(delete-region (point) (point-max))
@@ -3421,11 +3421,12 @@ MODE should be one of nil and `x10', `normal', 
`button-event',
 (setf (eat--t-term-mouse-pressed eat--t-term) nil))
   ;; Inform the UI.
   (funcall (eat--t-term-grab-mouse-fn eat--t-term) eat--t-term
-   (pcase mode
+   (pcase-exhaustive mode
  ('x10 :click)
  ('normal :modifier-click)
  ('button-event :drag)
- ('any-event :all
+ ('any-event :all)
+ ('nil nil
 
 (defun eat--t-enable-x10-mouse ()
   "Enable X10 mouse tracking."
@@ -3472,7 +3473,7 @@ MODE should be one of nil and `x10', `normal', 
`button-event',
 PARAMS is the parameter list and FORMAT is the format of parameters in
 output."
   (setq params (or params '((0
-  (pcase format
+  (pcase-exhaustive format
 ('nil
  (when (= (caar params) 0)
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
@@ -3659,7 +3660,7 @@ DATA is the selection data encoded in base64."
   "Parse and evaluate OUTPUT."
   (let ((index 0))
 (while (< index (length output))
-  (pcase (eat--t-term-parser-state eat--t-term)
+  (pcase-exhaustive (eat--t-term-parser-state eat--t-term)
 ('nil
  ;; Regular expression to find the end of plain text.
  (let ((match (string-match
@@ -3681,7 +3682,7 @@ DATA is the selection data encoded in base64."
(setq index match))
  ;; Dispatch control sequence.
  (cl-incf index)
- (pcase (aref output (1- index))
+ (pcase-exhaustive (aref output (1- index))
(?\a
 (eat--t-bell))
(?\b
@@ -4472,7 +4473,7 @@ client process may get confused."
   ('prior ?5)
   ('next ?6)
   (_ ?1))
-(pcase (event-modifiers ev)
+(pcase-exhaustive (event-modifiers ev)
   ((and (pred (memq 'control))
 (pred (memq 'meta))
 (pred (memq 'shift)))
@@ -5447,13 +5448,12 @@ selection, or nil if none."
   (let ((inhibit-eol-conversion t)
 (select-enable-clipboard (eq selection :clipboard))
 (select-enable-primary (eq selection :primary)))
-(pcase data
+(pcase-exhaustive data
   ('t
(when eat-enable-yank-to-terminal
  (ignore-error error
(current-kill 0 'do-not-move
-  ((and (pred stringp)
-str)
+  ((and (pred stringp) str)
(when eat-enable-kill-from-terminal
  (kill-new str))
 
@@ -6715,7 +6715,7 @@ FN is the original definition of `eat--eshell-cleanup', 
which see."
   (let ((inhibit-read-only t))
 (setq eat--trace-replay-progress
   (- (car data) eat--trace-replay-recording-start-time))
-(pcase data
+(pcase-exhaustive data
   (`(,time create ,_ui ,width ,height ,variables)
(setq eat--trace-replay-recording-start-time time
  eat--trace-replay-progress 0)



[nongnu] elpa/eat 9d14bbeaa5 4/8: Support multi-column characters properly

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit 9d14bbeaa5c7f5499dcde485ef3a539f8590088e
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Support multi-column characters properly

* eat.el (eat--t-write): Use 'char-width' instead of the
unpredictable 'string-width' to support multi-column characters
properly.
---
 eat.el | 43 ++-
 1 file changed, 14 insertions(+), 29 deletions(-)

diff --git a/eat.el b/eat.el
index e07081b1b9..36b42bab7c 100644
--- a/eat.el
+++ b/eat.el
@@ -2438,28 +2438,12 @@ character to actually show.")
 (gethash (aref str i) eat--t-dec-line-drawing-chars)))
(when replacement
  (aset str i replacement))
-;; Find all the multi-column wide characters in STR, using a
-;; binary search like algorithm; hopefully it won't slow down
-;; showing ASCII.
-(named-let find ((string str)
- (beg 0)
- (end (length str)))
-  ;; NOTE: `string-width' doesn't work correctly given a range of
-  ;; characters in a string.  This workarounds the bug partially.
-  ;; FIXME: This sometimes doesn't work.  To reproduce, do C-h h
-  ;; in emacs -nw in Eat.
-  (unless (= (- end beg) (string-width string))
-(if (= (- end beg) 1)
-;; Record the character width here.  We only use
-;; `string-width', (= `string-width' `char-width') isn't
-;; always t.
-(push (cons beg (string-width string))
-  multi-col-char-indices)
-  (let ((mid (/ (+ beg end) 2)))
-;; Processing the latter half first in important,
-;; otherwise the order of indices will be reversed.
-(find (substring str mid end) mid end)
-(find (substring str beg mid) beg mid)
+;; Find all the multi-column wide characters in ST; hopefully it
+;; won't slow down showing plain ASCII.
+(setq multi-col-char-indices
+  (cl-loop for i from 0 to (1- (length str))
+   when (/= (char-width (aref str i)) 1)
+   collect (cons i (char-width (aref str i)
 ;; TODO: Comment.
 ;; REVIEW: This probably needs to be updated.
 (let* ((disp (eat--t-term-display eat--t-term))
@@ -2473,9 +2457,12 @@ character to actually show.")
 ;; successfully.
 (let ((ins-count
(named-let write
-   ((max (min (- (eat--t-disp-width disp)
- (1- (eat--t-cur-x cursor)))
-  (string-width str inserted-till)))
+   ((max
+ (min (- (eat--t-disp-width disp)
+ (1- (eat--t-cur-x cursor)))
+  (apply #'+ (- (length str) inserted-till)
+ (mapcar (lambda (p) (1- (cdr p)))
+ multi-col-char-indices
 (written 0))
  (let* ((next-multi-col (car multi-col-char-indices))
 (end (+ inserted-till max))
@@ -2484,9 +2471,7 @@ character to actually show.")
(min (car next-multi-col) end)
  end))
 (wrote (- e inserted-till)))
-   (cl-assert
-(= (string-width str inserted-till e)
-   (- e inserted-till)))
+   (cl-assert (>= wrote 0))
(insert (substring str inserted-till e))
(setq inserted-till e)
(if (or (null next-multi-col)
@@ -2495,7 +2480,7 @@ character to actually show.")
;; the limit.
(+ written wrote)
  ;; There are many characters which are too narrow
- ;; for `string-width' to return 1.  XTerm, Kitty
+ ;; for `char-width' to return 1.  XTerm, Kitty
  ;; and St seems to ignore them, so we too.
  (if (zerop (cdr next-multi-col))
  (cl-incf inserted-till)



[nongnu] elpa/eat b36f923919 7/8: * eat.el (eat--t-change-charset): Assert argument

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit b36f923919d2c20dd9cc19a37a33359df6723645
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat--t-change-charset): Assert argument
---
 eat.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/eat.el b/eat.el
index 02339fc38e..02e226dd4d 100644
--- a/eat.el
+++ b/eat.el
@@ -2296,6 +2296,7 @@ of range, place cursor at the edge of display."
   "Change character set to CHARSET.
 
 CHARSET should be one of `g0', `g1', `g2' and `g3'."
+  (cl-assert (memq charset '(g0 g1 g2 g3)))
   (setf (car (eat--t-term-charset eat--t-term)) charset))
 
 (defun eat--t-move-before-to-safe ()



[nongnu] elpa/eat updated (499c9dd911 -> f3fed64957)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch elpa/eat.

  from  499c9dd911 * README.org (NonGNU ELPA Devel): New section
   new  64c537da78 Replace 'let*' with 'let' wherever possible
   new  6271968c86 Use as less let-bindings as possible
   new  6a94082eff Use hash table to convert from charset
   new  9d14bbeaa5 Support multi-column characters properly
   new  bc4bd45fa6 Avoid copying STR to the extent possible
   new  9a5bd15866 Combine multiple setq/setf/setq-local into one
   new  b36f923919 * eat.el (eat--t-change-charset): Assert argument
   new  f3fed64957 Prefer 'pcase-exhaustive' over 'pcase'


Summary of changes:
 eat.el | 1238 
 1 file changed, 617 insertions(+), 621 deletions(-)



[nongnu] elpa/eat 9a5bd15866 6/8: Combine multiple setq/setf/setq-local into one

2022-11-28 Thread ELPA Syncer
branch: elpa/eat
commit 9a5bd1586699c66a770b729992ea98e0272e
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Combine multiple setq/setf/setq-local into one

* eat.el (eat--t-reset, eat--t-goto, eat--t-write)
(eat--t-save-cur, eat--t-enable-alt-disp)
(eat--t-change-scroll-region, eat--t-set-sgr-params)
(eat--t-manipulate-selection, eat--t-handle-output)
(eat--t-resize, eat--flip-slow-blink-state)
(eat--flip-fast-blink-state, eat-blink-mode)
(eat--cursor-blink-mode, eat--set-cursor, eat-self-input)
(eat-mode, eat-exec, eat--eshell-setup-proc-and-term)
(eat--eshell-cleanup, eat--eshell-local-mode)
(eat--eshell-exec-visual, eat--trace-exec)
(eat--eshell-trace-adjust-make-process-args)
(eat--trace-replay-eval, eat-trace-replay, eat-trace--cleanup):
Combine multiple setq/setf/setq-local into one wherever
possible.
---
 eat.el | 281 +++--
 1 file changed, 134 insertions(+), 147 deletions(-)

diff --git a/eat.el b/eat.el
index 2a547fdc5d..02339fc38e 100644
--- a/eat.el
+++ b/eat.el
@@ -1988,33 +1988,31 @@ Don't `set' it, bind it to a value with `let'.")
   "Reset terminal."
   (let ((disp (eat--t-term-display eat--t-term)))
 ;; Reset most of the things to their respective default values.
-(setf (eat--t-term-parser-state eat--t-term) nil)
-(setf (eat--t-disp-begin disp) (point-min-marker))
-(setf (eat--t-disp-old-begin disp) (point-min-marker))
-(setf (eat--t-disp-cursor disp)
-  (eat--t-make-cur :position (point-min-marker)))
-(setf (eat--t-disp-saved-cursor disp) (eat--t-make-cur))
-(setf (eat--t-term-scroll-begin eat--t-term) 1)
-(setf (eat--t-term-scroll-end eat--t-term)
-  (eat--t-disp-height disp))
-(setf (eat--t-term-main-display eat--t-term) nil)
-(setf (eat--t-term-face eat--t-term) (eat--t-make-face))
-(setf (eat--t-term-auto-margin eat--t-term) t)
-(setf (eat--t-term-ins-mode eat--t-term) nil)
-(setf (eat--t-term-charset eat--t-term)
+(setf (eat--t-term-parser-state eat--t-term) nil
+  (eat--t-disp-begin disp) (point-min-marker)
+  (eat--t-disp-old-begin disp) (point-min-marker)
+  (eat--t-disp-cursor disp) (eat--t-make-cur :position 
(point-min-marker))
+  (eat--t-disp-saved-cursor disp) (eat--t-make-cur)
+  (eat--t-term-scroll-begin eat--t-term) 1
+  (eat--t-term-scroll-end eat--t-term) (eat--t-disp-height disp)
+  (eat--t-term-main-display eat--t-term) nil
+  (eat--t-term-face eat--t-term) (eat--t-make-face)
+  (eat--t-term-auto-margin eat--t-term) t
+  (eat--t-term-ins-mode eat--t-term) nil
+  (eat--t-term-charset eat--t-term)
   '(g0 (g0 . us-ascii)
(g1 . dec-line-drawing)
(g2 . dec-line-drawing)
-   (g3 . dec-line-drawing)))
-(setf (eat--t-term-saved-face eat--t-term) (eat--t-make-face))
-(setf (eat--t-term-bracketed-yank eat--t-term) nil)
-(setf (eat--t-term-cur-state eat--t-term) :default)
-(setf (eat--t-term-cur-blinking-p eat--t-term) nil)
-(setf (eat--t-term-title eat--t-term) "")
-(setf (eat--t-term-keypad-mode eat--t-term) nil)
-(setf (eat--t-term-mouse-mode eat--t-term) nil)
-(setf (eat--t-term-mouse-encoding eat--t-term) nil)
-(setf (eat--t-term-focus-event-mode eat--t-term) nil)
+   (g3 . dec-line-drawing))
+  (eat--t-term-saved-face eat--t-term) (eat--t-make-face)
+  (eat--t-term-bracketed-yank eat--t-term) nil
+  (eat--t-term-cur-state eat--t-term) :default
+  (eat--t-term-cur-blinking-p eat--t-term) nil
+  (eat--t-term-title eat--t-term) ""
+  (eat--t-term-keypad-mode eat--t-term) nil
+  (eat--t-term-mouse-mode eat--t-term) nil
+  (eat--t-term-mouse-encoding eat--t-term) nil
+  (eat--t-term-focus-event-mode eat--t-term) nil)
 ;; Clear everything.
 (delete-region (point-min) (point-max))
 ;; Inform the UI about our new state.
@@ -2257,8 +2255,8 @@ of range, place cursor at the edge of display."
   (let* ((disp (eat--t-term-display eat--t-term))
  (cursor (eat--t-disp-cursor disp)))
 (goto-char (eat--t-disp-begin disp))
-(1value (setf (eat--t-cur-y cursor) 1))
-(1value (setf (eat--t-cur-x cursor) 1)))
+(1value (setf (eat--t-cur-y cursor) 1
+  (eat--t-cur-x cursor) 1)))
 ;; Move to column one, go to Yth line and move to Xth column.
 ;; REVIEW: We move relative to cursor position, which faster for
 ;; positions near the point (usually the case), but slower for
@@ -2411,8 +2409,7 @@ character to actually show.")
 
 (defun eat--t-write (str &optional beg end)
   "Write STR from BEG to END on display."
-  (setq beg (or beg 0))
-  (setq end (or end (length str)))
+  (setq beg (or beg 0) end (or end (length str)))
   (let* ((disp (eat--t-term-dis

[elpa] externals/vertico 6d6d8442f8: Update readme

2022-11-28 Thread ELPA Syncer
branch: externals/vertico
commit 6d6d8442f85aa53c32b8d76cf0804ebb19f7ccfa
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update readme
---
 README.org | 15 +++
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 14b3c0d124..2b2fc675c2 100644
--- a/README.org
+++ b/README.org
@@ -460,14 +460,13 @@ There are other interactive completion UIs, which follow 
a similar philosophy:
   slowdown. Mct supports completion in region via its ~mct-region-mode~. Note 
that
   Mct development is currently 
[[https://protesilaos.com/codelog/2022-04-14-emacs-discontinue-mct/][discontinued]]
 due to recent changes of the default
   completion UI on the Emacs master branch.
-- [[https://github.com/radian-software/selectrum][Selectrum]]: Selectrum was 
the predecessor of Vertico. Vertico was designed
-  specifically to address the technical shortcomings of Selectrum. Selectrum is
-  not fully compatible with every Emacs completion command and dynamic
-  completion tables, since it uses its own filtering infrastructure, which
-  deviates from the standard Emacs completion facilities. Therefore Selectrum
-  has been deprecated in favor of Vertico. Furthermore, Vertico was designed
-  with flexibility in mind via its [[#extensions][extensions]]. See the 
[[https://github.com/minad/vertico/wiki/Migrating-from-Selectrum-to-Vertico][migration
 guide]] if you
-  plan to migrate from Selectrum to Vertico.
+- [[https://github.com/radian-software/selectrum][Selectrum]]: Selectrum is 
the predecessor of Vertico has been deprecated in
+  favor of Vertico. See the 
[[https://github.com/minad/vertico/wiki/Migrating-from-Selectrum-to-Vertico][migration
 guide]] if you want to migrate from
+  Selectrum to Vertico. Vertico was designed specifically to address the
+  technical shortcomings of Selectrum. Selectrum is not fully compatible with
+  every Emacs completion command and dynamic completion tables, since it uses
+  its own filtering infrastructure, which deviates from the standard Emacs
+  completion facilities.
 - Icomplete: Emacs 28 comes with a builtin =icomplete-vertical-mode=, which is 
a
   more bare-bone than Vertico. Vertico offers more flexibility thanks to its
   [[#extensions][extensions]].



[nongnu] elpa/markdown-mode e3937a7ebf: Remove broken link in issue template

2022-11-28 Thread ELPA Syncer
branch: elpa/markdown-mode
commit e3937a7ebfbc6a58a03682a40987d90db9cc74a1
Author: Jason Blevins 
Commit: Jason Blevins 

Remove broken link in issue template
---
 .github/ISSUE_TEMPLATE.md | 4 
 1 file changed, 4 deletions(-)

diff --git a/.github/ISSUE_TEMPLATE.md b/.github/ISSUE_TEMPLATE.md
index 4353acf76a..92dbb96ed4 100644
--- a/.github/ISSUE_TEMPLATE.md
+++ b/.github/ISSUE_TEMPLATE.md
@@ -18,10 +18,6 @@ If suggesting a change/improvement, explain the difference 
from current behavior
 
 

[nongnu] elpa/testcover-mark-line 36a2a9422d 2/2: Bump version to 0.3

2022-11-28 Thread ELPA Syncer
branch: elpa/testcover-mark-line
commit 36a2a9422dcdf6f01e842b153fa492c1604ca48b
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Bump version to 0.3
---
 testcover-mark-line.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testcover-mark-line.el b/testcover-mark-line.el
index c6b59aa10b..00cb216ca3 100644
--- a/testcover-mark-line.el
+++ b/testcover-mark-line.el
@@ -4,7 +4,7 @@
 
 ;; Author: Akib Azmain Turja 
 ;; Created: 2022-10-11
-;; Version: 0.2
+;; Version: 0.3
 ;; Package-Requires: ((emacs "25.1"))
 ;; Keywords: lisp utility
 ;; Homepage: https://codeberg.org/akib/emacs-testcover-mark-line



[nongnu] elpa/testcover-mark-line updated (331791f358 -> 36a2a9422d)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch elpa/testcover-mark-line.

  from  331791f358 Bump version to 0.2
   new  f5de4482a0 Document how to enable in README and commentary
   new  36a2a9422d Bump version to 0.3


Summary of changes:
 README.org | 4 
 testcover-mark-line.el | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)



[nongnu] elpa/testcover-mark-line f5de4482a0 1/2: Document how to enable in README and commentary

2022-11-28 Thread ELPA Syncer
branch: elpa/testcover-mark-line
commit f5de4482a023e8599f16aff52aad483902f180d3
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Document how to enable in README and commentary
---
 README.org | 4 
 testcover-mark-line.el | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/README.org b/README.org
index ab5f6a0184..e6745f7b4f 100644
--- a/README.org
+++ b/README.org
@@ -6,6 +6,8 @@ which sometimes don't attract attention and is hard to see, 
especially
 when your code is heavy highlighted.  This package highlights the
 whole line, which can easily get your attention.
 
+Enable with ~M-x testcover-mark-line-mode~, and you're done.
+
 * Installation
 
 ~testcover-mark-line~ isn't available on any ELPA right now.  So, you
@@ -29,6 +31,8 @@ have to follow one of the following methods:
:repo "https://codeberg.org/akib/emacs-testcover-mark-line.git";))
 #+end_src
 
+* Usa
+
 ** Manual
 
 Download the ~testcover-mark-line.el~ file and put it in your
diff --git a/testcover-mark-line.el b/testcover-mark-line.el
index e18aafe242..c6b59aa10b 100644
--- a/testcover-mark-line.el
+++ b/testcover-mark-line.el
@@ -32,6 +32,8 @@
 ;; especially when your code is heavy highlighted.  This package
 ;; highlights the whole line, which can easily get your attention.
 
+;; Enable with M-x testcover-mark-line-mode, and you're done.
+
 ;;; Code:
 
 (require 'cl-lib)



[elpa] externals/eev 172682e916: Rewrote the section about keybindings in (find-eev-intro).

2022-11-28 Thread ELPA Syncer
branch: externals/eev
commit 172682e91616604d52f6943049ca997dd8cae0d0
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Rewrote the section about keybindings in (find-eev-intro).
---
 ChangeLog| 12 
 VERSION  |  4 ++--
 eev-intro.el | 52 ++--
 3 files changed, 56 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 90afc49e44..0934d32cf1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2022-11-28  Eduardo Ochs  
+
+   * eev-intro.el (find-eev-intro): rewrote the section about
+   keybinds.
+
+2022-11-27  Eduardo Ochs  
+
+   * eev-kla.el (ee-kl-sexp-klts, eeklts): new functions.
+
+   * eev-code.el (ee-code-c-d-:anchor, ee-code-c-d-:info): added more
+   comments.
+
 2022-11-25  Eduardo Ochs  
 
* eev-kla.el (ee-kl-sexp-klfs): fixed a bug.
diff --git a/VERSION b/VERSION
index d76cc3aa88..19d1f040b9 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Nov 28 03:03:10 GMT 2022
-Mon Nov 28 00:03:11 -03 2022
+Mon Nov 28 20:51:22 GMT 2022
+Mon Nov 28 17:51:22 -03 2022
diff --git a/eev-intro.el b/eev-intro.el
index d1a05cc4ad..84030b5073 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20221126
+;; Version:20221128
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -2844,18 +2844,50 @@ besides that, only for:
   `M-e'(find-eval-intro \"`M-e'\")
   `M-k'(find-eval-intro \"`M-k'\")
   `M-j'(find-eejump-intro \"\\neejump\\n\")
-  `M-h'(find-links-intro \"Elisp hyperlinks buffers\")
   `'   (find-eepitch-intro \"The main key: \")
 
-For the full lists of keybindings, see:
+and for several key sequences starting with `M-h'. The two
+simplest ways to list the _main_ keys of eev are:
+
+  1) click with the middle mouse button on the \"eev\" in the
+ mode line - this is equivalent to:
+
+   (find-efunctiondescr 'eev-mode)
+
+  2) type `M-2 M-j' - this is equivalent to:
+
+   (find-emacs-keys-intro)
+
+These two ways are shown in this screenshot:
+
+  http://angg.twu.net/IMAGES/eev-mode-help-and-M-2-M-j.png
+
+To see _all_ the keybindings, run one of these sexps:
+
+  (find-eev \"eev-mode.el\" \"eev-mode-map-set\")
+  (find-ekeymapdescr   eev-mode-map)
+
+If the keybindings in `eev-mode-map' interfere with other
+keybindings that you use, the simplest solution is to define a
+quick way to turn `eev-mode' on and off. If `M-x eev-mode' is too
+long, you can try:
+
+  (defalias 'em 'eev-mode)
+  (global-set-key (kbd \"s-e\") 'eev-mode)
+
+The `defalias' above makes `M-x em' equivalent to `M-x eev-mode',
+and the `global-set-key' makes the key sequence `-e' run
+`eev-mode'. If you don't know what is the super key, see:
+
+  (find-enode \"Modifier Keys\")
+  https://en.wikipedia.org/wiki/Super_key_(keyboard_button)
+
+You can also modify `eev-mode-map' to make it define fewer
+keybindings, but this is not so trivial to set up. One way to do
+that is explained here:
+
+  (find-eev \"eev-mode.el\" \"when-not-eev-mode-map\")
 
-  (find-eev \"eev-mode.el\" \"eev-mode\")
-  (find-efunctiondescr'eev-mode)
-  (find-eminormodekeymapdescr 'eev-mode)
-  (find-ekeymapdescr   eev-mode-map)
-  (find-efunctiondescr'eev-avadj-mode)
-  (find-eminormodekeymapdescr 'eev-avadj-mode)
-  (find-ekeymapdescr   eev-avadj-mode-map)
 
 
 



[elpa] externals/emms ef1ad535d2: * doc/devel/developer-release.txt: move file

2022-11-28 Thread ELPA Syncer
branch: externals/emms
commit ef1ad535d29c9b59505d58babd99847c17ab05b3
Author: Yoni Rabkin 
Commit: Yoni Rabkin 

* doc/devel/developer-release.txt: move file
---
 doc/devel/developer-release.txt | 64 +
 doc/developer-release.txt   | 34 --
 2 files changed, 64 insertions(+), 34 deletions(-)

diff --git a/doc/devel/developer-release.txt b/doc/devel/developer-release.txt
new file mode 100644
index 00..eaf99be3d7
--- /dev/null
+++ b/doc/devel/developer-release.txt
@@ -0,0 +1,64 @@
+-*- outline -*-
+This is an explanation of how to make a release for Emms. Emms is
+developed at Savannah (https://savannah.gnu.org/projects/emms/) and
+distributed via Emacs ELPA (https://elpa.gnu.org/).
+
+* clean compilation
+Check for clean compilation on the two latest major Emacs releases.
+
+
+* check for basic functionality
+Check for clean loading and running with basic functionality on the
+two latest major Emacs releases.
+
+
+* version bump
+Increase the version number in emms.el (`emms-version' and the elpa
+header as a comment).
+
+
+* NEWS
+update the NEWS file from the git log to include all significant
+user-facing changes.
+
+
+* contributors
+Update AUTHORS file with the names of any new contributors. This is a
+good chance to make sure we are releasing everything with proper
+copyleft.
+
+
+* update the manual
+Update the manual:
+
+$ makeinfo --html --no-split emms.texinfo
+
+Make sure that the manual compiles cleanly and that it looks right.
+
+
+* website update
+Update the website with all any pertinent information. Upload a new
+version of the manual if it has changed in this release:
+
+$ cvs commit -m "update website" index.html
+
+
+* tag release
+Tag the release in git, for example:
+
+$ git tag -a 4.2 -m "4.2"
+
+
+* push tag
+Push the tag to the git repo, for example:
+
+$ git push --tags origin "4.2"
+
+
+* push to repo
+Push the version update itself to the git repo. We have automatic
+synchronization set up for GNU ELPA, so we are done.
+
+
+* announce
+Announce the release in the emms mailing list if it is called for.
diff --git a/doc/developer-release.txt b/doc/developer-release.txt
deleted file mode 100644
index 0031a1f175..00
--- a/doc/developer-release.txt
+++ /dev/null
@@ -1,34 +0,0 @@
-This is an explanation of how to make a release for Emms. Emms is
-developed at Savannah (https://savannah.gnu.org/projects/emms/) and
-distributed via Emacs ELPA (https://elpa.gnu.org/).
-
-* Check for clean compilation on the two latest major Emacs releases.
-
-* Check for clean running of basic functionality on the two latest
-  major Emacs releases.
-
-* Increase the version number in emms.el (variable, elpa header).
-
-* Update NEWS.
-
-* Update AUTHORS file with the names of any new contributors.
-
-* Update the manual (makeinfo --html --no-split emms.texinfo).
-
-* Update website (cvs commit -m "update website" index.html).
-
-* Tag release in VCS, for example `git tag -a 4.2 -m "4.2"'.
-
-* Push tag to VCS, for example `git push --tags origin "4.2"'.
-
-* Push version updates to VCS.
-
-* If automatic syncronization is enabled then we are done. Otherwise:
-
-* Push to GNU ELPA:
-
-  - merge master into the Savannah "elpa" branch and push to Savannah
-
-  - from the "elpa" branch in Savannah push to elpa.git: "git push 
elpa elpa:externals/emms"
-
-* Send announcement email to the emms mailing list if needed.



[nongnu] elpa/workroom updated (13e648f3db -> 532835eda0)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch elpa/workroom.

  from  13e648f3db Add .dir-locals.el
   new  b55441ff51 Fix saving workrooms in desktop file
   new  532835eda0 Bump version to 2.2.5


Summary of changes:
 workroom.el   | 6 --
 workroom.texi | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)



[nongnu] elpa/workroom 532835eda0 2/2: Bump version to 2.2.5

2022-11-28 Thread ELPA Syncer
branch: elpa/workroom
commit 532835eda02c64a8b93437e8c3fb220e60859896
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Bump version to 2.2.5
---
 workroom.el   | 2 +-
 workroom.texi | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/workroom.el b/workroom.el
index dbd1136110..e6d9a579a1 100644
--- a/workroom.el
+++ b/workroom.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2022 Akib Azmain Turja.
 
 ;; Author: Akib Azmain Turja 
-;; Version: 2.2.4
+;; Version: 2.2.5
 ;; Package-Requires: ((emacs "25.1") (project "0.3.0") (compat "28.1.2.2"))
 ;; Keywords: tools, convenience
 ;; URL: https://codeberg.org/akib/emacs-workroom
diff --git a/workroom.texi b/workroom.texi
index 7119152a84..3ca48e9854 100644
--- a/workroom.texi
+++ b/workroom.texi
@@ -4,8 +4,8 @@
 @setfilename workroom.info
 @set UPDATED 14 November 2022
 @set UPDATED-MONTH November 2022
-@set EDITION 2.2.4
-@set VERSION 2.2.4
+@set EDITION 2.2.5
+@set VERSION 2.2.5
 @documentencoding UTF-8
 @codequotebacktick on
 @codequoteundirected on



[nongnu] elpa/workroom b55441ff51 1/2: Fix saving workrooms in desktop file

2022-11-28 Thread ELPA Syncer
branch: elpa/workroom
commit b55441ff51a82b125b2fcfad650d3ff430b7dec6
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Fix saving workrooms in desktop file
---
 workroom.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/workroom.el b/workroom.el
index ce306d45c5..dbd1136110 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1768,7 +1768,9 @@ any previous bookmark with the same name."
  "
 ;; Workroom section:
 "
- (let ((fn-sym (intern (format "workroom--desktop-restore-%s"
+ (let ((print-level nil)
+   (print-length nil)
+   (fn-sym (intern (format "workroom--desktop-restore-%s"
(format-time-string "%s%N")
(prin1-to-string
 `(progn



[elpa] elpa-admin a7bed16eea: * elpa-admin.el (elpaa--report-failure): Tweak notifcation threshold

2022-11-28 Thread Stefan Monnier via
branch: elpa-admin
commit a7bed16eeab77b09c2478331e461fd9e5a02d47a
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-admin.el (elpaa--report-failure): Tweak notifcation threshold
---
 elpa-admin.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index b0e27d549d..e8a268b825 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -644,7 +644,10 @@ returns.  Return the selected revision."
 (write-region txt nil file nil 'silent)
 (when (and elpaa--email-to
(> (file-attribute-size (file-attributes file))
-  prev-size))
+  ;; Arbitrarily require a "2 chars increase" minimum
+  ;; so we don't resend a notification when the timestamp
+  ;; in the version got a bit longer.
+  (+ prev-size 2)))
   (let ((maintainers (elpaa--maintainers
   (or metadata
   (elpaa--metadata (elpaa--pkg-root pkg)



[elpa] externals/embark updated (fa5a59cf55 -> 09da327d43)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch externals/embark.

  from  fa5a59cf55 Merge pull request #558 from minad/distribute-embark-org
   new  577ac93718 Auto load Embark integration
   new  e0bb5b342d Minor cleanup
   new  81c924ca55 Merge pull request #561 from minad/autoload-embark
   new  891aa297aa Simplify some double negations
   new  f2bb7b7d1a Depend on Emacs 27.1 for org-table-move-cell-up
   new  09da327d43 Bump version number for release of embark-org


Summary of changes:
 embark-org.el | 13 +++--
 embark.el | 11 +++
 2 files changed, 14 insertions(+), 10 deletions(-)



[elpa] externals/embark-consult updated (fa5a59cf55 -> 09da327d43)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch externals/embark-consult.

  from  fa5a59cf55 Merge pull request #558 from minad/distribute-embark-org
  adds  577ac93718 Auto load Embark integration
  adds  e0bb5b342d Minor cleanup
  adds  81c924ca55 Merge pull request #561 from minad/autoload-embark
  adds  891aa297aa Simplify some double negations
  adds  f2bb7b7d1a Depend on Emacs 27.1 for org-table-move-cell-up
  adds  09da327d43 Bump version number for release of embark-org

No new revisions were added by this update.

Summary of changes:
 embark-org.el | 13 +++--
 embark.el | 11 +++
 2 files changed, 14 insertions(+), 10 deletions(-)



[elpa] externals/embark 81c924ca55 3/6: Merge pull request #561 from minad/autoload-embark

2022-11-28 Thread ELPA Syncer
branch: externals/embark
commit 81c924ca555ceeb9dd1fec221ff5aa5d2bca242d
Merge: fa5a59cf55 e0bb5b342d
Author: Omar Antolín Camarena 
Commit: GitHub 

Merge pull request #561 from minad/autoload-embark

Auto load Org integration
---
 embark-org.el | 9 +++--
 embark.el | 3 +++
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/embark-org.el b/embark-org.el
index 8c601dad5e..46ce7702a5 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -31,6 +31,7 @@
 
 (require 'embark)
 (require 'org)
+(require 'org-element)
 
 ;;; Basic target finder for Org
 
@@ -99,8 +100,6 @@
 )
   "Supported Org object and element types.")
 
-(declare-function org-element-property "org-element" (property element))
-
 (defun embark-org-target-element-context ()
   "Target the smallest Org element or object around point."
   (when-let (((derived-mode-p 'org-mode 'org-agenda-mode))
@@ -289,10 +288,8 @@ what part or in what format the link is copied."
 (embark-org-define-link-copier description description "'s description")
 (embark-org-define-link-copier target target "'s target")
 
-(declare-function embark-org-copy-link-inner-target "embark-org")
-(fset 'embark-org-copy-link-inner-target 'kill-new)
-(put 'embark-org-copy-link-inner-target 'function-documentation
-  "Copy 'inner part' of the Org link at point's target.
+(defalias 'embark-org-copy-link-inner-target #'kill-new
+  "Copy 'inner part' of the Org link at point's target.
 For mailto and elisp links, the inner part is the portion of the
 target after 'mailto:' or 'elisp:'.
 
diff --git a/embark.el b/embark.el
index 76af12670a..3d8619ea90 100644
--- a/embark.el
+++ b/embark.el
@@ -4299,4 +4299,7 @@ library, which have an obvious notion of associated 
directory."
   (unless (require 'embark-consult nil 'noerror)
 (warn "The package embark-consult should be installed if you use both 
Embark and Consult")))
 
+(with-eval-after-load 'org
+  (require 'embark-org))
+
 ;;; embark.el ends here



[elpa] externals/orderless 004cee6b8e: Bump version number (fix #116)

2022-11-28 Thread ELPA Syncer
branch: externals/orderless
commit 004cee6b8e01f8eb0cb1c683d0a637b14890600f
Author: Omar Antolín 
Commit: Omar Antolín 

Bump version number (fix #116)
---
 orderless.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/orderless.el b/orderless.el
index 47e3c9939d..02b2970c0e 100644
--- a/orderless.el
+++ b/orderless.el
@@ -5,7 +5,7 @@
 ;; Author: Omar Antolín Camarena 
 ;; Maintainer: Omar Antolín Camarena 
 ;; Keywords: extensions
-;; Version: 0.7
+;; Version: 0.8
 ;; Homepage: https://github.com/oantolin/orderless
 ;; Package-Requires: ((emacs "26.1"))
 



[elpa] externals/embark 577ac93718 1/6: Auto load Embark integration

2022-11-28 Thread ELPA Syncer
branch: externals/embark
commit 577ac93718d3021767038130dff5697310293675
Author: Daniel Mendler 
Commit: Daniel Mendler 

Auto load Embark integration
---
 embark.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/embark.el b/embark.el
index 76af12670a..3d8619ea90 100644
--- a/embark.el
+++ b/embark.el
@@ -4299,4 +4299,7 @@ library, which have an obvious notion of associated 
directory."
   (unless (require 'embark-consult nil 'noerror)
 (warn "The package embark-consult should be installed if you use both 
Embark and Consult")))
 
+(with-eval-after-load 'org
+  (require 'embark-org))
+
 ;;; embark.el ends here



[elpa] externals/embark e0bb5b342d 2/6: Minor cleanup

2022-11-28 Thread ELPA Syncer
branch: externals/embark
commit e0bb5b342dae18b6b2aaf7733588cceb6b48685a
Author: Daniel Mendler 
Commit: Daniel Mendler 

Minor cleanup

- org-element seems to be required by Org early on
- Use defalias
---
 embark-org.el | 9 +++--
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/embark-org.el b/embark-org.el
index 8c601dad5e..46ce7702a5 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -31,6 +31,7 @@
 
 (require 'embark)
 (require 'org)
+(require 'org-element)
 
 ;;; Basic target finder for Org
 
@@ -99,8 +100,6 @@
 )
   "Supported Org object and element types.")
 
-(declare-function org-element-property "org-element" (property element))
-
 (defun embark-org-target-element-context ()
   "Target the smallest Org element or object around point."
   (when-let (((derived-mode-p 'org-mode 'org-agenda-mode))
@@ -289,10 +288,8 @@ what part or in what format the link is copied."
 (embark-org-define-link-copier description description "'s description")
 (embark-org-define-link-copier target target "'s target")
 
-(declare-function embark-org-copy-link-inner-target "embark-org")
-(fset 'embark-org-copy-link-inner-target 'kill-new)
-(put 'embark-org-copy-link-inner-target 'function-documentation
-  "Copy 'inner part' of the Org link at point's target.
+(defalias 'embark-org-copy-link-inner-target #'kill-new
+  "Copy 'inner part' of the Org link at point's target.
 For mailto and elisp links, the inner part is the portion of the
 target after 'mailto:' or 'elisp:'.
 



[elpa] externals/embark 891aa297aa 4/6: Simplify some double negations

2022-11-28 Thread ELPA Syncer
branch: externals/embark
commit 891aa297aa74478dc69865fd26daaeaeb4872260
Author: Omar Antolín 
Commit: Omar Antolín 

Simplify some double negations
---
 embark.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index 3d8619ea90..8f5cdd29a2 100644
--- a/embark.el
+++ b/embark.el
@@ -2141,7 +2141,7 @@ Return a plist with keys `:type', `:orig-type', 
`:candidates', and
   candidates
 (append
  (list :orig-type type :orig-candidates candidates)
- (or (unless (null candidates)
+ (or (when candidates
(when-let ((transformer (alist-get type embark-transformer-alist)))
  (pcase-let* ((`(,new-type . ,first-cand)
(funcall transformer type (car candidates
@@ -2567,7 +2567,7 @@ all buffers."
;; distinguished from the "single marked file" case by
;; returning (list t marked-file) in the latter
(let ((marked (dired-get-marked-files t nil nil t)))
- (and (not (null (cdr marked)))
+ (and (cdr marked)
   (if (eq (car marked) t) (cdr marked) marked)))
(save-excursion
  (goto-char (point-min))
@@ -3818,7 +3818,7 @@ The advice is self-removing so it only affects ACTION 
once."
 
 (defun embark--allow-edit (&rest _)
   "Allow editing the target."
-  (remove-hook 'post-command-hook 'exit-minibuffer t)
+  (remove-hook 'post-command-hook #'exit-minibuffer t)
   (remove-hook 'post-command-hook 'ivy-immediate-done t))
 
 (defun embark--ignore-target (&rest _)



[elpa] externals/embark 09da327d43 6/6: Bump version number for release of embark-org

2022-11-28 Thread ELPA Syncer
branch: externals/embark
commit 09da327d43793f0b30114ee80d82ef587124462a
Author: Omar Antolín 
Commit: Omar Antolín 

Bump version number for release of embark-org
---
 embark.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 8f5cdd29a2..c723610855 100644
--- a/embark.el
+++ b/embark.el
@@ -5,7 +5,7 @@
 ;; Author: Omar Antolín Camarena 
 ;; Maintainer: Omar Antolín Camarena 
 ;; Keywords: convenience
-;; Version: 0.17
+;; Version: 0.18
 ;; Homepage: https://github.com/oantolin/embark
 ;; Package-Requires: ((emacs "26.1"))
 



[elpa] externals/embark f2bb7b7d1a 5/6: Depend on Emacs 27.1 for org-table-move-cell-up

2022-11-28 Thread ELPA Syncer
branch: externals/embark
commit f2bb7b7d1abdd968d70e3830a6c15a23e5bf90e4
Author: Omar Antolín 
Commit: Omar Antolín 

Depend on Emacs 27.1 for org-table-move-cell-up
---
 embark-org.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/embark-org.el b/embark-org.el
index 46ce7702a5..534851eccc 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -3,7 +3,11 @@
 ;; Copyright (C) 2022  Free Software Foundation, Inc.
 
 ;; Author: Omar Antolín Camarena 
+;; Maintainer: Omar Antolín Camarena 
 ;; Keywords: convenience
+;; Version: 0.1
+;; Homepage: https://github.com/oantolin/embark
+;; Package-Requires: ((emacs "27.1"))
 
 ;; 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



[elpa] externals/eev 2b7c767bd3: Small changes in the docs.

2022-11-28 Thread ELPA Syncer
branch: externals/eev
commit 2b7c767bd38d50af01d8cdddb24d012f6a0d3f41
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Small changes in the docs.
---
 ChangeLog|  3 +-
 VERSION  |  4 +--
 eev-intro.el | 95 +---
 eev-load.el  |  7 -
 4 files changed, 88 insertions(+), 21 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0934d32cf1..931f079e34 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 2022-11-28  Eduardo Ochs  
 
* eev-intro.el (find-eev-intro): rewrote the section about
-   keybinds.
+   keybindings.
+   (find-eev-install-intro): new section: "0. Loading eev".
 
 2022-11-27  Eduardo Ochs  
 
diff --git a/VERSION b/VERSION
index 19d1f040b9..98caed0a18 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Nov 28 20:51:22 GMT 2022
-Mon Nov 28 17:51:22 -03 2022
+Tue Nov 29 01:47:21 GMT 2022
+Mon Nov 28 22:47:21 -03 2022
diff --git a/eev-intro.el b/eev-intro.el
index 84030b5073..a1541797d4 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -321,13 +321,11 @@ those, visit this URL:
 Installing eev does NOT activate eev-mode. To activate eev-mode
 and open this tutorial, run `M-x eev-beginner'.
 
-For other ways to install eev see this other tutorial, especially
-its section 5.1:
+\"Installing\" eev doesn't \"load\" eev. The difference between
+installing and loading is explained here:
 
-  http://angg.twu.net/eev-intros/find-eev-install-intro.html#5.1
-  http://angg.twu.net/eev-intros/find-eev-install-intro.html
-  (find-eev-install-intro \"5.1. Using the tarball\")
-  (find-eev-install-intro)
+  (find-eev-install-intro \"0. Loading eev\")
+  (find-eev-install-intro \"0. Loading eev\" \"_load_ eev on startup\")
 
 TIP FOR BEGINNERS: if you are a real beginner with, say, less
 than 10 minutes of experience using Emacs, then you will probably
@@ -2128,11 +2126,69 @@ It is meant as both a tutorial and a sandbox.
 
 
 
-Note: this intro contains lots of very technical information!
-If you're a beginner you should skip this - but if you use
-Windows then this page may be relevant to you:
-  http://angg.twu.net/installing-eev-on-windows.html
+0. Loading eev
+==
+Now - late 2022 - versions of Emacs in which `M-x list-packages'
+works well are trivial to install in all OSs, including Windows,
+and this makes most of the other sections of this intro mostly
+irrelevant...
+
+If you have installed eev with a package manager - either
+`list-packages', that comes with Emacs and is explained here,
+
+  (find-enode \"Packages\")
+
+or alternative ones like use-package or straight.el, then the
+package manager will put the eev directory in your load-path, and
+it will declare `eev-beginner' as an autoload. This means that
+your Emacs will recognize `eev-beginner' as a command, and
+running `M-x eev-beginner' will load all modules of eev and enter
+the main tutorial. Autoloading and the load-path are explained
+here:
+
+  (find-enode \"Lisp Libraries\")
+
+_Installing_ eev with a package manager only does this:
+
+  a. this directory is put in the load-path:
+
+   (find-eevfile \"\")
 
+  b. the function `eev-beginner' is declared as an autoload.
+
+_Loading_ eev does a few things more. They are explained here:
+
+  (find-eev-intro \"1. `eev-mode'\")
+  (find-eev-intro \"1. `eev-mode'\" \"invasive\")
+  (find-eev \"eev-load.el\" \"autoloads\")
+  (find-eev \"eev-load.el\" \"load-the-main-modules\")
+
+If you want to make your Emacs _load_ eev on startup, then the
+best way to do that is to put either this
+
+  ;; See: (find-eev-install-intro \"0. Loading eev\")
+  (require 'eev-load)
+  (eev-mode 1)
+
+or this
+
+  ;; See: (find-eev-install-intro \"0. Loading eev\")
+  (require 'eev-load)
+  ;; (eev-mode 1)
+
+in your init file - see:
+
+  (find-enode \"Init File\")
+
+Use the version with \"(eev-mode 1)\" if you want to turn
+eev-mode on on startup, and the version with \";; (eev-mode 1)\"
+if you prefer to start with eev-mode off.
+
+TODO: rewrite the other sections of this intro!
+They are old and obsolete! =(
+
+
+ 
 
 
 
@@ -2545,6 +2601,7 @@ See:
 
   (find-eevgrep \"grep --color -nH -e no-byte-compile: *.el\")
   (find-elnode \"Byte Compilation\" \"no-byte-compile: t\")
+  (find-eev \"eev-intro.el\" \"11.1. Why eev avoids byte-compilation\")
 
 Here is why. Each call to a `code-*' function defines some
 functions dynamically - for example, `(code-c-d \"e\" ...)'
@@ -13778,19 +13835,21 @@ rewrite lots of things.
 
 This is my N-th attempt to rewrite this tutorial.
 
-Version of these instructions: 2022may03.
+Version of these instructions: 2022nov28.
 
 
 
 
 1. Download and install Emacs
 =
-Read the README below and then install Emacs using either the
-link to the .exe or the link to the .zip:
+You can install a recent version of Emacs for Windows with the
+\"installer.exe\" below:
 
-https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/
-https://alpha.gnu.org/gnu/emacs/

[elpa] externals/ef-themes dce4ddb641 2/2: Tweak the outline of ef-themes.el

2022-11-28 Thread ELPA Syncer
branch: externals/ef-themes
commit dce4ddb6413a0e1e57b3f99c7dc1a59e35eb9d5f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak the outline of ef-themes.el
---
 ef-themes.el | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 70acf9777f..6d5e8baabc 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1944,6 +1944,8 @@ Helper function for `ef-themes-preview-colors'."
 
 ;;; Theme macros
 
+ Instantiate an Ef theme
+
 ;;;###autoload
 (defmacro ef-themes-theme (name palette)
   "Bind NAME's color PALETTE around face specs and variables.
@@ -1966,7 +1968,7 @@ Those are stored in `ef-themes-faces' and
(custom-theme-set-faces ',name ,@ef-themes-faces)
(custom-theme-set-variables ',name ,@ef-themes-custom-variables
 
-;;; Use theme colors
+ Use theme colors
 
 (defmacro ef-themes-with-colors (&rest body)
   "Evaluate BODY with colors from current palette bound."
@@ -1990,6 +1992,8 @@ Those are stored in `ef-themes-faces' and
(ignore c ,@colors); Silence unused variable warnings
,@body)))
 
+ Add themes from package to path
+
 ;;;###autoload
 (when load-file-name
   (let ((dir (file-name-directory load-file-name)))



[elpa] externals/ef-themes updated (7d0ff05193 -> dce4ddb641)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch externals/ef-themes.

  from  7d0ff05193 ef-autumn: tweak red-faint hue
   new  8ecad70b24 Remove support for selectrum (deprecated in favour of 
Vertico)
   new  dce4ddb641 Tweak the outline of ef-themes.el


Summary of changes:
 README.org   |  1 -
 ef-themes.el | 12 +---
 2 files changed, 5 insertions(+), 8 deletions(-)



[elpa] externals/ef-themes 8ecad70b24 1/2: Remove support for selectrum (deprecated in favour of Vertico)

2022-11-28 Thread ELPA Syncer
branch: externals/ef-themes
commit 8ecad70b24404084bbf57d66abb9985df10b4825
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove support for selectrum (deprecated in favour of Vertico)
---
 README.org   | 1 -
 ef-themes.el | 6 --
 2 files changed, 7 deletions(-)

diff --git a/README.org b/README.org
index bb7a170b73..1ced6dbc7f 100644
--- a/README.org
+++ b/README.org
@@ -1057,7 +1057,6 @@ everything most users need.
 - recursion-indicator
 - regexp-builder (re-builder)
 - ruler-mode
-- selectrum
 - shell-script-mode (sh-mode)
 - show-paren-mode
 - shr
diff --git a/ef-themes.el b/ef-themes.el
index d833806dd5..70acf9777f 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1759,12 +1759,6 @@ Helper function for `ef-themes-preview-colors'."
 `(ruler-mode-margins ((,c :inherit ruler-mode-default :foreground 
,bg-main)))
 `(ruler-mode-pad ((,c :inherit ruler-mode-default :background ,bg-alt 
:foreground ,fg-dim)))
 `(ruler-mode-tab-stop ((,c :inherit ruler-mode-default :foreground 
,yellow)))
- selectrum
-`(selectrum-completion-annotation ((,c :inherit completions-annotations)))
-`(selectrum-completion-docsig ((,c :inherit completions-annotations)))
-`(selectrum-current-candidate ((,c :background ,bg-completion)))
-`(selectrum-group-title ((,c :inherit bold :foreground ,name)))
-`(selectrum-mouse-highlight ((,c :inherit highlight)))
  show-paren-mode
 `(show-paren-match ((,c :background ,bg-paren :foreground ,fg-intense)))
 `(show-paren-match-expression ((,c :background ,bg-alt)))



[elpa] externals/org updated (9276219103 -> b3da427ebb)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch externals/org.

  from  9276219103 org-export--get-subtree-options: Do not jump to parent 
subtree
   new  b3da427ebb Update version numbers for the 9.6 release


Summary of changes:
 etc/ORG-NEWS | 3 ++-
 lisp/org.el  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)



[elpa] externals-release/org updated (225d58341b -> b3da427ebb)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch externals-release/org.

  from  225d58341b doc/org-manual.org: Fix keybinding
  adds  55cf527375 org: Image display, account for line number width
  adds  10139c86bc org.el (org-create-formula-image): Fix ignored 
background color
  adds  35928a6d09 lisp/org.el: Update the Version header to 9.6-dev
  adds  5f46dbc70c etc/ORG-NEWS: Add "Version 9.6 (not yet released)"
  adds  59cb39f53d Merge branch 'bugfix'
  adds  2cdd930a7b Merge branch 'bugfix'
  adds  6c8f8f6225 Merge branch 'bugfix'
  adds  d97223b244 Merge branch 'bugfix'
  adds  ddee7b617c ob-gnuplot: Honour :missing argument
  adds  60365a1641 orgtbl-to-generic: Mention that :fmt is ignored for 
empty cells
  adds  9e71dfd921 Merge branch 'bugfix'
  adds  aa6f8ed877 org-src.el: Fix checkdoc warnings
  adds  20630fcdcb Merge branch 'bugfix'
  adds  ffdf727842 manfull.pl: Adjust pattern for current makeinfo
  adds  47e0cddbe3 manfull.pl: Avoid silent failures
  adds  fac96da572 org-attach.el: Fix checkdoc warnings
  adds  749368f4f0 org-manual.el: Restore `load-path' for git version
  adds  50e6ccff3a org-manual.org: Mention org-contrib NonGNU ELPA package
  adds  aaa184f766 org-manual.org: Another way to run version from git
  adds  a46cf533fa Revert "org-manual.org: Another way to run version from 
git"
  adds  06578d7450 Merge branch 'bugfix'
  adds  0e6b04c856 Merge branch 'bugfix'
  adds  8b78d482a6 Fix email addresses in some *.el headers
  adds  6cb9d2ffea Merge branch 'bugfix'
  adds  1acacd6049 Merge branch 'bugfix'
  adds  0ae701f7fd Merge branch 'bugfix'
  adds  2893eb1ae2 org.el: Drop subtract-time -> time-subtract alias
  adds  cc2490a706 Prune Emacs 25.1 compatibility kludges
  adds  67b613a115 etc/ORG-NEWS: New `transparent-image-converter` property 
for `dvipng`
  adds  9b063251cf oc: Allow citations at footnote definition start
  adds  1b56c2842d Merge branch 'bugfix'
  adds  af67fa1ebe Merge branch 'bugfix'
  adds  c0c576b445 Merge branch 'bugfix'
  adds  d542ef7ed6 Merge branch 'bugfix'
  adds  d361c77285 Merge branch 'bugfix'
  adds  f268e7201f Merge branch 'bugfix'
  adds  93f7bf9b14 oc-biblatex: Remove unnecessary declare-function.
  adds  107c832642 Implement `bibtex' citation processor
  adds  002a07b391 org-manual: Typography fixes
  adds  08e9d34907 Merge branch 'bugfix'
  adds  6717826d5a oc-bibtex: Pacify byte-compiler
  adds  dc154f0d18 Merge branch 'bugfix'
  adds  f0c66dc4c4 Merge branch 'bugfix'
  adds  f5faffb142 Merge branch 'bugfix'
  adds  d872506ad3 Merge branch 'bugfix'
  adds  2fad7be9e7 oc-biblatex: Support bare variant for noauthor style
  adds  ee6e4892a1 Merge branch 'bugfix'
  adds  880d4fada6 Merge branch 'bugfix'
  adds  b5713f4f1b Merge branch 'bugfix'
  adds  d0b55739c0 org: Fix: Respect TAB in property drawer as separator
  adds  2b1fc6ba72 Merge branch 'bugfix'
  adds  8799422a32 Merge branch 'bugfix'
  adds  6933c1ad78 lisp/org-persist.el: New library to store data across 
sessions
  adds  fc80d052db Re-implement org-element-cache and add headline support
  adds  bc52c4d9ab Fix compatibility for older Emacs versions
  adds  68a44eadac org.el/org-narrow-to-subtree: Support cache and passing 
element arg
  adds  7159ec0be0 org.el/org-at-planning-p: Add cache support
  adds  38b632d2ea org.el/org--get-local-tags: Add cache support
  adds  78abbcd052 org.el/org-get-tags: Support cache and passing element 
arg
  adds  7b83168295 org.el/org--property-local-values: Support cache and 
passing element arg
  adds  5bf5fdbc28 org.el/org-entry-get-with-inheritance: Support cache and 
passing element arg
  adds  5d162b7bcf org.el/org-back-to-heading: Handle inlinetasks correctly
  adds  d43781707b org.el/org-goto-first-child: Support cache and passing 
element arg
  adds  ec737554d0 org.el/org-end-of-subtree: Support cache and passing 
element arg
  adds  399a29c4f4 org.el/org-up-heading-safe: Add cache support
  adds  86345df9ab org.el/org-in-commented-heading-p: Support cache and 
passing element arg
  adds  fede2588e4 org.el/org-in-archived-heading-p: Support cache and 
passing element arg
  adds  fe6cefdaaf ox.el: Support cache during export
  adds  60c927f8b8 Add new element parser and cache tests
  adds  e70a8aac59 Use org-element-cache in place of text property cache in 
agenda
  adds  5aeeb4f739 Use `org-element-at-point-no-context' in 
performance-critical places
  adds  85e0a69567 Avoid frequent cache updates in some functions
  adds  3c4290e668 org.el/org-scan-tags: Make use of fast 
`org-element-cache-map'
  adds  885808fd58 Fix incorrectly written test
  adds  abe7222ed8 Add declares to suppress compiler warnings
  adds  07ca988bb4 Fix compatibility with Emacs 27

[elpa] externals-release/org b3da427ebb: Update version numbers for the 9.6 release

2022-11-28 Thread ELPA Syncer
branch: externals-release/org
commit b3da427ebb1c401355aa4cba9baeaa92f87ccb2f
Author: Bastien 
Commit: Bastien 

Update version numbers for the 9.6 release
---
 etc/ORG-NEWS | 3 ++-
 lisp/org.el  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index c18e7392a1..db0ea244ac 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -11,7 +11,8 @@ See the end of the file for license conditions.
 
 Please send Org bug reports to mailto:emacs-orgm...@gnu.org.
 
-* Version 9.6 (not yet released)
+* Version 9.7 (not released yet)
+* Version 9.6
 
 ** Important announcements and breaking changes
 *** =python-mode.el (MELPA)= support in =ob-python.el= is deprecated
diff --git a/lisp/org.el b/lisp/org.el
index 472e87b9bd..a05a282293 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9,7 +9,7 @@
 ;; URL: https://orgmode.org
 ;; Package-Requires: ((emacs "25.1"))
 
-;; Version: 9.6-pre
+;; Version: 9.6
 
 ;; This file is part of GNU Emacs.
 ;;



[nongnu] elpa/pdf-tools updated (d6980bc327 -> 1885cefc24)

2022-11-28 Thread ELPA Syncer
elpasync pushed a change to branch elpa/pdf-tools.

  from  d6980bc327 Enable testing against MacOS in CI/CD!
   new  37b4c4fcec Add a byteclean target in the Makefile
   new  710fe66dc4 Explicitly declare documentation files as Org files
   new  365d2d8e8e Remove guards in `pdf-virtual` tests and code.
   new  5563ac9114 Remove bugfix for imenu in Emacs 24.3 and below
   new  ce5ed3412d Remove macro / function re-definitions
   new  3af6141926 Remove pdf-util-window-pixel-width, fallback to 
window-body-width
   new  05c42596a2 Remove compatibility function for image-mode-winprops
   new  321e19ed59 Remove Emacs 24.4 guards for cua-mode
   new  1f91ba8894 Render crisp images for HiDPI screens by default
   new  19801defb8 Add support for Alpine Linux to autobuild
   new  bc7c159c48 Make sure pkg-config is correctly set in autobuild
   new  e10d9cedad Update and cleanup the Install section
   new  7a51b38310 Extend docker testing framework to test against Emacs 
versions
   new  96703b2bb5 Bump the minimum Emacs version to 26.3! 🎉🤞
   new  997467ad3b autobuild: Recognize NetBSD and install packages via 
pkgin
   new  1885cefc24 Merge branch 'feature/emacs-26.3'


Summary of changes:
 .circleci/config.yml   |   2 +-
 Cask   |   2 -
 Makefile   |   8 +-
 NEWS   |  20 +-
 README.org | 403 -
 TODO   |  26 --
 TODO.org   |  21 ++
 lisp/pdf-cache.el  |   6 +-
 lisp/pdf-info.el   |   4 +-
 lisp/pdf-outline.el|  17 -
 lisp/pdf-tools.el  |   4 +-
 lisp/pdf-util.el   | 112 +-
 lisp/pdf-view.el   |  37 +-
 lisp/pdf-virtual.el|   6 -
 server/autobuild   |  42 ++-
 server/test/.gitignore |   1 +
 server/test/Makefile   |   6 +-
 server/test/docker/lib/run-tests   |  21 +-
 server/test/docker/templates/Dockerfile.common.in  |   6 +-
 ...bian-9.Dockerfile.in => emacs-26.Dockerfile.in} |   3 +-
 ...bian-9.Dockerfile.in => emacs-27.Dockerfile.in} |   3 +-
 ...bian-9.Dockerfile.in => emacs-28.Dockerfile.in} |   3 +-
 ...bian-9.Dockerfile.in => emacs-29.Dockerfile.in} |   3 +-
 test/pdf-virtual-test.el   | 199 +-
 24 files changed, 402 insertions(+), 553 deletions(-)
 delete mode 100644 TODO
 create mode 100644 TODO.org
 create mode 100644 server/test/.gitignore
 copy server/test/docker/templates/{debian-9.Dockerfile.in => 
emacs-26.Dockerfile.in} (82%)
 copy server/test/docker/templates/{debian-9.Dockerfile.in => 
emacs-27.Dockerfile.in} (82%)
 copy server/test/docker/templates/{debian-9.Dockerfile.in => 
emacs-28.Dockerfile.in} (82%)
 copy server/test/docker/templates/{debian-9.Dockerfile.in => 
emacs-29.Dockerfile.in} (82%)



[nongnu] elpa/pdf-tools 37b4c4fcec 01/16: Add a byteclean target in the Makefile

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 37b4c4fcecf2dfe9c7f960864fde1a82bb2ea2c6
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Add a byteclean target in the Makefile

Similar to the `bytecompile` target, this is for helping with testing.
---
 Makefile | 8 ++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index f776884c74..e2bdc29cad 100644
--- a/Makefile
+++ b/Makefile
@@ -27,6 +27,11 @@ $(pkgfile): .cask/$(emacs_version) server/epdfinfo lisp/*.el
 bytecompile: .cask/$(emacs_version)
$(CASK) exec $(emacs) --batch -L lisp -f batch-byte-compile lisp/*.el
 
+# Clean bytecompiled sources
+byteclean:
+   rm -f -- lisp/*.elc
+   rm -f -- lisp/*.eln
+
 # Run ERT tests
 test: all
PACKAGE_TAR=$(pkgfile) $(CASK) exec ert-runner
@@ -68,9 +73,8 @@ melpa-package: $(pkgfile)
-f $(pkgname)-melpa.tar
 
 # Various clean targets
-clean: server-clean
+clean: server-clean byteclean
rm -f -- $(pkgfile)
-   rm -f -- lisp/*.elc
rm -f -- pdf-tools-readme.txt
rm -f -- pdf-tools-$(version).entry
 



[nongnu] elpa/pdf-tools 710fe66dc4 02/16: Explicitly declare documentation files as Org files

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 710fe66dc48c9fb1f4a411a5636c5dee7dc34943
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Explicitly declare documentation files as Org files

Renames: NEWS, TODO and README files.
README was a symlink to README.org, removes the symlink in favor of
simply keeping the Org file.
---
 TODO | 26 --
 TODO.org | 21 +
 2 files changed, 21 insertions(+), 26 deletions(-)

diff --git a/TODO b/TODO
deleted file mode 100644
index 68f1e0b518..00
--- a/TODO
+++ /dev/null
@@ -1,26 +0,0 @@
--*- org -*-
-
-* pdf-isearch
-** Allow for entering multi-byte characters with some input-methods.
-   The PDF buffer is in uni-byte mode prohibiting the user from
-   inserting multi-byte characters in the minibuffer with some
-   input-methods, while editing the search string.
-* PDF Forms
-  Recent poppler versions have some support for editing forms.
-* pdf-annot
-** Updating the list buffer is too slow
-   + Update it incrementally.
-   + Possibly skip the update if the buffer is not visible.
-** Make highlighting customizable
-* epdfinfo
-** Maybe split the code up in several files.
-* pdf-view
-** Provide some kind of multi-page view
-** Make persistent scrolling relative
-   Currently the scrolling is kept when changing the image's size (in
-   pdf-view-display-image), which is actually not so desirable, since
-   it is absolute.  This results e.g. in the image popping out of the
-   window, when it is shrunken.
-* pdf-info
-** Add a report/debug command, displaying a list of open files and other 
information.
-** Use alists for results instead of positional lists.
diff --git a/TODO.org b/TODO.org
new file mode 100644
index 00..71384eb4eb
--- /dev/null
+++ b/TODO.org
@@ -0,0 +1,21 @@
+#+TITLE: A list of important / desirable tasks
+
+* pdf-isearch
+** Allow for entering multi-byte characters with some input-methods.
+The PDF buffer is in uni-byte mode. It prohibits the user from inserting 
multi-byte characters in the minibuffer with some input-methods, while editing 
the search string.
+* pdf-forms
+Recent poppler versions have some support for editing forms.
+* pdf-annot
+** Updating the list buffer is too slow
++ Update it incrementally.
++ Possibly skip the update if the buffer is not visible.
+** Make highlighting customizable
+* epdfinfo
+** Maybe split the code up in several files.
+* pdf-view
+** Provide some kind of multi-page view
+** Make persistent scrolling relative
+Currently the scrolling is kept when changing the image's size (in 
pdf-view-display-image), which is actually not so desirable, since it is 
absolute. This results e.g. in the image popping out of the window, when it is 
shrunken.
+* pdf-info
+** Add a report/debug command, displaying a list of open files and other 
information.
+** Use alists for results instead of positional lists.



[nongnu] elpa/pdf-tools ce5ed3412d 05/16: Remove macro / function re-definitions

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit ce5ed3412d016641e1bfce72a1304fd2c303fc1d
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Remove macro / function re-definitions

Rely on the functions that come built into Emacs.

Relates to: #26
---
 lisp/pdf-util.el | 31 ---
 1 file changed, 31 deletions(-)

diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el
index cfc77d3954..ebf7ccfba5 100644
--- a/lisp/pdf-util.el
+++ b/lisp/pdf-util.el
@@ -43,37 +43,6 @@
 ;; * Compatibility with older Emacssen (< 25.1)
 ;; * == *
 
-;; The with-file-modes macro is only available in recent Emacs
-;; versions.
-(eval-when-compile
-  (unless (fboundp 'with-file-modes)
-(defmacro with-file-modes (modes &rest body)
-  "Execute BODY with default file permissions temporarily set to MODES.
-MODES is as for `set-default-file-modes'."
-  (declare (indent 1) (debug t))
-  (let ((umask (make-symbol "umask")))
-`(let ((,umask (default-file-modes)))
-   (unwind-protect
-   (progn
- (set-default-file-modes ,modes)
- ,@body)
- (set-default-file-modes ,umask)))
-
-(unless (fboundp 'alist-get) ;;25.1
-  (defun alist-get (key alist &optional default remove)
-"Get the value associated to KEY in ALIST.
-DEFAULT is the value to return if KEY is not found in ALIST.
-REMOVE, if non-nil, means that when setting this element, we should
-remove the entry if the new value is `eql' to DEFAULT."
-(ignore remove) ;;Silence byte-compiler.
-(let ((x (assq key alist)))
-  (if x (cdr x) default
-
-(require 'register)
-(unless (fboundp 'register-read-with-preview)
-  (defalias 'register-read-with-preview #'read-char
-"Compatibility alias for pdf-tools."))
-
 ;; In Emacs 24.3 window-width does not have a PIXELWISE argument.
 (defmacro pdf-util-window-pixel-width (&optional window)
   "Return the width of WINDOW in pixel."



[nongnu] elpa/pdf-tools 321e19ed59 08/16: Remove Emacs 24.4 guards for cua-mode

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 321e19ed597483ec4b5bebc2de160ba3803f1a8b
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Remove Emacs 24.4 guards for cua-mode

Relates to: #26
---
 lisp/pdf-info.el |  4 +++-
 lisp/pdf-view.el | 27 +--
 2 files changed, 12 insertions(+), 19 deletions(-)

diff --git a/lisp/pdf-info.el b/lisp/pdf-info.el
index 408dd3f54f..40dfc3d17f 100644
--- a/lisp/pdf-info.el
+++ b/lisp/pdf-info.el
@@ -305,7 +305,9 @@ error."
   (setq pdf-info--queue (tq-create proc
   pdf-info--queue)
 
-(when (< emacs-major-version 27) (advice-add 'tq-process-buffer :around 
#'pdf-info--tq-workaround))
+(when (< emacs-major-version 27)
+  (advice-add 'tq-process-buffer :around #'pdf-info--tq-workaround))
+
 (defun pdf-info--tq-workaround (orig-fun tq &rest args)
   "Fix a bug in trunk where the wrong callback gets called.
 
diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el
index 21824ad804..981aa1be3a 100644
--- a/lisp/pdf-view.el
+++ b/lisp/pdf-view.el
@@ -374,14 +374,6 @@ PNG images in Emacs buffers."
   ;; Enable transient-mark-mode, so region deactivation when quitting
   ;; will work.
   (setq-local transient-mark-mode t)
-  ;; In Emacs >= 24.4, `cua-copy-region' should have been advised when
-  ;; loading pdf-view.el so as to make it work with
-  ;; pdf-view-mode. Disable cua-mode if that is not the case.
-  ;; FIXME: cua-mode is a global minor-mode, but setting cua-mode to
-  ;; nil seems to do the trick.
-  (when (and (bound-and-true-p cua-mode)
- (version< emacs-version "24.4"))
-(setq-local cua-mode nil))
 
   (add-hook 'window-configuration-change-hook
 'pdf-view-redisplay-some-windows nil t)
@@ -403,16 +395,15 @@ PNG images in Emacs buffers."
 (pdf-view-check-incompatible-modes buffer)))
  (current-buffer)))
 
-(unless (version< emacs-version "24.4")
-  (advice-add 'cua-copy-region
- :before-until
- #'cua-copy-region--pdf-view-advice)
-  (defun cua-copy-region--pdf-view-advice (&rest _)
-"If the current buffer is in `pdf-view' mode, call
-`pdf-view-kill-ring-save'."
-(when (eq major-mode 'pdf-view-mode)
-  (pdf-view-kill-ring-save)
-  t)))
+(advice-add 'cua-copy-region
+   :before-until
+   #'cua-copy-region--pdf-view-advice)
+
+(defun cua-copy-region--pdf-view-advice (&rest _)
+  "If the current buffer is in `pdf-view' mode, call 
`pdf-view-kill-ring-save'."
+  (when (eq major-mode 'pdf-view-mode)
+(pdf-view-kill-ring-save)
+t))
 
 (defun pdf-view-check-incompatible-modes (&optional buffer)
   "Check BUFFER for incompatible modes, maybe issue a warning."



[nongnu] elpa/pdf-tools bc7c159c48 11/16: Make sure pkg-config is correctly set in autobuild

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit bc7c159c483da6047630d445cb6e1ae45384f9a0
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Make sure pkg-config is correctly set in autobuild

Also, simplify the config script for finding gnu-sed.

Relates to: #160
---
 .circleci/config.yml | 2 +-
 server/autobuild | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 636546de88..a8005ee94e 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -95,7 +95,7 @@ jobs:
   - run:
   name: Add Cask and Gnu-SED to the Path
   command: |
-echo 'export PATH="$HOME"/.cask/bin:"$(brew 
--prefix)"/opt/gnu-sed/libexec/gnubin:"$PATH"' >> "$BASH_ENV"
+echo 'export PATH="$HOME"/.cask/bin:"$(brew --prefix 
gnu-sed)"/libexec/gnubin:"$PATH"' >> "$BASH_ENV"
   - install-pdf-tools-server
 
 workflows:
diff --git a/server/autobuild b/server/autobuild
index de42806fcc..4b33bfdb67 100755
--- a/server/autobuild
+++ b/server/autobuild
@@ -353,7 +353,7 @@ os_macos() {
 PKG_INSTALL_AS_ROOT=
 # brew installs libffi as keg-only, meaning we need to set
 # PKG_CONFIG_PATH manually so configure can find it
-export PKG_CONFIG_PATH="${PKG_CONFIG_PATH}:$(brew --prefix 
libffi)/lib/pkgconfig/"
+export PKG_CONFIG_PATH="${PKG_CONFIG_PATH}:$(brew --prefix 
libffi)/lib/pkgconfig/:$(brew --prefix zlib)/lib/pkgconfig/"
 elif which port >/dev/null 2>&1; then
 PKGCMD=port
 PKGARGS=install



[nongnu] elpa/pdf-tools 1f91ba8894 09/16: Render crisp images for HiDPI screens by default

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 1f91ba8894e3820faa82e5cc95a0de163c461cb0
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Render crisp images for HiDPI screens by default

Copying from the README:

> `pdf-tools` version `1.1.0` release changed the default value of
> `pdf-view-use-scaling` to `t` (previously, it was `nil`). This has
> been done keeping in mind that most modern monitors are HiDPI
> screens, so the default configuration should cater to this user. If
> you are not using a HiDPI screen, you might have to change this
> value to `nil` in your configuration.

Closes: #133
---
 NEWS  | 20 ++--
 README.org|  8 
 lisp/pdf-cache.el |  6 +++---
 lisp/pdf-util.el  | 24 
 lisp/pdf-view.el  |  8 
 5 files changed, 45 insertions(+), 21 deletions(-)

diff --git a/NEWS b/NEWS
index 00d2d5c06d..1ff8c77045 100644
--- a/NEWS
+++ b/NEWS
@@ -2,8 +2,24 @@
 
 * Version 1.0.0 (Under Development)
 From this version onward, we will follow Semantic Versioning for new 
~pdf-tools~ releases.
-** Raise the minimum supported version of Emacs to 26.1
-Drop support for Emacs 24 and 25. This allows for some code cleanup.
+
+** Breaking changes:
+*** Raise the minimum supported version of Emacs to 26.3 #26
+Drop support for Emacs 24 and 25. This allows for some code cleanup. *This is 
a major breaking change*.
+*** Change the default value of pdf-view-use-scaling #133
+~pdf-view-use-scaling~ is now true by default, leading to rendering of crisp 
images on high-resolution screens. This should not cause problems on 
low-resolution screen (other than taking up more cache space / increasing 
rendering time), but if it does, please ~(setq pdf-view-use-scaling nil)~ in 
your configuration.
+
+** Improve overall user experience
+- Set ~pdf-annot-list-highlight-type~ to true by default.
+  + Show annotation color when listing them by default, allow the user to turn 
them off if need be.
+
+** Make changes required by newer versions of Emacs
+- Emacs 29 introduces ~pixel-scroll-precision-mode~, which interferes with 
~pdf-view~ scrolling. This is fixed in #124
+
+** Functionality fixes and improvements
+- Fix ~revert-buffer~ to correctly work over Tramp #128
+- Fix sorting by date in ~pdf-annot-list-mode~ #75
+
 * Version 0.91
 ** Change the keybindings for traversing history
 This is a minor but *breaking change*. ~l~ (backward) and ~r~ (forward) are 
the conventional bindings for history navigation in Emacs, but ~pdf-tools~ uses 
~B~ and ~N~. The previous keybindings are kept as-is for people who were used 
to it, while introducing ~l~ and ~r~ keybindings as well.
diff --git a/README.org b/README.org
index 67d443cb1e..57409fbe6e 100644
--- a/README.org
+++ b/README.org
@@ -521,7 +521,7 @@ L/R scrolling breaks while zoomed into a pdf, with usage of 
sublimity smooth scr
 :ID:   C3A4A7C0-6BBB-4923-AD39-3707C8482A76
 :END:
 
-In such PDFs the selected text becomes hidden behind the selection; see 
[[https://github.com/vedang/pdf-tools/issues/149][this issue]], which also 
describes the workaround in detail. The following function, which depends on 
the [[https://github.com/orgtre/qpdf.el][qpdf.el]] package, can be used to 
convert such a PDF file into one where text selection is transparent: 
+In such PDFs the selected text becomes hidden behind the selection; see 
[[https://github.com/vedang/pdf-tools/issues/149][this issue]], which also 
describes the workaround in detail. The following function, which depends on 
the [[https://github.com/orgtre/qpdf.el][qpdf.el]] package, can be used to 
convert such a PDF file into one where text selection is transparent:
 #+begin_src elisp
   (defun my-fix-pdf-selection ()
 "Replace pdf with one where selection shows transparently."
@@ -605,15 +605,15 @@ To see the list of operating systems where compilation 
testing is supported, run
 :CREATED:  [2021-12-30 Thu 22:04]
 :ID:   3be6abe7-163e-4c3e-a7df-28e8470fe37f
 :END:
-** I'm on a Macbook and PDFs are rendering blurry
+** PDFs are not rendering well!
 :PROPERTIES:
 :CREATED:  [2021-12-30 Thu 22:04]
 :ID:   20ef86be-7c92-4cda-97ec-70a22484e689
 :END:
-If you are on a Macbook with a Retina display, you may see PDFs as blurry due 
to the high resolution display. Use:
+~pdf-tools~ version ~1.1.0~ release changed the default value of 
~pdf-view-use-scaling~ to ~t~ (previously, it was ~nil~). This has been done 
keeping in mind that most modern monitors are HiDPI screens, so the default 
configuration should cater to this user. If you are not using a HiDPI screen, 
you might have to change this value to ~nil~ in your configuration
 
 #+begin_src elisp
-  (setq pdf-view-use-scaling t)
+  (setq pdf-view-use-scaling nil)
 #+end_src
 
 to scale the images correctly when rendering them.
diff --git a/lisp/pdf-cache.el b/lisp/pdf-cache.el
index 31073ff3d9..650ff36acc 100644
--- a/lisp/pdf-cache.el
+++ b/lisp/pdf-cache.e

[nongnu] elpa/pdf-tools 997467ad3b 15/16: autobuild: Recognize NetBSD and install packages via pkgin

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 997467ad3bcd23de22624c538d14863479b27cba
Author: Sunil Nimmagadda 
Commit: Vedang Manerikar 

autobuild: Recognize NetBSD and install packages via pkgin

Closes: #170
---
 README.org   |  1 +
 server/autobuild | 13 +
 2 files changed, 14 insertions(+)

diff --git a/README.org b/README.org
index 103dd6c92a..09ed930718 100644
--- a/README.org
+++ b/README.org
@@ -112,6 +112,7 @@ The following Operating Systems / package managers are 
supported. *Note*: The pa
 - Apline Linux: ~apk~
 - FreeBSD: ~pkg~
 - OpenBSD: ~pkg_add~
+- NetBSD: ~pkgin~
 - Arch Linux: ~pacman~
 - Gentoo: ~emerge~
 - CentOS: ~yum~
diff --git a/server/autobuild b/server/autobuild
index 4b33bfdb67..517a30c48a 100755
--- a/server/autobuild
+++ b/server/autobuild
@@ -239,6 +239,17 @@ os_freebsd() {
 return 0
 }
 
+# NetBSD
+os_netbsd() {
+if ! which uname >/dev/null 2>&1 || [ "$(uname -s)" != "NetBSD" ]; then
+return 1
+fi
+PKGCMD=pkgin
+PKGARGS=install
+PACKAGES="autoconf automake poppler-glib png pkgconf"
+return 0
+}
+
 # OpenBSD
 os_openbsd() {
 if ! which uname >/dev/null 2>&1 || [ "$(uname -s)" != "OpenBSD" ]; then
@@ -485,6 +496,7 @@ os_argument() {
 freebsd) os_freebsd "$@";;
 arch)os_arch"$@";;
 centos)  os_centos  "$@";;
+netbsd)  os_netbsd  "$@";;
 openbsd) os_openbsd "$@";;
 fedora)  os_fedora  "$@";;
 debian)  os_debian  "$@";;
@@ -514,6 +526,7 @@ os_macos"$@" || \
 os_freebsd  "$@" || \
 os_arch "$@" || \
 os_centos   "$@" || \
+os_netbsd   "$@" || \
 os_openbsd  "$@" || \
 os_fedora   "$@" || \
 os_debian   "$@" || \



[nongnu] elpa/pdf-tools 05c42596a2 07/16: Remove compatibility function for image-mode-winprops

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 05c42596a21fc668eac3b8df4cf6ae2d93bf097c
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Remove compatibility function for image-mode-winprops

Relates to: #26
---
 lisp/pdf-util.el | 47 ---
 1 file changed, 47 deletions(-)

diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el
index cbfff98f30..e17800ceec 100644
--- a/lisp/pdf-util.el
+++ b/lisp/pdf-util.el
@@ -39,53 +39,6 @@
 
 
 
-;; * == *
-;; * Compatibility with older Emacssen (< 25.1)
-;; * == *
-
-;; In Emacs 24.3 image-mode-winprops leads to infinite recursion.
-(unless (or (> emacs-major-version 24)
-(and (= emacs-major-version 24)
- (>= emacs-minor-version 4)))
-  (require 'image-mode)
-  (defvar image-mode-winprops-original-function
-(symbol-function 'image-mode-winprops))
-  (defvar image-mode-winprops-alist)
-  (eval-after-load "image-mode"
-'(defun image-mode-winprops (&optional window cleanup)
-   (if (not (eq major-mode 'pdf-view-mode))
-   (funcall image-mode-winprops-original-function
-window cleanup)
- (cond ((null window)
-(setq window
-  (if (eq (current-buffer) (window-buffer)) 
(selected-window) t)))
-   ((eq window t))
-   ((not (windowp window))
-(error "Not a window: %s" window)))
- (when cleanup
-   (setq image-mode-winprops-alist
- (delq nil (mapcar (lambda (winprop)
- (let ((w (car-safe winprop)))
-   (if (or (not (windowp w)) 
(window-live-p w))
-   winprop)))
-   image-mode-winprops-alist
- (let ((winprops (assq window image-mode-winprops-alist)))
-   ;; For new windows, set defaults from the latest.
-   (if winprops
-   ;; Move window to front.
-   (setq image-mode-winprops-alist
- (cons winprops (delq winprops image-mode-winprops-alist)))
- (setq winprops (cons window
-  (copy-alist (cdar 
image-mode-winprops-alist
- ;; Add winprops before running the hook, to avoid inf-loops if 
the hook
- ;; triggers window-configuration-change-hook.
- (setq image-mode-winprops-alist
-   (cons winprops image-mode-winprops-alist))
- (run-hook-with-args 'image-mode-new-window-functions winprops))
-   winprops)
-
-
-
 ;; * == *
 ;; * Transforming coordinates
 ;; * == *



[nongnu] elpa/pdf-tools 5563ac9114 04/16: Remove bugfix for imenu in Emacs 24.3 and below

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 5563ac911466ee8948b76241d22c5c0e384b9ab4
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Remove bugfix for imenu in Emacs 24.3 and below

This is no longer necessary, since we are dropping support for Emacs
24.3

Relates to: #26
---
 lisp/pdf-outline.el | 17 -
 1 file changed, 17 deletions(-)

diff --git a/lisp/pdf-outline.el b/lisp/pdf-outline.el
index a9212b745d..fc75b02794 100644
--- a/lisp/pdf-outline.el
+++ b/lisp/pdf-outline.el
@@ -572,23 +572,6 @@ not call `imenu-sort-function'."
 (cons title
   (nconc (nreverse keep-at-top) menulist
 
-;; bugfix for imenu in Emacs 24.3 and below.
-(when (condition-case nil
-  (progn (imenu--truncate-items '(("" 0))) nil)
-(error t))
-  (eval-after-load "imenu"
-'(defun imenu--truncate-items (menulist)
-   "Truncate all strings in MENULIST to `imenu-max-item-length'."
-   (mapc (lambda (item)
-   ;; Truncate if necessary.
-   (when (and (numberp imenu-max-item-length)
-  (> (length (car item)) imenu-max-item-length))
- (setcar item (substring (car item) 0 imenu-max-item-length)))
-   (when (imenu--subalist-p item)
- (imenu--truncate-items (cdr item
- menulist
-
-
 
 (provide 'pdf-outline)
 



[nongnu] elpa/pdf-tools 3af6141926 06/16: Remove pdf-util-window-pixel-width, fallback to window-body-width

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 3af61419267d8abc63d86ce7260d0b1e0710a222
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Remove pdf-util-window-pixel-width, fallback to window-body-width

`window-body-width` is available for us to use in Emacs 26.3

Relates to: #26
---
 lisp/pdf-util.el | 10 --
 lisp/pdf-view.el |  2 +-
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el
index ebf7ccfba5..cbfff98f30 100644
--- a/lisp/pdf-util.el
+++ b/lisp/pdf-util.el
@@ -43,16 +43,6 @@
 ;; * Compatibility with older Emacssen (< 25.1)
 ;; * == *
 
-;; In Emacs 24.3 window-width does not have a PIXELWISE argument.
-(defmacro pdf-util-window-pixel-width (&optional window)
-  "Return the width of WINDOW in pixel."
-  (if (< (cdr (subr-arity (symbol-function 'window-body-width))) 2)
-  (let ((window* (make-symbol "window")))
-`(let ((,window* ,window))
-   (*  (window-body-width ,window*)
-   (frame-char-width (window-frame ,window*)
-`(window-body-width ,window t)))
-
 ;; In Emacs 24.3 image-mode-winprops leads to infinite recursion.
 (unless (or (> emacs-major-version 24)
 (and (= emacs-major-version 24)
diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el
index 0820e8f3e4..21824ad804 100644
--- a/lisp/pdf-view.el
+++ b/lisp/pdf-view.el
@@ -1135,7 +1135,7 @@ If WINDOW is t, redisplay pages in all windows."
   (let* ((pagesize (pdf-cache-pagesize
 (or page (pdf-view-current-page window
  (slice (pdf-view-current-slice window))
- (width-scale (/ (/ (float (pdf-util-window-pixel-width window))
+ (width-scale (/ (/ (float (window-body-width window t))
 (or (nth 2 slice) 1.0))
  (float (car pagesize
  (height (- (nth 3 (window-inside-pixel-edges window))



[nongnu] elpa/pdf-tools 365d2d8e8e 03/16: Remove guards in `pdf-virtual` tests and code.

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 365d2d8e8ed45c4358ff767a40fdc184746e043b
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Remove guards in `pdf-virtual` tests and code.

This is dead-code for supporting Emacs <26.3

Relates to: #26
---
 lisp/pdf-virtual.el  |   6 --
 test/pdf-virtual-test.el | 199 +++
 2 files changed, 98 insertions(+), 107 deletions(-)

diff --git a/lisp/pdf-virtual.el b/lisp/pdf-virtual.el
index 575f62229e..f8ecf970ad 100644
--- a/lisp/pdf-virtual.el
+++ b/lisp/pdf-virtual.el
@@ -31,12 +31,6 @@
 ;; asynchronous case.
 
 ;;; Code:
-(eval-when-compile
-  (unless (or (> emacs-major-version 24)
-  (and (= emacs-major-version 24)
-   (>= emacs-minor-version 4)))
-(error "pdf-virtual.el only works with Emacs >= 24.4")))
-
 (require 'let-alist)
 (require 'pdf-info)
 (require 'pdf-util)
diff --git a/test/pdf-virtual-test.el b/test/pdf-virtual-test.el
index fc20981f53..ed5e0520b0 100644
--- a/test/pdf-virtual-test.el
+++ b/test/pdf-virtual-test.el
@@ -1,6 +1,5 @@
 ;; -*- lexical-binding: t -*-
 
-(unless (version< emacs-version "24.4")
 (require 'pdf-virtual)
 (require 'ert)
 
@@ -40,28 +39,28 @@
 
 (ert-deftest pdf-virtual-document-filenames ()
   (with-pdf-virtual-test-document doc
-(should (equal (pdf-virtual-document-filenames doc)
-   '("test.pdf")
+  (should (equal 
(pdf-virtual-document-filenames doc)
+ '("test.pdf")
 
 (ert-deftest pdf-virtual-document-pages ()
   (with-pdf-virtual-test-document doc
-(should (equal '(("test.pdf" (4 . 4) nil)
- ("test.pdf" (3 . 3) nil)
- ("test.pdf" (5 . 6) nil))
-   (pdf-virtual-document-pages '(3 . 6) doc)
+  (should (equal '(("test.pdf" (4 . 4) nil)
+   ("test.pdf" (3 . 3) nil)
+   ("test.pdf" (5 . 6) nil))
+ (pdf-virtual-document-pages 
'(3 . 6) doc)
 
 (ert-deftest pdf-virtual-document-page ()
   (with-pdf-virtual-test-document doc
-(should (equal '("test.pdf" 6 nil)
-   (pdf-virtual-document-page 6 doc)
+  (should (equal '("test.pdf" 6 nil)
+ (pdf-virtual-document-page 6 
doc)
 
 (ert-deftest pdf-virtual-document-page-of ()
   (with-pdf-virtual-test-document doc
-(let ((pages '(2 1 4 3 5 6)))
-  (dotimes (i (length pages))
-(should (equal (1+ i)
-   (pdf-virtual-document-page-of
-"test.pdf" (nth i pages) nil doc)))
+  (let ((pages '(2 1 4 3 5 6)))
+(dotimes (i (length pages))
+  (should (equal (1+ i)
+ 
(pdf-virtual-document-page-of
+  "test.pdf" (nth i pages) 
nil doc)))
 
 (ert-deftest pdf-virtual-open ()
   (with-pdf-virtual-test-buffer
@@ -77,29 +76,29 @@
 
 (ert-deftest pdf-virtual-search ()
   (with-pdf-virtual-test-buffer
-(dolist (m (list (pdf-info-search-string "PDF" 2)
- (pdf-info-search-regexp "PDF" 2)))
-  (should (= 2 (length m)))
-  (should (equal (mapcar (apply-partially 'alist-get 'page)
- m)
- '(2 2)))
-  (should (cl-every (lambda (elt)
-  (cl-every 'pdf-test-relative-edges-p elt))
-(mapcar (apply-partially 'alist-get 'edges)
-m))
+   (dolist (m (list (pdf-info-search-string "PDF" 2)
+(pdf-info-search-regexp "PDF" 2)))
+ (should (= 2 (length m)))
+ (should (equal (mapcar (apply-partially 'alist-get 'page)
+m)
+'(2 2)))
+ (should (cl-every (lambda (elt)
+ (cl-every 'pdf-test-relative-edges-p elt))
+   (mapcar (apply-partially 'alist-get 'edges)
+   m))
 
 (ert-deftest pdf-virtual-pagelinks ()
   (with-pdf-virtual-test-buffer
-(let ((links (pdf-info-pagelinks 4)))
-  (should (cl-every 'pdf-test-relative-edges-p
-(mapcar (apply-partially 'alist-get 'edges)
-links)))
-  (should (equal (mapcar (apply-partially 'alist-get 'type)
- links)
- '(goto-dest uri)))
-  (should (equal (mapcar (apply-partially 'alist-get 'uri)
- links)
- '(nil "http://www.gnu.org";))
+   (let ((links (pdf-info-pagelinks 4)))
+ (should (cl-every 'pdf-test

[nongnu] elpa/pdf-tools 19801defb8 10/16: Add support for Alpine Linux to autobuild

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 19801defb89ba6208afe96dbbb44ba84fb579f23
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Add support for Alpine Linux to autobuild

This ensures that all operating systems currently mentioned in the
README are covered in the autobuild script

Relates to: #160
---
 server/autobuild | 27 ++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/server/autobuild b/server/autobuild
index d9f7975449..de42806fcc 100755
--- a/server/autobuild
+++ b/server/autobuild
@@ -455,6 +455,28 @@ os_opensuse() {
 return 0
 }
 
+# Alpine Linux
+os_alpine() {
+if [ -f "/etc/os-release" ]; then
+. /etc/os-release
+if [ "$ID" != "alpine" ]; then
+  return 1
+fi
+else
+  return 1
+fi
+PACKAGES="autoconf
+  automake
+  libpng-dev
+  poppler-dev
+  glib-dev
+  gcc
+  build-base"
+PKGCMD=apk
+PKGARGS="add"
+return 0
+}
+
 # By Parameter --os
 os_argument() {
 [ -z "$OS" ] && return 1
@@ -471,6 +493,7 @@ os_argument() {
 nixos)   os_nixos   "$@";;
 void)os_void"$@";;
 opensuse) os_opensuse "$@";;
+alpine)  os_alpine  "$@";;
 *)   echo "Invalid --os argument: $OS"
  exit 1
 esac || {
@@ -480,7 +503,8 @@ os_argument() {
 }
 
 ## +---+
-## * Figure out were we are, install deps and build the program
+## * Figure out where we are
+## ** install deps and build the program
 ## +---+
 
 handle_options "$@"
@@ -498,6 +522,7 @@ os_msys2"$@" || \
 os_nixos"$@" || \
 os_void "$@" || \
 os_opensuse "$@" || \
+os_alpine   "$@" || \
 {
 OS_IS_HANDLED=
 if [ -z "$DRY_RUN" ]; then



[nongnu] elpa/pdf-tools e10d9cedad 12/16: Update and cleanup the Install section

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit e10d9cedad5007e9435788b31aec6eb4b5ce964f
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Update and cleanup the Install section

Simplify the instructions and ask users to use `make` where possible!

Closes: #160
---
 README.org | 394 +++--
 1 file changed, 145 insertions(+), 249 deletions(-)

diff --git a/README.org b/README.org
index 57409fbe6e..103dd6c92a 100644
--- a/README.org
+++ b/README.org
@@ -11,281 +11,172 @@
 
 The ~pdf-tools~ Wiki is maintained at https://pdftools.wiki. Head to the site 
if you find it easier to navigate a website for reading a manual. All the 
topics on the site are listed at https://pdftools.wiki/impulse.
 
+* Table of Contents
:noexport:TOC_3_org:
+- [[About PDF Tools][About PDF Tools]]
+- [[Installing pdf-tools][Installing pdf-tools]]
+  - [[Installing the epdfinfo server][Installing the epdfinfo server]]
+- [[Installing the epdfinfo server from package managers][Installing the 
epdfinfo server from package managers]]
+- [[Installing the epdfinfo server from source on Windows (+ 
Gotchas)][Installing the epdfinfo server from source on Windows (+ Gotchas)]]
+- [[Installing the epdfinfo server from source on macOS (+ 
Gotchas)][Installing the epdfinfo server from source on macOS (+ Gotchas)]]
+- [[Common installation gotchas][Common installation gotchas]]
+- [[Installing optional features][Installing optional features]]
+  - [[Installing pdf-tools elisp code][Installing pdf-tools elisp code]]
+  - [[Updating pdf-tools][Updating pdf-tools]]
+- [[Features][Features]]
+  - [[View and Navigate PDFs][View and Navigate PDFs]]
+- [[Keybindings for navigating PDF documents][Keybindings for navigating 
PDF documents]]
+- [[Keybindings for manipulating display of PDF][Keybindings for 
manipulating display of PDF]]
+  - [[Annotations][Annotations]]
+- [[Keybindings for working with Annotations][Keybindings for working with 
Annotations]]
+  - [[Working with AUCTeX][Working with AUCTeX]]
+- [[Keybindings for working with AUCTeX][Keybindings for working with 
AUCTeX]]
+  - [[Miscellaneous features][Miscellaneous features]]
+- [[Keybindings for miscellaneous features in PDF tools][Keybindings for 
miscellaneous features in PDF tools]]
+  - [[Easy Help for PDF Tools features][Easy Help for PDF Tools features]]
+  - [[Configuring PDF Tools features][Configuring PDF Tools features]]
+- [[Known problems][Known problems]]
+  - [[linum-mode][linum-mode]]
+  - [[display-line-numbers-mode][display-line-numbers-mode]]
+  - [[auto-revert][auto-revert]]
+  - [[sublimity][sublimity]]
+  - [[Text selection is not transparent in PDFs OCRed with Tesseract][Text 
selection is not transparent in PDFs OCRed with Tesseract]]
+- [[Key-bindings in PDF Tools][Key-bindings in PDF Tools]]
+- [[Tips and Tricks for Developers][Tips and Tricks for Developers]]
+  - [[Turn on debug mode][Turn on debug mode]]
+  - [[Run Emacs lisp tests locally][Run Emacs lisp tests locally]]
+  - [[Run server compilation tests locally][Run server compilation tests 
locally]]
+  - [[Add a Dockerfile to automate server compilation testing][Add a 
Dockerfile to automate server compilation testing]]
+- [[FAQs][FAQs]]
+  - [[PDFs are not rendering well!][PDFs are not rendering well!]]
+  - [[What Emacs versions does pdf-tools support?][What Emacs versions does 
pdf-tools support?]]
+  - [[I want to add support for pdf-tools on "My Fav OS". How do I do that?][I 
want to add support for pdf-tools on "My Fav OS". How do I do that?]]
+  - [[I am on a Macbook M1 and pdf-tools installation fails with a 
stack-trace][I am on a Macbook M1 and pdf-tools installation fails with a 
stack-trace]]
+  - [[I am a developer, making changes to the pdf-tools source code][I am a 
developer, making changes to the pdf-tools source code]]
+
 * About PDF Tools
 :PROPERTIES:
 :CREATED:  [2021-12-29 Wed 18:34]
 :ID:   5a884389-6aec-498a-90d5-f37168809b4f
 :EXPORT_FILE_NAME: index
 :END:
-PDF Tools is, among other things, a replacement of DocView for PDF files. The 
key difference is that pages are not pre-rendered by e.g. ghostscript and 
stored in the file-system, but rather created on-demand and stored in memory.
+PDF Tools is, among other things, a replacement of DocView for PDF files. The 
key difference is that pages are not pre-rendered by, say, ~ghostscript~ and 
stored in the file-system, but rather created on-demand and stored in memory.
 
 This rendering is performed by a special library named, for whatever reason, 
~poppler~, running inside a server program. This program is called ~epdfinfo~ 
and its job is to successively read requests from Emacs and produce the proper 
results, i.e. the PNG image of a PDF page.
 
 Actually, displaying PDF files is just one part of ~pdf-tools~. Since 
~poppler~ can provide us with all kinds of information about a document

[nongnu] elpa/pdf-tools 7a51b38310 13/16: Extend docker testing framework to test against Emacs versions

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 7a51b38310014628fe4ada9731d6d63657e8f209
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Extend docker testing framework to test against Emacs versions

Until this commit, docker-based local testing only checked whether the
epdfinfo server compiled correctly. With this commit, local testing
now also runs elisp tests against the different versions of Emacs we
currently support.

All versions of Emacs are run on Ubuntu at the moment,
but going forward I expect that we will add more operating system
variants to this matrix as well.

As test coverage increases, this will help automate away a lot of the
tests!

Relates to: #130
---
 server/test/.gitignore  |  1 +
 server/test/Makefile|  6 --
 server/test/docker/lib/run-tests| 21 ++---
 server/test/docker/templates/Dockerfile.common.in   |  6 +++---
 server/test/docker/templates/emacs-26.Dockerfile.in |  5 +
 server/test/docker/templates/emacs-27.Dockerfile.in |  5 +
 server/test/docker/templates/emacs-28.Dockerfile.in |  5 +
 server/test/docker/templates/emacs-29.Dockerfile.in |  5 +
 8 files changed, 46 insertions(+), 8 deletions(-)

diff --git a/server/test/.gitignore b/server/test/.gitignore
new file mode 100644
index 00..aaedb1f2fc
--- /dev/null
+++ b/server/test/.gitignore
@@ -0,0 +1 @@
+.start-vm
diff --git a/server/test/Makefile b/server/test/Makefile
index 303b9a1204..26a0f36af2 100644
--- a/server/test/Makefile
+++ b/server/test/Makefile
@@ -39,10 +39,10 @@ docker/%.Dockerfile: docker/templates/%.Dockerfile.in \
@echo Creating Dockerfile for target $*
cat $^ > $@
 
-# Build the Docker Image
+# Build the Docker Image. Since we are building a new image, remove the 
existing container.
 docker/.%.build: docker/%.Dockerfile ../autobuild docker/lib
@echo Building target image $*
-   podman image build $(DOCKER_BUILD_ARGS) epdfinfo/$* -f $< ../
+   podman image build $(DOCKER_BUILD_ARGS) epdfinfo/$* -f $< ../../
touch $@
 
 # Build the Docker Container
@@ -68,6 +68,8 @@ docker/.%.clean:
 
 docker/clean: $(patsubst %, docker/.%.clean, $(DOCKER_OS))
 
+test: docker/test
+
 clean: docker/clean
rm -f -- docker/.[^.]*.build
rm -f -- docker/.[^.]*.container
diff --git a/server/test/docker/lib/run-tests b/server/test/docker/lib/run-tests
index 43fe5e5cd2..31887bf23f 100755
--- a/server/test/docker/lib/run-tests
+++ b/server/test/docker/lib/run-tests
@@ -2,8 +2,23 @@
 
 PATH="$(dirname "$0")":$PATH
 
-set -e
+run_tests_exit_success()
+{
+echo "==="
+echo "   Elisp Tests succeeded. :O)  "
+echo "==="
+exit 0
+}
 
-yes-or-enter | ./autobuild -i /bin
-yes-or-enter | ./autobuild -i /usr/bin | \
+set -e
+# Check that install completes successfully
+yes-or-enter | ./server/autobuild -i /bin
+# Check that re-install skips package installation
+yes-or-enter | ./server/autobuild -i /usr/bin | \
 grep -q "Skipping package installation (already installed)"
+# Check that lisp tests run correctly, if emacs is installed and available on 
PATH
+echo
+if which emacs > /dev/null 2> /dev/null; then
+echo "Emacs found installed! Running elisp tests"
+make test && run_tests_exit_success
+fi
diff --git a/server/test/docker/templates/Dockerfile.common.in 
b/server/test/docker/templates/Dockerfile.common.in
index 083b19a576..142f0620c2 100644
--- a/server/test/docker/templates/Dockerfile.common.in
+++ b/server/test/docker/templates/Dockerfile.common.in
@@ -1,4 +1,4 @@
-ADD . /epdfinfo
-WORKDIR /epdfinfo
+COPY . /pdf-tools
+WORKDIR /pdf-tools
 RUN make -s distclean || true
-CMD ["sh", "./test/docker/lib/run-tests"]
+CMD ["sh", "./server/test/docker/lib/run-tests"]
diff --git a/server/test/docker/templates/emacs-26.Dockerfile.in 
b/server/test/docker/templates/emacs-26.Dockerfile.in
new file mode 100644
index 00..088a991f56
--- /dev/null
+++ b/server/test/docker/templates/emacs-26.Dockerfile.in
@@ -0,0 +1,5 @@
+# -*- dockerfile -*-
+FROM silex/emacs:26-ci-cask
+ARG DEBIAN_FRONTEND=noninteractive
+# Need to install make, tzdata here to avoid stupid prompts when running 
package install via autobuild
+RUN apt-get update -y && apt-get install -y make tzdata
diff --git a/server/test/docker/templates/emacs-27.Dockerfile.in 
b/server/test/docker/templates/emacs-27.Dockerfile.in
new file mode 100644
index 00..50cd8209be
--- /dev/null
+++ b/server/test/docker/templates/emacs-27.Dockerfile.in
@@ -0,0 +1,5 @@
+# -*- dockerfile -*-
+FROM silex/emacs:27-ci-cask
+ARG DEBIAN_FRONTEND=noninteractive
+# Need to install make, tzdata here to avoid stupid prompts when running 
package install via autobuild
+RUN apt-get update -y && apt-get install -y make tzdata
diff --git a/server/test/docker/templates/emacs-28.Dockerfile.in 
b/server/test/

[nongnu] elpa/pdf-tools 96703b2bb5 14/16: Bump the minimum Emacs version to 26.3! 🎉🤞

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 96703b2bb5c937afd05778086c43280b0593fe99
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Bump the minimum Emacs version to 26.3! 🎉🤞

All the code working around issues in Emacs 24 and Emacs 25 has been
removed at this point! (or at least, as much of it as I could find)

I've tested against Emacs 28 and it's working fine. I need many more
automated tests to ensure that behaviour does not break across
multiple Emacs versions / operating systems, but that is a topic for
another day.

This commit bumps the version of `pdf-tools` from `1.0.0snapshot` to
`1.0.0`. I do not expect this to have any real change either on Melpa
Stable or Non-GNU Elpa, since they already parse the version as 1.0.0.

I am not creating a tag at the moment. I will do some more cleanup
work and directly create a `1.1.0` post those changes.

Closes: #26
---
 Cask  | 2 --
 lisp/pdf-tools.el | 4 ++--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/Cask b/Cask
index d9486f568a..8d7b1e048e 100644
--- a/Cask
+++ b/Cask
@@ -9,7 +9,5 @@
"server/epdfinfo.exe")
 
 (development
- (depends-on "let-alist")
- (depends-on "tablist")
  (depends-on "ert-runner")
  (depends-on "undercover"))
diff --git a/lisp/pdf-tools.el b/lisp/pdf-tools.el
index 9d15269286..b94c82fddf 100644
--- a/lisp/pdf-tools.el
+++ b/lisp/pdf-tools.el
@@ -7,8 +7,8 @@
 ;; URL: http://github.com/vedang/pdf-tools/
 ;; Keywords: files, multimedia
 ;; Package: pdf-tools
-;; Version: 1.0.0snapshot
-;; Package-Requires: ((emacs "24.3") (nadvice "0.3") (tablist "1.0") 
(let-alist "1.0.4"))
+;; Version: 1.0.0
+;; Package-Requires: ((emacs "26.3") (tablist "1.0") (let-alist "1.0.4"))
 
 ;; 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



[nongnu] elpa/pdf-tools 1885cefc24 16/16: Merge branch 'feature/emacs-26.3'

2022-11-28 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 1885cefc24883c220cdd4acafdf1d14f290a6979
Merge: d6980bc327 997467ad3b
Author: Vedang Manerikar 
Commit: Vedang Manerikar 

Merge branch 'feature/emacs-26.3'

Creating a merge commit in order to create a 1.0.0 tag.

Note that this merge has breaking changes, as described in the NEWS
section.

* feature/emacs-26.3:
  autobuild: Recognize NetBSD and install packages via pkgin
  Bump the minimum Emacs version to 26.3! 🎉🤞
  Extend docker testing framework to test against Emacs versions
  Update and cleanup the Install section
  Make sure pkg-config is correctly set in autobuild
  Add support for Alpine Linux to autobuild
  Render crisp images for HiDPI screens by default
  Remove Emacs 24.4 guards for cua-mode
  Remove compatibility function for image-mode-winprops
  Remove pdf-util-window-pixel-width, fallback to window-body-width
  Remove macro / function re-definitions
  Remove bugfix for imenu in Emacs 24.3 and below
  Remove guards in `pdf-virtual` tests and code.
  Explicitly declare documentation files as Org files
  Add a byteclean target in the Makefile
---
 .circleci/config.yml   |   2 +-
 Cask   |   2 -
 Makefile   |   8 +-
 NEWS   |  20 +-
 README.org | 403 -
 TODO   |  26 --
 TODO.org   |  21 ++
 lisp/pdf-cache.el  |   6 +-
 lisp/pdf-info.el   |   4 +-
 lisp/pdf-outline.el|  17 -
 lisp/pdf-tools.el  |   4 +-
 lisp/pdf-util.el   | 112 +-
 lisp/pdf-view.el   |  37 +-
 lisp/pdf-virtual.el|   6 -
 server/autobuild   |  42 ++-
 server/test/.gitignore |   1 +
 server/test/Makefile   |   6 +-
 server/test/docker/lib/run-tests   |  21 +-
 server/test/docker/templates/Dockerfile.common.in  |   6 +-
 .../test/docker/templates/emacs-26.Dockerfile.in   |   5 +
 .../test/docker/templates/emacs-27.Dockerfile.in   |   5 +
 .../test/docker/templates/emacs-28.Dockerfile.in   |   5 +
 .../test/docker/templates/emacs-29.Dockerfile.in   |   5 +
 test/pdf-virtual-test.el   | 199 +-
 24 files changed, 418 insertions(+), 545 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 636546de88..a8005ee94e 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -95,7 +95,7 @@ jobs:
   - run:
   name: Add Cask and Gnu-SED to the Path
   command: |
-echo 'export PATH="$HOME"/.cask/bin:"$(brew 
--prefix)"/opt/gnu-sed/libexec/gnubin:"$PATH"' >> "$BASH_ENV"
+echo 'export PATH="$HOME"/.cask/bin:"$(brew --prefix 
gnu-sed)"/libexec/gnubin:"$PATH"' >> "$BASH_ENV"
   - install-pdf-tools-server
 
 workflows:
diff --git a/Cask b/Cask
index d9486f568a..8d7b1e048e 100644
--- a/Cask
+++ b/Cask
@@ -9,7 +9,5 @@
"server/epdfinfo.exe")
 
 (development
- (depends-on "let-alist")
- (depends-on "tablist")
  (depends-on "ert-runner")
  (depends-on "undercover"))
diff --git a/Makefile b/Makefile
index f776884c74..e2bdc29cad 100644
--- a/Makefile
+++ b/Makefile
@@ -27,6 +27,11 @@ $(pkgfile): .cask/$(emacs_version) server/epdfinfo lisp/*.el
 bytecompile: .cask/$(emacs_version)
$(CASK) exec $(emacs) --batch -L lisp -f batch-byte-compile lisp/*.el
 
+# Clean bytecompiled sources
+byteclean:
+   rm -f -- lisp/*.elc
+   rm -f -- lisp/*.eln
+
 # Run ERT tests
 test: all
PACKAGE_TAR=$(pkgfile) $(CASK) exec ert-runner
@@ -68,9 +73,8 @@ melpa-package: $(pkgfile)
-f $(pkgname)-melpa.tar
 
 # Various clean targets
-clean: server-clean
+clean: server-clean byteclean
rm -f -- $(pkgfile)
-   rm -f -- lisp/*.elc
rm -f -- pdf-tools-readme.txt
rm -f -- pdf-tools-$(version).entry
 
diff --git a/NEWS b/NEWS
index 00d2d5c06d..1ff8c77045 100644
--- a/NEWS
+++ b/NEWS
@@ -2,8 +2,24 @@
 
 * Version 1.0.0 (Under Development)
 From this version onward, we will follow Semantic Versioning for new 
~pdf-tools~ releases.
-** Raise the minimum supported version of Emacs to 26.1
-Drop support for Emacs 24 and 25. This allows for some code cleanup.
+
+** Breaking changes:
+*** Raise the minimum supported version of Emacs to 26.3 #26
+Drop support for Emacs 24 and 25. This allows for some code cleanup. *This is 
a major breaking change*.
+*** Change the default value of pdf-view-use-scaling #133
+~pdf-view-use-scaling~ is now true by default, leading to renderin