[elpa] externals/hyperbole 21fafb7428: Add check and remove temp file (#184)

2022-04-10 Thread ELPA Syncer
branch: externals/hyperbole
commit 21fafb742873aefe6283ba9ecd1fc9d37c567da7
Author: Mats Lidell 
Commit: GitHub 

Add check and remove temp file (#184)
---
 ChangeLog|  5 +
 test/hyrolo-tests.el | 24 ++--
 2 files changed, 19 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b3c444e198..a337113577 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-04-09  Mats Lidell  
+
+* test/hyrolo-tests.el (hyrolo-add-items-at-multiple-levels): Add check
+and remove test temp file.
+
 2022-04-03  Kathy  
 
 * test/kotl-mode-tests.el (setup-kotl-mode-example-test): Fix so handles 
multiple buffers with same
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 8d1954e9df..e434f6eaf0 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:   Mats Lidell 
 ;;
 ;; Orig-Date:19-Jun-21 at 22:42:00
-;; Last-Mod: 26-Mar-22 at 14:56:33 by Bob Weiner
+;; Last-Mod:  9-Apr-22 at 22:52:56 by Mats Lidell
 ;;
 ;; Copyright (C) 2021-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -26,16 +26,20 @@
 (declare-function hy-test-helpers:should-last-message "hy-test-helpers")
 
 (ert-deftest hyrolo-add-items-at-multiple-levels ()
-  "Rolo files can have items at different levels."
+  "`hyrolo-add` can add items at different levels."
   (let ((hyrolo-file (make-temp-file "hypb" nil ".otl")))
-(let ((hyrolo-file-list (list hyrolo-file)))
-  (find-file hyrolo-file)
-  (insert "===\nHdr\n===\n")
-  (goto-char (point-min))
-  (should (looking-at "==="))
-  (hyrolo-add "a")
-  (hyrolo-add "a/b")
-  (hyrolo-add "a/b/c"
+(unwind-protect
+(let ((hyrolo-file-list (list hyrolo-file)))
+  (find-file hyrolo-file)
+  (insert "===\nHdr\n===\n")
+  (goto-char (point-min))
+  (should (looking-at "==="))
+  (hyrolo-add "a")
+  (hyrolo-add "a/b")
+  (hyrolo-add "a/b/c")
+  (beginning-of-line)
+  (should (looking-at-p "\*\*\*   c")))
+  (delete-file hyrolo-file
 
 (ert-deftest hyrolo-demo-search-work ()
   "Use demo example and search for work should match work."



[elpa] externals/marginalia f7026bac48: Remove obsolete variable

2022-04-10 Thread ELPA Syncer
branch: externals/marginalia
commit f7026bac4809be5e0625070d429be1acee9d4989
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remove obsolete variable
---
 marginalia.el | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 72ae3798f9..9ef7fb7f0b 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -42,9 +42,6 @@
   :group 'minibuffer
   :prefix "marginalia-")
 
-(define-obsolete-variable-alias 'marginalia-truncate-width
-  'marginalia-field-width "0.11")
-
 (defcustom marginalia-field-width 80
   "Maximum truncation width of annotation fields.
 



[elpa] externals/consult 33f21f371d: consult--grep: Remove read-process-output-max override

2022-04-10 Thread ELPA Syncer
branch: externals/consult
commit 33f21f371d3f065b4afe73360b5904c075f5946d
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--grep: Remove read-process-output-max override
---
 consult.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/consult.el b/consult.el
index 671564d0b0..e98e68e364 100644
--- a/consult.el
+++ b/consult.el
@@ -1638,7 +1638,9 @@ POINT is the point position."
 BIND is the asynchronous function binding."
   (declare (indent 1))
   (let ((async (car bind)))
-`(let ((,async ,@(cdr bind)) (orig-chunk))
+`(let ((,async ,@(cdr bind))
+   (new-chunk (max read-process-output-max consult--process-chunk))
+   orig-chunk)
(consult--minibuffer-with-setup-hook
;; Append such that we overwrite the completion style setting of
;; `fido-mode'. See `consult--async-split' and
@@ -1647,7 +1649,7 @@ BIND is the asynchronous function binding."
 (lambda ()
   (when (functionp ,async)
 (setq orig-chunk read-process-output-max
-  read-process-output-max (max read-process-output-max 
consult--process-chunk))
+  read-process-output-max new-chunk)
 (funcall ,async 'setup)
 ;; Push input string to request refresh.
 ;; We use a symbol in order to avoid adding lambdas to the 
hook variable.
@@ -1660,7 +1662,7 @@ BIND is the asynchronous function binding."
(unwind-protect
,(macroexp-progn body)
  (funcall ,async 'destroy)
- (when orig-chunk
+ (when (and orig-chunk (eq read-process-output-max new-chunk))
(setq read-process-output-max orig-chunk
 
 (defun consult--async-sink ()
@@ -4469,8 +4471,7 @@ BUILDER is the command builder.
 PROMPT is the prompt string.
 INITIAL is inital input."
   (let* ((prompt-dir (consult--directory-prompt prompt dir))
- (default-directory (cdr prompt-dir))
- (read-process-output-max (max read-process-output-max (* 1024 1024
+ (default-directory (cdr prompt-dir)))
 (consult--read
  (consult--async-command builder
(consult--grep-format builder)



[elpa] externals/consult 18822469e8: Remove unused consult-preview-map

2022-04-10 Thread ELPA Syncer
branch: externals/consult
commit 18822469e87baf80d23041e220c71344d1744e9a
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remove unused consult-preview-map
---
 CHANGELOG.org | 1 +
 consult.el| 4 
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 517fe9b87a..884e2c80d6 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -20,6 +20,7 @@
 - BREAKING API CHANGE of =consult--read=, =consult--prompt=, =consult--multi=: 
The
   state function protocol changed. The function gets notified of more 
completion
   state changes. See the docstring of =consult--with-preview= for details.
+- Remove unused =consult-preview-map=.
 
 * Version 0.16 (2022-03-08)
 
diff --git a/consult.el b/consult.el
index e98e68e364..858502dad8 100644
--- a/consult.el
+++ b/consult.el
@@ -1997,9 +1997,6 @@ argument list :command and a highlighting function 
:highlight."
 (defvar consult-crm-map (make-sparse-keymap)
   "Keymap added by `consult-completing-read-multiple'.")
 
-(defvar consult-preview-map (make-sparse-keymap)
-  "Keymap added for commands with preview.")
-
 (defvar consult-narrow-map
   (let ((map (make-sparse-keymap)))
 (define-key map " " consult--narrow-space)
@@ -2057,7 +2054,6 @@ PREVIEW-KEY are the preview keys."
   (delq nil (list keymap
   (and async consult-async-map)
   (and narrow consult-narrow-map)
-  (and preview-key consult-preview-map)
   map))
   old-map
 



[elpa] externals/consult ed5f38a432: consult-bookmark-narrow: Add vc-dir-bookmark-jump

2022-04-10 Thread ELPA Syncer
branch: externals/consult
commit ed5f38a4321aa896f915ba85d636bd0519657d9e
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult-bookmark-narrow: Add vc-dir-bookmark-jump
---
 consult.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 858502dad8..7b84ae98ba 100644
--- a/consult.el
+++ b/consult.el
@@ -322,7 +322,8 @@ The dynamically computed arguments are appended."
 (?g "Gnus" ,#'gnus-summary-bookmark-jump)
 ;; Introduced on Emacs 28
 (?s "Eshell" eshell-bookmark-jump)
-(?e "Eww" eww-bookmark-jump))
+(?e "Eww" eww-bookmark-jump)
+(?v "VC Directory" vc-dir-bookmark-jump))
   "Bookmark narrowing configuration.
 
 Each element of the list must have the form '(char name handler)."



[elpa] externals/consult 0e6d3ef3c8 3/3: consult--find-file-temporarily: Fix so-long check

2022-04-10 Thread ELPA Syncer
branch: externals/consult
commit 0e6d3ef3c87c68b57db5b118ea6cb541055f87cc
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--find-file-temporarily: Fix so-long check
---
 consult.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 7d8dee2f95..5649314969 100644
--- a/consult.el
+++ b/consult.el
@@ -1153,7 +1153,7 @@ ORIG is the original function, HOOKS the arguments."
   (pcase-dolist (`(,k ,_ ,d ,v) vars)
 (set-default k d)
 (set k v)
-  (if (not (buffer-local-value 'so-long-detected-p buf))
+  (if (not (ignore-errors (buffer-local-value 'so-long-detected-p 
buf)))
   buf
 (kill-buffer buf)
 (message "File `%s' has long lines, not previewed" name)



[elpa] externals/consult updated (ed5f38a432 -> 0e6d3ef3c8)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch externals/consult.

  from  ed5f38a432 consult-bookmark-narrow: Add vc-dir-bookmark-jump
   new  902b5dfd7c consult--find-file-temporarily: Fix error message for 
large files
   new  776351b5ab consult--find-file-temporarily: Do not preview so-long 
files
   new  0e6d3ef3c8 consult--find-file-temporarily: Fix so-long check


Summary of changes:
 consult.el | 49 -
 1 file changed, 28 insertions(+), 21 deletions(-)



[elpa] externals/consult 776351b5ab 2/3: consult--find-file-temporarily: Do not preview so-long files

2022-04-10 Thread ELPA Syncer
branch: externals/consult
commit 776351b5ab6730ac5106925aaee287b841a64d40
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--find-file-temporarily: Do not preview so-long files
---
 consult.el | 49 -
 1 file changed, 28 insertions(+), 21 deletions(-)

diff --git a/consult.el b/consult.el
index a8144929a6..7d8dee2f95 100644
--- a/consult.el
+++ b/consult.el
@@ -1129,31 +1129,38 @@ ORIG is the original function, HOOKS the arguments."
 
 (defun consult--find-file-temporarily (name)
   "Open file NAME temporarily for preview."
-  (let ((vars (delq nil
-(mapcar (pcase-lambda (`(,k . ,v))
+  (setq name (abbreviate-file-name (expand-file-name name)))
+  ;; file-attributes may throw permission denied error
+  (when-let* ((attrs (ignore-errors (file-attributes name)))
+  (size (file-attribute-size attrs)))
+(if (<= size consult-preview-max-size)
+(let* ((vars (delq nil
+   (mapcar
+(pcase-lambda (`(,k . ,v))
   (if (boundp k)
   (list k v (default-value k) (symbol-value k))
 (message "consult-preview-variables: The 
variable `%s' is not bound" k)
 nil))
-consult-preview-variables
-;; file-attributes may throw permission denied error
-(when-let* ((attrs (ignore-errors (file-attributes name)))
-(size (file-attribute-size attrs)))
-  (if (<= size consult-preview-max-size)
-  (unwind-protect
-  (progn
-(advice-add #'run-hooks :around 
#'consult--filter-find-file-hook)
-(pcase-dolist (`(,k ,v . ,_) vars)
-  (set-default k v)
-  (set k v))
-(find-file-noselect name 'nowarn (> size 
consult-preview-raw-size)))
-(advice-remove #'run-hooks #'consult--filter-find-file-hook)
-(pcase-dolist (`(,k ,_ ,d ,v) vars)
-  (set-default k d)
-  (set k v)))
-(message "File `%s' (%s) is too large for preview"
- name (file-size-human-readable size))
-nil
+consult-preview-variables)))
+   (buf (unwind-protect
+(progn
+  (advice-add #'run-hooks :around 
#'consult--filter-find-file-hook)
+  (pcase-dolist (`(,k ,v . ,_) vars)
+(set-default k v)
+(set k v))
+  (find-file-noselect name 'nowarn (> size 
consult-preview-raw-size)))
+  (advice-remove #'run-hooks 
#'consult--filter-find-file-hook)
+  (pcase-dolist (`(,k ,_ ,d ,v) vars)
+(set-default k d)
+(set k v)
+  (if (not (buffer-local-value 'so-long-detected-p buf))
+  buf
+(kill-buffer buf)
+(message "File `%s' has long lines, not previewed" name)
+nil))
+  (message "File `%s' (%s) is too large for preview"
+   name (file-size-human-readable size))
+  nil)))
 
 (defun consult--temporary-files ()
   "Return a function to open files temporarily for preview."



[elpa] externals/consult 902b5dfd7c 1/3: consult--find-file-temporarily: Fix error message for large files

2022-04-10 Thread ELPA Syncer
branch: externals/consult
commit 902b5dfd7c5b20cab036de3282b5b31bdcc4c28a
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--find-file-temporarily: Fix error message for large files
---
 consult.el | 36 ++--
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/consult.el b/consult.el
index 7b84ae98ba..a8144929a6 100644
--- a/consult.el
+++ b/consult.el
@@ -1136,24 +1136,24 @@ ORIG is the original function, HOOKS the arguments."
 (message "consult-preview-variables: The 
variable `%s' is not bound" k)
 nil))
 consult-preview-variables
-(unwind-protect
-(progn
-  (advice-add #'run-hooks :around #'consult--filter-find-file-hook)
-  (pcase-dolist (`(,k ,v . ,_) vars)
-(set-default k v)
-(set k v))
-  ;; file-attributes may throw permission denied error
-  (when-let* ((attrs (ignore-errors (file-attributes name)))
-  (size (file-attribute-size attrs)))
-(if (<= size consult-preview-max-size)
-(find-file-noselect name 'nowarn (> size 
consult-preview-raw-size))
-  (message "File `%s' (%s) is too large for preview"
-   name (file-size-human-readable size))
-  nil)))
-  (advice-remove #'run-hooks #'consult--filter-find-file-hook)
-  (pcase-dolist (`(,k ,_ ,d ,v) vars)
-(set-default k d)
-(set k v)
+;; file-attributes may throw permission denied error
+(when-let* ((attrs (ignore-errors (file-attributes name)))
+(size (file-attribute-size attrs)))
+  (if (<= size consult-preview-max-size)
+  (unwind-protect
+  (progn
+(advice-add #'run-hooks :around 
#'consult--filter-find-file-hook)
+(pcase-dolist (`(,k ,v . ,_) vars)
+  (set-default k v)
+  (set k v))
+(find-file-noselect name 'nowarn (> size 
consult-preview-raw-size)))
+(advice-remove #'run-hooks #'consult--filter-find-file-hook)
+(pcase-dolist (`(,k ,_ ,d ,v) vars)
+  (set-default k d)
+  (set k v)))
+(message "File `%s' (%s) is too large for preview"
+ name (file-size-human-readable size))
+nil
 
 (defun consult--temporary-files ()
   "Return a function to open files temporarily for preview."



[nongnu] elpa/buttercup 1e0b3c5c09 1/4: Use buttercup-specific error in buttercup--run-suite

2022-04-10 Thread ELPA Syncer
branch: elpa/buttercup
commit 1e0b3c5c09b370769de0e34298f215d8a0264883
Author: Ola Nilsson 
Commit: Ola Nilsson 

Use buttercup-specific error in buttercup--run-suite

Define the error type `buttercup-error-base' to be the parent of all
buttercup errors.

Using specific errors instead of the generic `error' lets us separate
the errors used for buttercup operation from errors that are part of
code under test.

Not all errors generated by buttercup are converted, but
`buttercup-pending' and `buttercup-failed' now inherits from
`buttercup-error-base'.

Raising the new `buttercup-run-error' from
buttercup--run-suites when any specs have failed will make testing of
buttercup-run-discover easier.
---
 buttercup.el| 13 -
 tests/test-buttercup.el |  2 +-
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index d732c25a4c..67e738095f 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -48,6 +48,9 @@
 (require 'ert nil t)
 (require 'warnings)
 
+;; A base error for all errors raised by buttercup.
+(define-error 'buttercup-error-base "error")
+
 ;
 ;;; wrapper function manipulation
 
@@ -116,11 +119,9 @@ a call to `save-match-data', as `format-spec' modifies 
that."
 ;;
 ;;; expect
 
-(define-error 'buttercup-failed
-  "Buttercup test failed")
+(define-error 'buttercup-failed "Buttercup test failed" 'buttercup-error-base)
 
-(define-error 'buttercup-pending
-  "Buttercup test is pending")
+(define-error 'buttercup-pending "Buttercup test is pending" 
'buttercup-error-base)
 
 (defmacro expect (arg &optional matcher &rest args)
   "Expect a condition to be true.
@@ -1510,6 +1511,8 @@ have been defined."
 (or (and noerror :no-suites)
 (error "No suites defined"
 
+(define-error 'buttercup-run-specs-failed "buttercup-run failed" 
'buttercup-error-base)
+
 (defun buttercup--run-suites (suites &optional noerror)
   "Run a list of SUITES.
 Signal an error if any spec fail. Signal no error if NOERROR is
@@ -1519,7 +1522,7 @@ fail."
   (mapc #'buttercup--run-suite suites)
   (funcall buttercup-reporter 'buttercup-done suites)
   (or (zerop (buttercup-suites-total-specs-failed suites))
-  (not (or noerror (error "")
+  (not (or noerror (signal 'buttercup-run-specs-failed '(""))
 
 (defvar buttercup--before-each nil
   "A list of functions to call before each spec.
diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index d51b432c5f..a009b5438a 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1727,7 +1727,7 @@ text properties using `ansi-color-apply'."
   (it "should raise an error if at least one spec failed"
 (setf (buttercup-spec-status spec) 'failed)
 (with-local-buttercup :suites (list parent-suite)
-  (expect (buttercup-run) :to-throw 'error '(""
+  (expect (buttercup-run) :to-throw 'buttercup-run-specs-failed '(""
   (it "should return nil for failing specs and noerror"
 (setf (buttercup-spec-status spec) 'failed)
 (with-local-buttercup :suites (list parent-suite)



[nongnu] elpa/buttercup updated (f5cbf97e10 -> 42a1d7e22a)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch elpa/buttercup.

  from  f5cbf97e10 Merge branch 'fix-214'
   new  1e0b3c5c09 Use buttercup-specific error in buttercup--run-suite
   new  7af296 tests: Extend buttercup--test-with-tempdir to handle 
file content
   new  9bf4fdc077 Store data about failed loads as failed specs
   new  42a1d7e22a tests: Add a simple load test


Summary of changes:
 buttercup.el| 46 ++
 tests/test-buttercup.el | 47 +++
 2 files changed, 73 insertions(+), 20 deletions(-)



[nongnu] elpa/buttercup 7a9999f296 2/4: tests: Extend buttercup--test-with-tempdir to handle file content

2022-04-10 Thread ELPA Syncer
branch: elpa/buttercup
commit 7af296c3bfbaddd1b5d0e3cbaef34437df70
Author: Ola Nilsson 
Commit: Ola Nilsson 

tests: Extend buttercup--test-with-tempdir to handle file content
---
 tests/test-buttercup.el | 25 ++---
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index a009b5438a..e35127e42c 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -76,25 +76,28 @@ variables:
   "Create FILES and execute BODY in a temporary directory.
 FILES shall be a list of file names. An empty file with that name
 will be created in the temporary directory. Any path prefix for a
-file will be created in the temporary directory."
+file will be created in the temporary directory. Elements in FILE
+can also be a list of up to two elements where the first is the
+filename as above and the second is the file contents.
+Return the value of the last form in BODY."
   (declare (debug t) (indent defun))
   (let ((tmproot (cl-gensym))
-(subdir (cl-gensym))
-(olddir (cl-gensym))
-(file (cl-gensym)))
+(olddir (cl-gensym)))
 `(let ((,tmproot (make-temp-file "buttercup-test-temp-" t))
-   ,subdir
(,olddir default-directory))
-   (dolist (,file ,files)
- (setq ,subdir (concat ,tmproot "/" (file-name-directory ,file)))
- (when (and ,subdir (not (file-exists-p ,subdir)))
-   (make-directory ,subdir t))
- (write-region "" nil (concat ,tmproot "/" ,file)))
+   (cl-labels ((make-file (file &optional content)
+ (setq file (expand-file-name file ,tmproot))
+ (make-directory (file-name-directory file) t)
+ (write-region (or content "") nil file)))
+ (dolist (file ,files)
+   (if (listp file)
+   (apply #'make-file file)
+ (make-file file
;; It is tempting to use unwind-protect or condition-case here,
;; but that will mask actual test failures by interfering with
;; the debugger installed by buttercup
(cd ,tmproot)
-   ,@body
+   (progn ,@body)
(cd ,olddir)
(delete-directory ,tmproot t
 



[nongnu] elpa/buttercup 42a1d7e22a 4/4: tests: Add a simple load test

2022-04-10 Thread ELPA Syncer
branch: elpa/buttercup
commit 42a1d7e22adbccd65d7b426e80bc87ce37232aab
Author: Ola Nilsson 
Commit: Ola Nilsson 

tests: Add a simple load test

Due to problems with nested errors, it's not possible (or I don't know
how) to write buttercup specs for this.  The test is just top-level
code in test-buttercup.el.
---
 tests/test-buttercup.el | 20 
 1 file changed, 20 insertions(+)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index e35127e42c..b9456ffa4a 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1959,6 +1959,26 @@ text properties using `ansi-color-apply'."
   (expect loaded-files :to-have-same-items-as '("a/a-tests.el"
 
"a/b/ab-tests.el")))
 
+;; The nested debuggers of running buttercup specs inside other
+;; buttercup specs does not do the right thing. Write out-of-framework
+;; tests for now.
+
+(buttercup--test-with-tempdir
+  '("ok-test.el"
+("test-a.el" "(describe \"foo\"")
+("test-b.el" "(describe \"bar\" (it \"baz\" (ignore)))"))
+  (let ((load-path (cons default-directory load-path))
+buttercup-status-error-caught)
+(with-local-buttercup
+  (condition-case condition
+  (buttercup-run-discover)
+(buttercup-run-specs-failed (setq buttercup-status-error-caught t)))
+  (unless buttercup-status-error-caught
+(error "Expected buttercup-run-discover to signal a 
buttercup-run-specs-failed error"))
+  (unless (equal 2 (length buttercup-suites))
+(error "Expected suites from test-b.el to be in buttercup-suites"))
+  )))
+
 ;
 ;;; Utilities
 



[nongnu] elpa/buttercup 9bf4fdc077 3/4: Store data about failed loads as failed specs

2022-04-10 Thread ELPA Syncer
branch: elpa/buttercup
commit 9bf4fdc077f83cd576058a4574be5f436fd5fdf9
Author: Ola Nilsson 
Commit: Ola Nilsson 

Store data about failed loads as failed specs

For each failed file load in buttercup-dun-discover, store the failure
and stack in a pre-failed spec.  Add the specs to a suite and add it
to the end of buttercup-suites.

This means that failed file load are displayed clearly, with error
message and backtrace, and buttercup-run-discover will signal an error
as for any other failing test.

Fixes #!07.
---
 buttercup.el | 33 ++---
 1 file changed, 30 insertions(+), 3 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 67e738095f..56605af253 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -1375,7 +1375,8 @@ current directory."
   (setq backtrace-on-error-noninteractive nil)
   (let ((dirs nil)
 (patterns nil)
-(args command-line-args-left))
+(args command-line-args-left)
+failed-files-suite)
 (while args
   (cond
((equal (car args) "--")
@@ -1411,15 +1412,41 @@ current directory."
 (push (car args) dirs)
 (setq args (cdr args)
 (setq command-line-args-left nil)
+(setq failed-files-suite (make-buttercup-suite
+  :description "File failed to load completely: "))
 (dolist (dir (or dirs '(".")))
   (dolist (file (directory-files-recursively
  dir "\\`test-.*\\.el\\'\\|-tests?\\.el\\'"))
 ;; Exclude any hidden directory, both immediate (^.) and nested (/.) 
subdirs
 (when (not (string-match "\\(^\\|/\\)\\." (file-relative-name file)))
-  (load file nil t
+  (buttercup--load-test-file file failed-files-suite
 (when patterns
   (buttercup-mark-skipped patterns t))
-(buttercup-run)))
+(when (buttercup-suite-children failed-files-suite)
+  ;; At least one file has failed to load, add the
+  ;; failed-files-suite to the end(?) of the suite list
+  (setq buttercup-suites (append buttercup-suites
+ (list failed-files-suite)
+(buttercup-run))
+
+(defun buttercup--load-test-file (file failure-suite)
+  "Load FILE keeping track of failures.
+If an error is raised by `load', store the error information in a
+spec and add it to FAILURE-SUITE."
+  (cl-destructuring-bind (status description stack)
+  (buttercup--funcall #'load file nil t)
+(when (eq status 'failed)
+  ;; Skip all of stack until load is called
+  (while (not (eq (nth 1 (car stack)) 'load))
+(pop stack))
+  (buttercup-suite-add-child
+   failure-suite
+   (make-buttercup-spec
+:description file
+:status 'failed
+:failure-description (error-message-string (cadr description))
+:failure-stack stack
+:function (lambda () (ignore)))
 
 (defun buttercup-mark-skipped (matcher &optional reverse)
   "Mark any spec that match MATCHER as skipped.



[elpa] externals/devdocs a58b016fcd 1/3: Fix typo in docs

2022-04-10 Thread ELPA Syncer
branch: externals/devdocs
commit a58b016fcd9ef47577c314009913b8b3d9c75301
Author: Jürgen Hötzel 
Commit: GitHub 

Fix typo in docs
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 94ded7cd6d..907b0a9adf 100644
--- a/README.org
+++ b/README.org
@@ -29,7 +29,7 @@ It's handy to have a keybinding for the latter command.  One
 possibility, in analogy to =C-h S= (=info-lookup-symbol=), is
 
 #+begin_src elisp
-  (global-set-key (kbd ("C-h D")) 'devdocs-lookup)
+  (global-set-key (kbd "C-h D") 'devdocs-lookup)
 #+end_src
 
 In any given buffer, the first call to =devdocs-lookup= will query for



[elpa] externals/devdocs cfe1c60c23 2/3: Assign list-buffers-directory to the entry name

2022-04-10 Thread ELPA Syncer
branch: externals/devdocs
commit cfe1c60c23347eccabdf027f8b9f29f7ea8b91eb
Author: Daniel Nagy 
Commit: GitHub 

Assign list-buffers-directory to the entry name

This displays the entry name in `M-x list-buffers` instead of showing an
empty path column.
---
 devdocs.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/devdocs.el b/devdocs.el
index ac6a4a6eb2..364ed191f1 100644
--- a/devdocs.el
+++ b/devdocs.el
@@ -467,6 +467,7 @@ fragment part of ENTRY.path."
   (set-buffer-modified-p nil)
   (setq-local devdocs-current-docs (list .doc.slug))
   (push entry devdocs--stack)
+  (setq-local list-buffers-directory (format-mode-line devdocs-header-line 
nil nil (current-buffer)))
   (devdocs-goto-target)
   (current-buffer
 



[elpa] externals/devdocs updated (beaf3584e1 -> 4257e59daf)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch externals/devdocs.

  from  beaf3584e1 Don't show devdocs-mode specific commands in M-x
   new  a58b016fcd Fix typo in docs
   new  cfe1c60c23 Assign list-buffers-directory to the entry name
   new  4257e59daf Mark devdocs-mode as non-interactive


Summary of changes:
 README.org | 2 +-
 devdocs.el | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)



[elpa] externals/devdocs 4257e59daf 3/3: Mark devdocs-mode as non-interactive

2022-04-10 Thread ELPA Syncer
branch: externals/devdocs
commit 4257e59dafbffb2616d240f84c5c25770ee28cac
Author: Augusto Stoffel 
Commit: Augusto Stoffel 

Mark devdocs-mode as non-interactive
---
 devdocs.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/devdocs.el b/devdocs.el
index 364ed191f1..d11492bf3e 100644
--- a/devdocs.el
+++ b/devdocs.el
@@ -279,6 +279,7 @@ DOC is a document metadata alist."
 
 (define-derived-mode devdocs-mode special-mode "DevDocs"
   "Major mode for viewing DevDocs documents."
+  :interactive nil
   (setq-local
browse-url-browser-function 'devdocs--browse-url
buffer-undo-list t



[nongnu] elpa/buttercup ba62f80555: Bump version: 1.24 → 1.25

2022-04-10 Thread ELPA Syncer
branch: elpa/buttercup
commit ba62f80555d46faf49dc451c0ad20f39f6a170ab
Author: Ola Nilsson 
Commit: Ola Nilsson 

Bump version: 1.24 → 1.25
---
 .bumpversion.cfg | 3 +--
 buttercup.el | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/.bumpversion.cfg b/.bumpversion.cfg
index 39fe7e6d00..87237de92f 100644
--- a/.bumpversion.cfg
+++ b/.bumpversion.cfg
@@ -1,8 +1,7 @@
 [bumpversion]
-current_version = 1.24
+current_version = 1.25
 parse = (?P\d+)\.(?P.*)
 serialize = {major}.{minor}
 files = buttercup.el
 commit = True
 tag = True
-
diff --git a/buttercup.el b/buttercup.el
index 56605af253..7033c3a198 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2015-2017  Jorgen Schaefer 
 
-;; Version: 1.24
+;; Version: 1.25
 ;; Author: Jorgen Schaefer 
 ;; Maintainer: Ola Nilsson 
 ;; Package-Requires: ((emacs "24.3"))



[elpa] externals/compat updated (59180d1d65 -> dbdd9b3de5)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch externals/compat.

  from  59180d1d65 Do not delete compat.texi when invoking "make clean"
   new  e630fbd3cc Declare json-insert and json-parse-buffer in compat-28
   new  dbdd9b3de5 Add Emacs 28.1 to list of tested Emacs versions in 
GitHub CI


Summary of changes:
 .github/workflows/makefile.yml | 1 +
 compat-28.el   | 2 ++
 2 files changed, 3 insertions(+)



[elpa] externals/compat dbdd9b3de5 2/2: Add Emacs 28.1 to list of tested Emacs versions in GitHub CI

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit dbdd9b3de576ee0fd7a73c4ccbbc3c9c7112152e
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add Emacs 28.1 to list of tested Emacs versions in GitHub CI
---
 .github/workflows/makefile.yml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.github/workflows/makefile.yml b/.github/workflows/makefile.yml
index 8350b93a46..bf7c0f7d5a 100644
--- a/.github/workflows/makefile.yml
+++ b/.github/workflows/makefile.yml
@@ -26,6 +26,7 @@ jobs:
   - '26.3'
   - '27.1'
   - '27.2'
+  - '28.1'
   - 'snapshot'
 steps:
 - uses: actions/checkout@v2



[elpa] externals/compat e630fbd3cc 1/2: Declare json-insert and json-parse-buffer in compat-28

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit e630fbd3cc3261ccf26abd6d59216423e987fa6b
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Declare json-insert and json-parse-buffer in compat-28

These functions will either be provided by Emacs or compat, but they
still have to be declared so that their usage below doesn't trigger
compiler warnings.
---
 compat-28.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compat-28.el b/compat-28.el
index 6f55fd4564..d5dbb336ff 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -163,8 +163,10 @@ If COUNT is non-nil and a natural number, the function will
 
  Defined in json.c
 
+(declare-function json-insert nil (object &rest args))
 (declare-function json-serialize nil (object &rest args))
 (declare-function json-parse-string nil (string &rest args))
+(declare-function json-parse-buffer nil (&rest args))
 
 (compat-defun json-serialize (object &rest args)
   "Handle top-level JSON values."



[elpa] externals/compat 076b96b10b 2/2: Ensure that compatibility conditions are always tested

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit 076b96b10bea97322e087928f4d258f7c8578ea5
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Ensure that compatibility conditions are always tested
---
 compat-macs.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compat-macs.el b/compat-macs.el
index f9506df189..a53404b0eb 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -103,7 +103,7 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE."
   '(compat--ignore))
  ((plist-get attr :prefix)
   '(progn))
- ((and version (version<= version emacs-version))
+ ((and version (version<= version emacs-version) (not cond))
   '(compat--ignore))
  (`(when (and ,(if cond cond t)
   ,(funcall check-fn)))
@@ -189,7 +189,7 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE."
 '(compat--ignore))
((plist-get attr :prefix)
 '(progn))
-   ((and version (version<= version emacs-version))
+   ((and version (version<= version emacs-version) (not cond))
 '(compat--ignore))
(`(when (and ,(if cond cond t)
 ,(funcall check-fn)



[elpa] externals/compat updated (dbdd9b3de5 -> 076b96b10b)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch externals/compat.

  from  dbdd9b3de5 Add Emacs 28.1 to list of tested Emacs versions in 
GitHub CI
   new  f8a6172953 Ensure that all prefixed functions do not use :cond
   new  076b96b10b Ensure that compatibility conditions are always tested


Summary of changes:
 compat-26.el   |  3 ---
 compat-27.el   |  4 
 compat-28.el   | 36 
 compat-macs.el |  6 --
 4 files changed, 4 insertions(+), 45 deletions(-)



[elpa] externals/compat f8a6172953 1/2: Ensure that all prefixed functions do not use :cond

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit f8a6172953ee6c88485c5fb6589caebd82f18822
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Ensure that all prefixed functions do not use :cond

As a prefixed function should always be defined (even if the real
function exists and works), using conditions that might result in the
function not being included is contradictory and should be avoided.
---
 compat-26.el   |  3 ---
 compat-27.el   |  4 
 compat-28.el   | 36 
 compat-macs.el |  2 ++
 4 files changed, 2 insertions(+), 43 deletions(-)

diff --git a/compat-26.el b/compat-26.el
index e9d0d70354..f3e65b6318 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -112,9 +112,6 @@ Equality is defined by the function TESTFN, defaulting to
 ‘equal’.  TESTFN is called with 2 arguments: a car of an alist
 element and KEY.  With no optional argument, the function behaves
 just like `assoc'."
-  :cond (condition-case nil
-(or (assoc nil nil #'ignore) t)
-  (wrong-number-of-arguments nil))
   :prefix t
   (if testfn
   (catch 'found
diff --git a/compat-27.el b/compat-27.el
index ade4ae9e13..6901870fcf 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -356,10 +356,6 @@ Compare keys with TEST.  Defaults to `equal'.
 Return the modified alist.
 Elements of ALIST that are not conses are ignored."
   :prefix t
-  :cond (condition-case nil
-(or (assoc-delete-all nil nil #'ignore) t)
-  (wrong-number-of-arguments nil)
-  (void-function nil))
   (unless test (setq test #'equal))
   (while (and (consp (car alist))
  (funcall test (caar alist) key))
diff --git a/compat-28.el b/compat-28.el
index d5dbb336ff..2d6a55bf4e 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -170,15 +170,6 @@ If COUNT is non-nil and a natural number, the function will
 
 (compat-defun json-serialize (object &rest args)
   "Handle top-level JSON values."
-  :cond (condition-case err
-;; Use `random' to prevent byte compiler from optimising
-;; the "pure" `json-serialize' call.
-(ignore (json-serialize (if (random) 0 0)))
-  (wrong-type-argument (eq (cadr err) 'json-value-p))
-  ;; `json-serialize' might be disabled at compile time, so we
-  ;; have to check if an error was raised that the function
-  ;; was not defined.
-  (void-function (eq (cadr err) 'json-serialize)))
   :prefix t
   :min-version "27"
   (if (or (listp object) (vectorp object))
@@ -187,15 +178,6 @@ If COUNT is non-nil and a natural number, the function will
 
 (compat-defun json-insert (object &rest args)
   "Handle top-level JSON values."
-  :cond (condition-case err
-;; Use `random' to prevent byte compiler from optimising
-;; the "pure" `json-serialize' call.
-(ignore (json-serialize (if (random) 0 0)))
-  (wrong-type-argument (eq (cadr err) 'json-value-p))
-  ;; `json-serialize' might be disabled at compile time, so we
-  ;; have to check if an error was raised that the function
-  ;; was not defined.
-  (void-function (eq (cadr err) 'json-serialize)))
   :prefix t
   :min-version "27"
   (if (or (listp object) (vectorp object))
@@ -204,15 +186,6 @@ If COUNT is non-nil and a natural number, the function will
 
 (compat-defun json-parse-string (string &rest args)
   "Handle top-level JSON values."
-  :cond (condition-case err
-;; Use `random' to prevent byte compiler from optimising
-;; the "pure" `json-serialize' call.
-(ignore (json-parse-string (if (random) "0" "0")))
-  (json-parse-error t)
-  ;; `json-parse-string' might be disabled at compile time, so
-  ;; we have to check if an error was raised that the function
-  ;; was not defined.
-  (void-function (eq (cadr err) 'json-parse-error)))
   :prefix t
   :min-version "27"
   (if (string-match-p "\\`[[:space:]]*[[{]" string)
@@ -224,15 +197,6 @@ If COUNT is non-nil and a natural number, the function will
 
 (compat-defun json-parse-buffer (&rest args)
   "Handle top-level JSON values."
-  :cond (condition-case err
-;; Use `random' to prevent byte compiler from optimising
-;; the "pure" `json-serialize' call.
-(ignore (json-parse-string (if (random) "0" "0")))
-  (json-parse-error t)
-  ;; `json-parse-string' might be disabled at compile time, so
-  ;; we have to check if an error was raised that the function
-  ;; was not defined.
-  (void-function (eq (cadr err) 'json-parse-error)))
   :prefix t
   :min-version "27"
   (if (looking-at-p "[[:space:]]*[[{]")
diff --git a/compat-macs.el b/compat-macs.el
index 12c8c62965..f9506df189 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -202,6 +202,8 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE."
   "Common code for generating compatibility definitions.
 See `compat-generate-fun

[elpa] elpa-admin 365183ee61: * README: build/[PKGNAME] can be used to test docs extraction

2022-04-10 Thread Sean Whitton
branch: elpa-admin
commit 365183ee6166fd22bbcc784dca28478764ec088a
Author: Sean Whitton 
Commit: Sean Whitton 

* README: build/[PKGNAME] can be used to test docs extraction
---
 README | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/README b/README
index a0e34ff78c..4ff305047a 100644
--- a/README
+++ b/README
@@ -209,8 +209,11 @@ Else, it generates the auxiliary files like 
=[PKGNAME]-pkg.el= and
 Build that tarball from the commit currently in =packages/[PKGNAME]=
 
 ** =build/[PKGNAME]=
-Build the ELPA tarball(s) for PKGNAME.  The result is placed in
-the =archive= and =archive-devel= subdirectories.
+Build the ELPA tarball(s) and other files like PKGNAME.html and
+PKGNAME.svg for PKGNAME.  The result is placed in the =archive= and
+=archive-devel= subdirectories.
+
+This can be used to test commentary and changelog extraction.
 
 ** =build-all=
 Same as before but does it for all the packages listed in the



[elpa] main 959fa0a4f8: * README: build/[PKGNAME] can be used to test docs extraction

2022-04-10 Thread Sean Whitton
branch: main
commit 959fa0a4f88973447d833a50fad68bc7e4d4dae4
Author: Sean Whitton 
Commit: Sean Whitton 

* README: build/[PKGNAME] can be used to test docs extraction
---
 README | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/README b/README
index cb437651fc..b60312d495 100644
--- a/README
+++ b/README
@@ -247,8 +247,11 @@ Else, it generates the auxiliary files like 
=[PKGNAME]-pkg.el= and
 Build that tarball from the commit currently in =packages/[PKGNAME]=
 
 ** =build/[PKGNAME]=
-Build the ELPA tarball(s) for PKGNAME.  The result is placed in
-the =archive= and =archive-devel= subdirectories.
+Build the ELPA tarball(s) and other files like PKGNAME.html and
+PKGNAME.svg for PKGNAME.  The result is placed in the =archive= and
+=archive-devel= subdirectories.
+
+This can be used to test commentary and changelog extraction.
 
 ** =build-all=
 Same as before but does it for all the packages listed in the



[elpa] branch externals/transient-cycles created (now a5b86dd04e)

2022-04-10 Thread Sean Whitton
spwhitton pushed a change to branch externals/transient-cycles.

at  a5b86dd04e * transient-cycles: Import version 1.0

This branch includes the following new commits:

   new  a5b86dd04e * transient-cycles: Import version 1.0




[elpa] externals/transient-cycles a5b86dd04e: * transient-cycles: Import version 1.0

2022-04-10 Thread Sean Whitton
branch: externals/transient-cycles
commit a5b86dd04e84e7ff1cf8c4062843fccb92991145
Author: Sean Whitton 
Commit: Sean Whitton 

* transient-cycles: Import version 1.0
---
 transient-cycles.el | 598 
 1 file changed, 598 insertions(+)

diff --git a/transient-cycles.el b/transient-cycles.el
new file mode 100644
index 00..4e78db2261
--- /dev/null
+++ b/transient-cycles.el
@@ -0,0 +1,598 @@
+;;; transient-cycles.el --- Define command variants with transient cycling  
-*- lexical-binding: t -*-
+
+;; Copyright (C) 2020-2022  Free Software Foundation, Inc.
+
+;; Author: Sean Whitton 
+;; Maintainer: Sean Whitton 
+;; Package-Requires: ((emacs "27.1"))
+;; Version: 1.0
+;; URL: 
https://git.spwhitton.name/dotfiles/tree/.emacs.d/site-lisp/transient-cycles.el
+;; Keywords: buffer, window, minor-mode, convenience
+
+;; This file is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this file.  If not, see .
+
+;;; Commentary:
+
+;; Many commands can be conceptualised as selecting an item from an ordered
+;; list or ring.  Sometimes after running such a command, you find that the
+;; item selected is not the one you would have preferred, but the preferred
+;; item is nearby in the list.  If the command has been augmented with
+;; transient cycling, then it finishes by setting a transient map with keys to
+;; move backwards and forwards in the list of items, so you can select a
+;; nearby item instead of the one the command selected.  From the point of
+;; view of commands subsequent to the deactivation of the transient map, it is
+;; as though the first command actually selected the nearby item, not the one
+;; it really selected.
+;;
+;; For example, suppose that you often use `eshell' with a prefix argument to
+;; create multiple Eshell buffers, *eshell*, *eshell*<2>, *eshell*<3> and so
+;; on.  When you use `switch-to-buffer' to switch to one of these buffers, you
+;; will typically end up in the most recently used Eshell.  But sometimes what
+;; you wanted was an older Eshell -- but which one?  It would be convenient to
+;; quickly cycle through the other Eshell buffers when you discover that
+;; `switch-to-buffer' took you to the wrong one.  That way, you don't need to
+;; remember which numbered Eshell you were using to do what.
+;;
+;; In this example, we can think of `switch-to-buffer' as selecting from the
+;; list of buffers in `eshell-mode'.  If we augment the command with transient
+;; cycling, then you can use the next and previous keys in the transient map
+;; to cycle through the `eshell-mode' buffers to get to the right one.
+;; Afterwards, it is as though `switch-to-buffer' had taken you directly
+;; there: the buffer list is undisturbed except for the target Eshell buffer
+;; having been moved to the top, and only the target Eshell buffer is pushed
+;; to the window's previous buffers (see `window-prev-buffers').
+;;
+;; This library provides macros to define variants of commands which have
+;; transient cycling, and also some minor modes which replace some standard
+;; Emacs commands with transient cycling variants the author has found useful.
+;; `transient-cycles-buffer-siblings-mode' implements a slightly more complex
+;; version of the transient cycling described in the above example.
+;;
+;; Definitions of command variants in this file only hide the fact that
+;; transient cycling went on -- in the above example, how the buffer list is
+;; undisturbed and how only the final buffer is pushed to the window's
+;; previous buffers -- to the extent that doing so does not require saving a
+;; lot of information when commencing transient cycling.
+
+;;; News:
+
+;; Ver 1.0 2022/04/10 Sean Whitton
+;; Initial release.
+;; Thanks to Protesilaos Stavrou for testing and docs feedback.
+
+;;; Code:
+
+(require 'ring)
+(require 'subr-x)
+(require 'cl-lib)
+
+(defgroup transient-cycles nil
+  "Defaults and options when defining variants of commands with
+transient cycling."
+  :group 'convenience)
+
+(defcustom transient-cycles-show-cycling-keys t
+  "Whether to show the cycling keys in the echo area when
+commencing transient cycling."
+  :type 'boolean
+  :group 'transient-cycles)
+
+(defcustom transient-cycles-default-cycle-backwards-key [left]
+  "Default key for cycling backwards in the transient maps set by
+commands to which transient cycling has been added."
+  :type 'key-sequence
+  :gr

[elpa] main a0c99e7e04: * elpa-packages (transient-cycles): New package

2022-04-10 Thread Sean Whitton
branch: main
commit a0c99e7e04995e67120b2f43633a78c1af5b4b21
Author: Sean Whitton 
Commit: Sean Whitton 

* elpa-packages (transient-cycles): New package
---
 elpa-packages | 1 +
 1 file changed, 1 insertion(+)

diff --git a/elpa-packages b/elpa-packages
index c9a080c11d..18678f1b7e 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -598,6 +598,7 @@
   :renames (("docs/" ""))
   :news "CHANGELOG"
   :doc "docs/transient.texi")
+ ("transient-cycles":url nil)
  ("trie"   :url "http://www.dr-qubit.org/git/predictive.git";)
  ;; FIXME: The upstream of `undo-tree' has diverged.  I tried to
  ;; contact Toby but he's quite busy.  He mentioned thinking of using the



[elpa] externals/compat updated (076b96b10b -> 7462eb1c70)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch externals/compat.

  from  076b96b10b Ensure that compatibility conditions are always tested
   new  3ca30f2890 Use if-let instead of compat-if-let in when-let
   new  7462eb1c70 Fix bug in compat-insert when loading non-byte-compiled 
files


Summary of changes:
 compat-25.el | 2 +-
 compat.el| 6 --
 2 files changed, 5 insertions(+), 3 deletions(-)



[elpa] externals/compat 3ca30f2890 1/2: Use if-let instead of compat-if-let in when-let

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit 3ca30f289001be82b10a833aaca1fefebf9212bc
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Use if-let instead of compat-if-let in when-let
---
 compat-25.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compat-25.el b/compat-25.el
index 36d58d21c9..b236622714 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -189,7 +189,7 @@ If all are non-nil, return the value of the last form in 
BODY.
 The variable list SPEC is the same as in `if-let'."
   :feature 'subr-x
   (declare (indent 1) (debug if-let))
-  `(compat-if-let ,spec ,(macroexp-progn body)))
+  `(if-let ,spec ,(macroexp-progn body)))
 
 (compat-defmacro thread-first (&rest forms)
   "Thread FORMS elements as the first argument of their successor.



[elpa] externals/poke-mode updated (caf4d7c02c -> 3f36f071c0)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch externals/poke-mode.

  from  caf4d7c02c poke-smie-rules: add rule for methods
   new  e82e106625 Improve indentation of IF statements
   new  e34f759b26 fix spurious fragment
   new  3f36f071c0 Go back to modify forward-sexp-function when calling 
backward-sexp


Summary of changes:
 poke-mode.el | 49 -
 1 file changed, 44 insertions(+), 5 deletions(-)



[elpa] externals/poke-mode e34f759b26 2/3: fix spurious fragment

2022-04-10 Thread ELPA Syncer
branch: externals/poke-mode
commit e34f759b26e566d4b79dc48ef52cbd72704c54b0
Author: Jose E. Marchesi 
Commit: Jose E. Marchesi 

fix spurious fragment
---
 poke-mode.el | 4 
 1 file changed, 4 deletions(-)

diff --git a/poke-mode.el b/poke-mode.el
index 413662a41a..8e9daee303 100644
--- a/poke-mode.el
+++ b/poke-mode.el
@@ -318,10 +318,6 @@
  (t
   token
 
-  ;; FIXME:
-  ;; Don't merge ":" or ";" with some preceding punctuation such as ">".
-  (smie-default-forward-token))
-
 (defun poke--smie-backward-token ()
   (forward-comment (- (point)))
   (cond



[elpa] externals/poke-mode e82e106625 1/3: Improve indentation of IF statements

2022-04-10 Thread ELPA Syncer
branch: externals/poke-mode
commit e82e106625650452045eaaf4d815baf54391a952
Author: Jose E. Marchesi 
Commit: Jose E. Marchesi 

Improve indentation of IF statements
---
 poke-mode.el | 56 ++--
 1 file changed, 54 insertions(+), 2 deletions(-)

diff --git a/poke-mode.el b/poke-mode.el
index 411ce49ea3..413662a41a 100644
--- a/poke-mode.el
+++ b/poke-mode.el
@@ -283,13 +283,41 @@
   (stmt (comp-stmt)
 (id "=" exp)
 ("return" exp)
-("if" stmt "else" stmt)
+("if" "if-(" exp "if-)" stmt "else" stmt)
 (exp))
   (stmts (stmts ";" stmts) (stmt)))
 '((assoc ";") (assoc ",")
   (assoc "+") (assoc "-")
 
+(defvar poke--smie-in-if-op nil)
+
 (defun poke--smie-forward-token ()
+  (let ((case-fold-search nil)
+(token (smie-default-forward-token)))
+(cond
+ ;; Handle if-(
+ ((and (or (equal token "") (not token)) (looking-at "("))
+  (when (looking-back "if[ \t\n]*")
+(forward-char 1)
+"if-("))
+ ;; Handle if-)
+ ((and (or (equal token "") (not token))
+   (not poke--smie-in-if-op) (looking-at ")"))
+  (condition-case nil
+  (when (save-excursion
+  (forward-char 1)
+  (setq poke--smie-in-if-op t)
+  (backward-sexp)
+  (setq poke--smie-in-if-op nil)
+  (looking-back "if[ \t\n]*"))
+(forward-char 1)
+"if-)")
+(scan-error
+ (setq poke--smie-in-if-op nil)
+ nil)))
+ (t
+  token
+
   ;; FIXME:
   ;; Don't merge ":" or ";" with some preceding punctuation such as ">".
   (smie-default-forward-token))
@@ -301,7 +329,31 @@
((memq (char-before) '(?: ?\;))
 (forward-char -1)
 (string (char-after)))
-   (t (smie-default-backward-token
+   (t
+(let ((case-fold-search nil)
+  (token (smie-default-backward-token)))
+  (cond
+   ;; Handle if-(
+   ((and (or (equal token "") (not token)) (looking-back "if[ \t\n]*("))
+(setq poke--smie-if-op (point))
+(forward-char -1)
+"if-(")
+   ;; Handle if-)
+   ((and (or (equal token "") (not token))
+ (not poke--smie-in-if-op) (looking-back ")"))
+(condition-case nil
+(when (save-excursion
+(setq poke--smie-in-if-op t)
+(backward-sexp)
+(setq poke--smie-in-if-op nil)
+(looking-back "if[ \t\n]*"))
+  (forward-char -1)
+  "if-)")
+  (scan-error
+   (setq poke--smie-in-if-op nil)
+   nil)))
+   (t
+token))
 
 (defun poke-smie-rules (token kind)
   (pcase (cons token kind)



[elpa] externals/compat 7462eb1c70 2/2: Fix bug in compat-insert when loading non-byte-compiled files

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit 7462eb1c708a12fe4b80da5b4ba94ac4e843224c
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Fix bug in compat-insert when loading non-byte-compiled files
---
 compat.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compat.el b/compat.el
index 982c6524c6..ed9388bf7d 100644
--- a/compat.el
+++ b/compat.el
@@ -59,8 +59,10 @@
  (file (expand-file-name
 (format "compat-%s.el" version)
 (file-name-directory
- (or (and (boundp 'byte-compile-current-file) 
byte-compile-current-file)
- load-file-name
+ (or (and (boundp 'load-file-name)
+  load-file-name)
+ (and (boundp 'byte-compile-current-file)
+  byte-compile-current-file)
  buffer-file-name
  (byte-compile-current-file file)
  defs)



[elpa] externals/poke-mode 3f36f071c0 3/3: Go back to modify forward-sexp-function when calling backward-sexp

2022-04-10 Thread ELPA Syncer
branch: externals/poke-mode
commit 3f36f071c0cc154e4da2cdfdfad3d98a4b24
Author: Jose E. Marchesi 
Commit: Jose E. Marchesi 

Go back to modify forward-sexp-function when calling backward-sexp
---
 poke-mode.el | 21 ++---
 1 file changed, 6 insertions(+), 15 deletions(-)

diff --git a/poke-mode.el b/poke-mode.el
index 8e9daee303..cd08b4a97c 100644
--- a/poke-mode.el
+++ b/poke-mode.el
@@ -289,8 +289,6 @@
 '((assoc ";") (assoc ",")
   (assoc "+") (assoc "-")
 
-(defvar poke--smie-in-if-op nil)
-
 (defun poke--smie-forward-token ()
   (let ((case-fold-search nil)
 (token (smie-default-forward-token)))
@@ -301,19 +299,16 @@
 (forward-char 1)
 "if-("))
  ;; Handle if-)
- ((and (or (equal token "") (not token))
-   (not poke--smie-in-if-op) (looking-at ")"))
+ ((and (or (equal token "") (not token)) (looking-at ")"))
   (condition-case nil
   (when (save-excursion
   (forward-char 1)
-  (setq poke--smie-in-if-op t)
-  (backward-sexp)
-  (setq poke--smie-in-if-op nil)
+  (let ((forward-sexp-function nil))
+(backward-sexp))
   (looking-back "if[ \t\n]*"))
 (forward-char 1)
 "if-)")
 (scan-error
- (setq poke--smie-in-if-op nil)
  nil)))
  (t
   token
@@ -331,22 +326,18 @@
   (cond
;; Handle if-(
((and (or (equal token "") (not token)) (looking-back "if[ \t\n]*("))
-(setq poke--smie-if-op (point))
 (forward-char -1)
 "if-(")
;; Handle if-)
-   ((and (or (equal token "") (not token))
- (not poke--smie-in-if-op) (looking-back ")"))
+   ((and (or (equal token "") (not token)) (looking-back ")"))
 (condition-case nil
 (when (save-excursion
-(setq poke--smie-in-if-op t)
-(backward-sexp)
-(setq poke--smie-in-if-op nil)
+(let ((forward-sexp-function nil))
+  (backward-sexp))
 (looking-back "if[ \t\n]*"))
   (forward-char -1)
   "if-)")
   (scan-error
-   (setq poke--smie-in-if-op nil)
nil)))
(t
 token))



[nongnu] elpa/buttercup ceedad5efa: Test on GNU Emacs 28.1

2022-04-10 Thread ELPA Syncer
branch: elpa/buttercup
commit ceedad5efa797e860dbb356bc2c3028a4e0321ec
Author: Ola Nilsson 
Commit: Ola Nilsson 

Test on GNU Emacs 28.1
---
 .github/workflows/test.yml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 7906981f56..d19c3f0615 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -29,6 +29,7 @@ jobs:
   - 26.2
   - 26.3
   - 27.1
+  - 28.1
   - snapshot
 steps:
 - uses: purcell/setup-emacs@master



[elpa] externals/compat a09c6c260c: Remove unnecessary comment from compat-insert

2022-04-10 Thread ELPA Syncer
branch: externals/compat
commit a09c6c260ca61a5f2ffd88109659a6c7f7712c9a
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Remove unnecessary comment from compat-insert
---
 compat.el | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/compat.el b/compat.el
index ed9388bf7d..e233dede34 100644
--- a/compat.el
+++ b/compat.el
@@ -52,9 +52,6 @@
  ((or (not (eq compat--generate-function 'compat--generate-minimal))
   (bound-and-true-p compat-testing))
   `(load ,(format "compat-%s.el" version)))
- ;; ((version<= version emacs-version)
- ;;  ;; We don't need to do anything.
- ;;  nil)
  ((let* ((compat--generate-function 'compat--generate-minimal-no-prefix)
  (file (expand-file-name
 (format "compat-%s.el" version)



[elpa] externals/poke-mode b06f550bd3: Better handle `else'

2022-04-10 Thread ELPA Syncer
branch: externals/poke-mode
commit b06f550bd375fcd563cfe05d78c9c39822bfc1c1
Author: Jose E. Marchesi 
Commit: Jose E. Marchesi 

Better handle `else'
---
 poke-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/poke-mode.el b/poke-mode.el
index cd08b4a97c..fdbcb005a0 100644
--- a/poke-mode.el
+++ b/poke-mode.el
@@ -283,8 +283,9 @@
   (stmt (comp-stmt)
 (id "=" exp)
 ("return" exp)
-("if" "if-(" exp "if-)" stmt "else" stmt)
+("else" exp-if)
 (exp))
+  (exp-if ("if" "if-(" exp "if-)" stmt))
   (stmts (stmts ";" stmts) (stmt)))
 '((assoc ";") (assoc ",")
   (assoc "+") (assoc "-")



[nongnu] elpa/php-mode updated (5f26bec865 -> f8cbf368c8)

2022-04-10 Thread ELPA Syncer
elpasync pushed a change to branch elpa/php-mode.

  from  5f26bec865 Merge pull request #693 from 
emacs-php/feature/php-project-project-find-function
   new  c78ea06257 Add Emacs 28.1 to CI
   new  6d7c2f7e71 Emacs 28 is a current stable version
   new  f8cbf368c8 Merge pull request #694 from 
emacs-php/update/support-emacs28


Summary of changes:
 .github/workflows/test.yml | 1 +
 README.ja.md   | 4 ++--
 README.md  | 4 ++--
 3 files changed, 5 insertions(+), 4 deletions(-)



[nongnu] elpa/php-mode c78ea06257 1/3: Add Emacs 28.1 to CI

2022-04-10 Thread ELPA Syncer
branch: elpa/php-mode
commit c78ea06257e0a8b8415e5c722a676cd1d3a08bd0
Author: USAMI Kenta 
Commit: USAMI Kenta 

Add Emacs 28.1 to CI
---
 .github/workflows/test.yml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 5bd9e04a66..6432169bd9 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -20,6 +20,7 @@ jobs:
   - "26.3"
   - "27.1"
   - "27.2"
+  - "28.1"
   - snapshot
 include:
   - emacs_version: snapshot



[nongnu] elpa/php-mode 6d7c2f7e71 2/3: Emacs 28 is a current stable version

2022-04-10 Thread ELPA Syncer
branch: elpa/php-mode
commit 6d7c2f7e71dcfa4231c0fc72c49d075f3a8400bf
Author: USAMI Kenta 
Commit: USAMI Kenta 

Emacs 28 is a current stable version
---
 README.ja.md | 4 ++--
 README.md| 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.ja.md b/README.ja.md
index b5e2360ff4..624e947030 100644
--- a/README.ja.md
+++ b/README.ja.md
@@ -1,7 +1,7 @@
 
   Emacs PHP Mode
 
-[![Emacs: 
28.0](https://img.shields.io/badge/Emacs-28.0-blue.svg)](https://www.gnu.org/software/emacs/)
+[![Emacs: 
28.1](https://img.shields.io/badge/Emacs-28.1-blue.svg)](https://www.gnu.org/software/emacs/)
 [![lang: PHP 
8.1](https://img.shields.io/badge/lang-PHP%208.1-brightgreen.svg)](https://php.net/manual/migration81.php)
 [![lang: PHP 
7](https://img.shields.io/badge/lang-PHP%207-green.svg)](https://php.net/downloads.php)
 [![Build 
Status](https://github.com/emacs-php/php-mode/workflows/CI/badge.svg)](https://github.com/emacs-php/php-mode/actions)
@@ -26,7 +26,7 @@ A powerful and flexible Emacs major mode for editing PHP 
scripts
 
 [![NonGNU ELPA][nongnu-elpa-badge]][nongnu-elpa] [![NonGNU-devel 
ELPA][nongnu-devel-elpa-badge]][nongnu-devel-elpa]
 
-Emacs 28 (未リリース; 次期バージョン) では[NonGNU 
ELPA](https://elpa.nongnu.org/)がデフォルトのパッケージリポジトリとして追加されています。
+Emacs 28 (最新安定版) では[NonGNU 
ELPA](https://elpa.nongnu.org/)がデフォルトのパッケージリポジトリとして追加されています。
 
 ```el
 ;; For Emacs < 28
diff --git a/README.md b/README.md
index 17702160e3..266bd47920 100644
--- a/README.md
+++ b/README.md
@@ -1,7 +1,7 @@
 
   Emacs PHP Mode
 
-[![Emacs: 
28.0](https://img.shields.io/badge/Emacs-28.0-blue.svg)](https://www.gnu.org/software/emacs/)
+[![Emacs: 
28.1](https://img.shields.io/badge/Emacs-28.1-blue.svg)](https://www.gnu.org/software/emacs/)
 [![lang: PHP 
8.1](https://img.shields.io/badge/lang-PHP%208.1-brightgreen.svg)](https://php.net/manual/migration81.php)
 [![lang: PHP 
7](https://img.shields.io/badge/lang-PHP%207-green.svg)](https://php.net/downloads.php)
 [![Build 
Status](https://github.com/emacs-php/php-mode/workflows/CI/badge.svg)](https://github.com/emacs-php/php-mode/actions)
@@ -28,7 +28,7 @@ The current support policy can be found on the [Supported 
Version] page.
 
 [![NonGNU ELPA][nongnu-elpa-badge]][nongnu-elpa] [![NonGNU-devel 
ELPA][nongnu-devel-elpa-badge]][nongnu-devel-elpa]
 
-Emacs 28 (unreleased; next major version) includes [NonGNU 
ELPA](https://elpa.nongnu.org/) as the default package repository.
+Emacs 28 (latest stable release) includes [NonGNU 
ELPA](https://elpa.nongnu.org/) as the default package repository.
 
 ```el
 ;; For Emacs < 28



[nongnu] elpa/php-mode f8cbf368c8 3/3: Merge pull request #694 from emacs-php/update/support-emacs28

2022-04-10 Thread ELPA Syncer
branch: elpa/php-mode
commit f8cbf368c803cbcc8ca2468f98a37cf915673c1c
Merge: 5f26bec865 6d7c2f7e71
Author: USAMI Kenta 
Commit: GitHub 

Merge pull request #694 from emacs-php/update/support-emacs28

Support Emacs 28.1
---
 .github/workflows/test.yml | 1 +
 README.ja.md   | 4 ++--
 README.md  | 4 ++--
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 5bd9e04a66..6432169bd9 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -20,6 +20,7 @@ jobs:
   - "26.3"
   - "27.1"
   - "27.2"
+  - "28.1"
   - snapshot
 include:
   - emacs_version: snapshot
diff --git a/README.ja.md b/README.ja.md
index b5e2360ff4..624e947030 100644
--- a/README.ja.md
+++ b/README.ja.md
@@ -1,7 +1,7 @@
 
   Emacs PHP Mode
 
-[![Emacs: 
28.0](https://img.shields.io/badge/Emacs-28.0-blue.svg)](https://www.gnu.org/software/emacs/)
+[![Emacs: 
28.1](https://img.shields.io/badge/Emacs-28.1-blue.svg)](https://www.gnu.org/software/emacs/)
 [![lang: PHP 
8.1](https://img.shields.io/badge/lang-PHP%208.1-brightgreen.svg)](https://php.net/manual/migration81.php)
 [![lang: PHP 
7](https://img.shields.io/badge/lang-PHP%207-green.svg)](https://php.net/downloads.php)
 [![Build 
Status](https://github.com/emacs-php/php-mode/workflows/CI/badge.svg)](https://github.com/emacs-php/php-mode/actions)
@@ -26,7 +26,7 @@ A powerful and flexible Emacs major mode for editing PHP 
scripts
 
 [![NonGNU ELPA][nongnu-elpa-badge]][nongnu-elpa] [![NonGNU-devel 
ELPA][nongnu-devel-elpa-badge]][nongnu-devel-elpa]
 
-Emacs 28 (未リリース; 次期バージョン) では[NonGNU 
ELPA](https://elpa.nongnu.org/)がデフォルトのパッケージリポジトリとして追加されています。
+Emacs 28 (最新安定版) では[NonGNU 
ELPA](https://elpa.nongnu.org/)がデフォルトのパッケージリポジトリとして追加されています。
 
 ```el
 ;; For Emacs < 28
diff --git a/README.md b/README.md
index 17702160e3..266bd47920 100644
--- a/README.md
+++ b/README.md
@@ -1,7 +1,7 @@
 
   Emacs PHP Mode
 
-[![Emacs: 
28.0](https://img.shields.io/badge/Emacs-28.0-blue.svg)](https://www.gnu.org/software/emacs/)
+[![Emacs: 
28.1](https://img.shields.io/badge/Emacs-28.1-blue.svg)](https://www.gnu.org/software/emacs/)
 [![lang: PHP 
8.1](https://img.shields.io/badge/lang-PHP%208.1-brightgreen.svg)](https://php.net/manual/migration81.php)
 [![lang: PHP 
7](https://img.shields.io/badge/lang-PHP%207-green.svg)](https://php.net/downloads.php)
 [![Build 
Status](https://github.com/emacs-php/php-mode/workflows/CI/badge.svg)](https://github.com/emacs-php/php-mode/actions)
@@ -28,7 +28,7 @@ The current support policy can be found on the [Supported 
Version] page.
 
 [![NonGNU ELPA][nongnu-elpa-badge]][nongnu-elpa] [![NonGNU-devel 
ELPA][nongnu-devel-elpa-badge]][nongnu-devel-elpa]
 
-Emacs 28 (unreleased; next major version) includes [NonGNU 
ELPA](https://elpa.nongnu.org/) as the default package repository.
+Emacs 28 (latest stable release) includes [NonGNU 
ELPA](https://elpa.nongnu.org/) as the default package repository.
 
 ```el
 ;; For Emacs < 28



[elpa] externals/ergoemacs-mode d304b7f4cb: Fix for #515

2022-04-10 Thread ELPA Syncer
branch: externals/ergoemacs-mode
commit d304b7f4cb63d707ac7a47a0da0d09a7e713bdb3
Author: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfid...@users.noreply.github.com>

Fix for #515
---
 ergoemacs-themes.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 0bb48341e9..efd6897cf5 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -1236,6 +1236,7 @@ In a terminal, this can be either arrow keys (e.g. meta+O 
A == ) or regular
(ergoemacs-unset-keys-in-map isearch-mode-map)
(define-key isearch-mode-map (kbd "C-x C-q") 'isearch-edit-string)
(define-key isearch-mode-map (kbd "") 'isearch-edit-string)
+   (define-key isearch-mode-map (kbd "C-f") 'isearch-repeat-forward)
;; Mode specific changes
(if (string-equal ergoemacs-theme "reduction")
(progn



[elpa] externals/pyim 01d6c038b8: * pyim-page.el (pyim-page-preview-create:xingma): Use pyim-entered-with-entered-buffer instead.

2022-04-10 Thread ELPA Syncer
branch: externals/pyim
commit 01d6c038b87ddf61cb60e77e7b43e398b9f780b5
Author: Feng Shu 
Commit: Feng Shu 

* pyim-page.el (pyim-page-preview-create:xingma): Use 
pyim-entered-with-entered-buffer instead.
---
 pyim-page.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pyim-page.el b/pyim-page.el
index 043e6a22fd..95184fdbd2 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -359,7 +359,7 @@ page 的概念,比如,上面的 “nihao” 的 *待选词列表* 就可以
 (split-string x "'")
 "'")))
   ;; | 显示光标位置的字符
-  (pyim-process-with-entered-buffer
+  (pyim-entered-with-entered-buffer
 (if (equal (point) (point-max))
 (fmt (buffer-substring-no-properties (point-min) (point-max)))
   (concat (fmt (buffer-substring-no-properties (point-min) (point)))



[elpa] externals/ergoemacs-mode 9cd89eef49: This will attempt to call `C-x r SPC`, though it still dosen't work

2022-04-10 Thread ELPA Syncer
branch: externals/ergoemacs-mode
commit 9cd89eef490f6c9f4af273bb3dd2c68d5ed2de61
Author: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfid...@users.noreply.github.com>

This will attempt to call `C-x r SPC`, though it still dosen't work

Related to #516
---
 ergoemacs-command-loop.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index ca00207d6d..01f5cf54e7 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -830,6 +830,7 @@ UNCHORDED is this a unchorded key?
 TRANS translation information.
 
 KEYS is the keys information"
+
   (format
"%s" (concat
  ergoemacs-command-loop--read-key-prompt
@@ -844,7 +845,7 @@ KEYS is the keys information"
   (or (and blink-on ergoemacs-command-loop-blink-character)
   " "))
  " ")
- trans
+ ;trans
  keys)))
 
 (defvar erogemacs-command--echo-timer nil)
@@ -2303,7 +2304,7 @@ For instance in QWERTY M-> is shift translated to M-."
   
   ;; These are stored in 
`ergoemacs-command-loop--execute-modify-command-list'
 
- (ergoemacs-command-loop--execute-modify-command-list command)
+   (ergoemacs-command-loop--execute-modify-command-list command)
   
   ;; Handle Shift Selection
   (ergoemacs-command-loop--execute-handle-shift-selection this-command)



[elpa] externals/lin 0917f889d5: Add link to mailing list in lin.el

2022-04-10 Thread ELPA Syncer
branch: externals/lin
commit 0917f889d59d5924358c517f4fa75629f2cd6d2c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add link to mailing list in lin.el
---
 lin.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lin.el b/lin.el
index 37b3828867..9ec7d06cb6 100644
--- a/lin.el
+++ b/lin.el
@@ -4,6 +4,7 @@
 
 ;; Author: Protesilaos Stavrou 
 ;; URL: https://git.sr.ht/~protesilaos/lin
+;; Mailing list: https://lists.sr.ht/~protesilaos/lin
 ;; Version: 0.3.0
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, faces, theme



[elpa] externals/logos 313f920a7a: Add link to mailing list in logos.el

2022-04-10 Thread ELPA Syncer
branch: externals/logos
commit 313f920a7a4da46594ac0fc843c915d64787c313
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add link to mailing list in logos.el
---
 logos.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/logos.el b/logos.el
index 14e8dc39f1..ea296fe5a2 100644
--- a/logos.el
+++ b/logos.el
@@ -4,6 +4,7 @@
 
 ;; Author: Protesilaos Stavrou 
 ;; URL: https://git.sr.ht/~protesilaos/logos
+;; Mailing list: https://lists.sr.ht/~protesilaos/logos
 ;; Version: 0.3.1
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, focus, writing, presentation, narrowing



[elpa] externals/pulsar 22506b05bd: Add link to mailing list in pulsar.el

2022-04-10 Thread ELPA Syncer
branch: externals/pulsar
commit 22506b05bd7354ed40dd196e641ae3a44d5afef8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add link to mailing list in pulsar.el
---
 pulsar.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pulsar.el b/pulsar.el
index 3a2af2a6a9..cc7ba57e4a 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -4,6 +4,7 @@
 
 ;; Author: Protesilaos Stavrou 
 ;; URL: https://git.sr.ht/~protesilaos/pulsar
+;; Mailing list: https://lists.sr.ht/~protesilaos/pulsar
 ;; Version: 0.3.0
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, pulse, highlight