update packages

lisp/posframe/posframe-pkg.el

@@ -1,10 +1,10 @@
 ;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "posframe" "20250211.110"
+(define-package "posframe" "20251125.846"
   "Pop a posframe (just a frame) at point."
   '((emacs "26.1"))
   :url "https://github.com/tumashu/posframe"
-  :commit "12f540c9ad5da09673b2bca1132b41f94c134e82"
-  :revdesc "12f540c9ad5d"
+  :commit "d93828bf6c36383c365bd564ad3bab5a4403804c"
+  :revdesc "d93828bf6c36"
   :keywords '("convenience" "tooltip")
   :authors '(("Feng Shu" . "tumashu@163.com"))
   :maintainers '(("Feng Shu" . "tumashu@163.com")))

lisp/posframe/posframe.el

@@ -5,8 +5,8 @@
 ;; Author: Feng Shu <tumashu@163.com>
 ;; Maintainer: Feng Shu <tumashu@163.com>
 ;; URL: https://github.com/tumashu/posframe
-;; Package-Version: 20250211.110
-;; Package-Revision: 12f540c9ad5d
+;; Package-Version: 20251125.846
+;; Package-Revision: d93828bf6c36
 ;; Keywords: convenience, tooltip
 ;; Package-Requires: ((emacs "26.1"))
 
@@ -59,6 +59,15 @@ case, but suggest use function `posframe-mouse-banish-simple' or
 custom function for EXWM users."
   :type 'function)
 
+(defcustom posframe-text-scale-factor-function #'posframe-text-scale-factor-default
+  "The function to adjust value of text-scale of posframe buffer.
+
+Accepts single argument which is the value of parent buffer
+`text-scale-mode-amount' or nil if the `text-scale-mode' is disabled in
+the parent buffer."
+  :group 'posframe
+  :type 'function)
+
 (defvar-local posframe--frame nil
   "Record posframe's frame.")
 
@@ -210,7 +219,8 @@ position.  Its argument is a plist of the following form:
    :header-line-height xxx
    :tab-line-height xxx
    :x-pixel-offset xxx
-   :y-pixel-offset xxx)
+   :y-pixel-offset xxx
+   :parent-text-scale-mode-amount xxx)
 
 By default, poshandler is auto-selected based on the type of POSITION,
 but the selection can be overridden using the POSHANDLER argument.
@@ -411,6 +421,8 @@ You can use `posframe-delete-all' to delete all posframes."
          (font-width (default-font-width))
          (font-height (with-current-buffer (window-buffer parent-window)
                         (posframe--get-font-height position)))
+         (parent-text-scale-mode-amount (with-current-buffer (window-buffer parent-window)
+                                          (and (bound-and-true-p text-scale-mode) text-scale-mode-amount)))
          (mode-line-height (window-mode-line-height
                             (and (window-minibuffer-p)
                                  (ignore-errors (window-in-direction 'above)))))
@@ -456,7 +468,8 @@ You can use `posframe-delete-all' to delete all posframes."
              :respect-header-line respect-header-line
              :respect-mode-line respect-mode-line
              :override-parameters override-parameters
-             :accept-focus accept-focus))
+             :accept-focus accept-focus
+             :parent-text-scale-mode-amount parent-text-scale-mode-amount))
 
       ;; Insert string into the posframe buffer
       (posframe--insert-string string no-properties)
@@ -505,7 +518,8 @@ You can use `posframe-delete-all' to delete all posframes."
                        :header-line-height header-line-height
                        :tab-line-height tab-line-height
                        :x-pixel-offset x-pixel-offset
-                       :y-pixel-offset y-pixel-offset))))
+                       :y-pixel-offset y-pixel-offset
+                       :parent-text-scale-mode-amount parent-text-scale-mode-amount))))
 
       ;; Move posframe
       (posframe--set-frame-position
@@ -591,7 +605,8 @@ You can use `posframe-delete-all' to delete all posframes."
                                      override-parameters
                                      respect-header-line
                                      respect-mode-line
-                                     accept-focus)
+                                     accept-focus
+                                     parent-text-scale-mode-amount)
   "Create and return a posframe child frame.
 This posframe's buffer is BUFFER-OR-NAME.
 
@@ -767,6 +782,10 @@ ACCEPT-FOCUS."
       ;; so we should force set parent-frame again in this place.
       (set-frame-parameter posframe--frame 'parent-frame parent-frame)
 
+      ;; Set text scale based on the parent frame text scale.
+      (text-scale-set
+       (funcall posframe-text-scale-factor-function parent-text-scale-mode-amount))
+
       posframe--frame)))
 
 (defun posframe--find-existing-posframe (buffer &optional last-args)
@@ -1512,6 +1531,11 @@ window manager selects it."
              (not posframe--accept-focus))
     (redirect-frame-focus posframe--frame (frame-parent))))
 
+(defun posframe-text-scale-factor-default (parent-text-scale-mode-amount)
+  "Return PARENT-TEXT-SCALE-MODE-AMOUNT or 0 if it is nil.
+This ensures text scale factor is always a number for posframe display."
+  (or parent-text-scale-mode-amount 0))
+
 (provide 'posframe)
 
 ;;; posframe.el ends here