emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/jinx 0e2dc2d283: derived-mode-p: Calling convention cha


From: ELPA Syncer
Subject: [elpa] externals/jinx 0e2dc2d283: derived-mode-p: Calling convention change
Date: Thu, 23 Nov 2023 15:58:28 -0500 (EST)

branch: externals/jinx
commit 0e2dc2d283db6d5d092f112b6dee13fa207e95d4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    derived-mode-p: Calling convention change
---
 jinx.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/jinx.el b/jinx.el
index 30dc6373e6..ca0fbc833d 100644
--- a/jinx.el
+++ b/jinx.el
@@ -841,7 +841,11 @@ If SAVE is non-nil save, otherwise format candidate given 
action KEY."
 ;;;###autoload
 (defun jinx-languages (langs &optional global)
   "Set languages locally or globally to LANGS.
-With prefix argument GLOBAL change the languages globally."
+LANGS should be one or more language codes as a string, separated
+by whitespace.  When called interactively, the language codes are
+read via `completing-read-multiple'.  If the prefix argument
+GLOBAL is non-nil, the languages are changed globally for all
+buffers.  See also the variable `jinx-languages'."
   (interactive
    (list
     (progn
@@ -983,7 +987,7 @@ This command dispatches to the following commands:
           jinx--include-faces (jinx--mode-list jinx-include-faces)
           jinx--exclude-faces (jinx--mode-list jinx-exclude-faces)
           jinx--camel (or (eq jinx-camel-modes t)
-                          (apply #'derived-mode-p jinx-camel-modes))
+                          (seq-some #'derived-mode-p jinx-camel-modes))
           jinx--session-words (split-string jinx-local-words))
     (jinx--load-dicts)
     (add-hook 'window-state-change-hook #'jinx--reschedule nil t)
@@ -1025,7 +1029,7 @@ symbols or elements of the form (not modes)."
                                   ('t t)
                                   ('nil 0)
                                   ((pred symbolp) (and (derived-mode-p p) t))
-                                  (`(not . ,m) (and (apply #'derived-mode-p m) 
0)))))))
+                                  (`(not . ,m) (and (seq-some #'derived-mode-p 
m) 0)))))))
     (jinx-mode 1)))
 
 (put #'jinx-correct-select 'completion-predicate #'ignore)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]