update packages

lisp/multiple-cursors/mc-mark-more.el

@@ -29,6 +29,7 @@
 
 (require 'multiple-cursors-core)
 (require 'thingatpt)
+(require 'sgml-mode)
 
 (defun mc/cursor-end (cursor)
   (if (overlay-get cursor 'mark-active)
@@ -96,8 +97,8 @@ to (point)), or nil."
   "How should mc/mark-more-* search for more matches?
 
 Match everything: nil
-Match only whole words: 'words
-Match only whole symbols: 'symbols
+Match only whole words: \\='words
+Match only whole symbols: \\='symbols
 
 Use like case-fold-search, don't recommend setting it globally.")
 
@@ -497,20 +498,27 @@ remove the keymap depends on user input and KEEP-PRED:
 
       (push alist emulation-mode-map-alists))))
 
+(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
+
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>") 'mc/mmlte--down)
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>") 'mc/mmlte--left)
+(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>") 'mc/mmlte--right)
+
 ;;;###autoload
 (defun mc/mark-more-like-this-extended ()
   "Like mark-more-like-this, but then lets you adjust with arrow keys.
 The adjustments work like this:
 
-   <up>    Mark previous like this and set direction to 'up
-   <down>  Mark next like this and set direction to 'down
+   <up>    Mark previous like this and set direction to \\='up
+   <down>  Mark next like this and set direction to \\='down
 
-If direction is 'up:
+If direction is \\='up:
 
    <left>  Skip past the cursor furthest up
    <right> Remove the cursor furthest up
 
-If direction is 'down:
+If direction is \\='down:
 
    <left>  Remove the cursor furthest down
    <right> Skip past the cursor furthest down
@@ -558,13 +566,6 @@ are we working on the next or previous cursors?")
     (mc/skip-to-next-like-this))
   (mc/mmlte--message))
 
-(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
-
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>") 'mc/mmlte--down)
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>") 'mc/mmlte--left)
-(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>") 'mc/mmlte--right)
-
 (defvar mc--restrict-mark-all-to-symbols nil)
 
 ;;;###autoload

lisp/multiple-cursors/multiple-cursors-core.el

@@ -334,7 +334,7 @@ values."
   (let ((mc-name (intern (concat "mc--" (symbol-name fn-name)))))
     `(progn
        (defun ,mc-name (orig-fun &rest args)
-         (if (not multiple-cursors-mode)
+         (if (not (bound-and-true-p multiple-cursors-mode))
              (apply orig-fun args)
            (let* ((cache-key (cons ,(symbol-name fn-name) (,args-cache-key-fn args)))
                   (cached-value (assoc cache-key mc--input-function-cache))
@@ -743,7 +743,7 @@ They are temporarily disabled when multiple-cursors are active.")
 
 (defun mc/temporarily-disable-minor-mode (mode)
   "If MODE is available and turned on, remember that and turn it off."
-  (when (and (boundp mode) (eval mode))
+  (when (and (boundp mode) (symbol-value mode))
     (add-to-list 'mc/temporarily-disabled-minor-modes mode)
     (funcall mode -1)))
 

lisp/multiple-cursors/multiple-cursors-pkg.el

@@ -1,6 +1,8 @@
-(define-package "multiple-cursors" "20230728.518" "Multiple cursors for Emacs."
+(define-package "multiple-cursors" "20250210.1813" "Multiple cursors for emacs."
   '((cl-lib "0.5"))
-  :commit "234806c832994cadedb42596fe235e91bbd59e8c" :authors
+  :commit "89f1a8df9b1fc721b1672b4c7b6d3ab451e7e3ef" :authors
+  '(("Magnar Sveen" . "magnars@gmail.com"))
+  :maintainers
   '(("Magnar Sveen" . "magnars@gmail.com"))
   :maintainer
   '("Magnar Sveen" . "magnars@gmail.com")

lisp/multiple-cursors/multiple-cursors.el

@@ -3,7 +3,8 @@
 ;; Copyright (C) 2012-2016 Magnar Sveen
 
 ;; Author: Magnar Sveen <magnars@gmail.com>
-;; Version: 1.4.0
+;; Package-Version: 1.5.0
+;; Package-Requires: ((cl-lib "0.5"))
 ;; Keywords: editing cursors
 ;; Homepage: https://github.com/magnars/multiple-cursors.el