Package: elpa-debian-el
Version: 37.19.3
Severity: normal
Tags: patch

Hi,

When using apt-utils-show-package, the initial completion suggestion is taken
from word-at-point. However, if that word has read-only property set, then the
prompt completion itself is not modifiable and can only be appended to.

It would be better to ignore the properties of the word-at-point so that the
full prompt suggestion can be modified. Fortunately word-at-point has an 
optional
argument to implement this. Suggested patch attached.

Best wishes

Mark


-- System Information:
Debian Release: forky/sid
Architecture: amd64 (x86_64)

Kernel: Linux 6.19.11+deb14-amd64 (SMP w/2 CPU threads; PREEMPT)
Kernel taint flags: TAINT_CPU_OUT_OF_SPEC, TAINT_WARN
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8), 
LANGUAGE=en_GB:en
Shell: /bin/sh linked to /usr/bin/dash
Init: OpenRC (via /run/openrc), PID 1: init

Versions of packages elpa-debian-el depends on:
ii  bzip2           1.0.8-6+b1
ii  dh-elpa-helper  2.1.9
ii  emacsen-common  3.0.8
ii  reportbug       13.2.0devuan2
ii  xz-utils        5.8.3-1
ii  zstd            1.5.7+dfsg-3+b1

Versions of packages elpa-debian-el recommends:
ii  emacs              1:30.2+1-3
ii  emacs-gtk [emacs]  1:30.2+1-3
ii  wget               1.25.0-2

elpa-debian-el suggests no packages.

-- no debconf information
>From ece28704d4533209d45870a7fa4961e622fd2eb8 Mon Sep 17 00:00:00 2001
From: Mark Hindley <[email protected]>
Date: Thu, 2 Jul 2026 11:21:04 +0100
Subject: [PATCH] apt-utils-choose-package: ignore properties when getting
 initial completion suggestion.

Without this, if the point is on read-only text, the completion suggestion is
not modifiable.
---
 apt-utils.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/apt-utils.el b/apt-utils.el
index f735cee..201203e 100644
--- a/apt-utils.el
+++ b/apt-utils.el
@@ -1341,7 +1341,7 @@ indicated in `mode-name'."
                             (text-properties-at (point))))))
         (PC-word-delimiters "-"))
     (when (not (stringp package))
-      (setq package (word-at-point)))
+      (setq package (word-at-point t)))
     (completing-read (if package
                          (format "Choose Debian package (%s): " package)
                        "Choose Debian package: ")
-- 
2.53.0

Reply via email to