Prevent deletion of separator in *edit string* buffer

* lisp/textmodes/string-edit.el (string-edit): Make the separator
line read-only.  (Bug#71405)
This commit is contained in:
Eli Zaretskii 2024-06-15 11:37:34 +03:00
parent 988203fe98
commit 6d12157fa8

View file

@ -58,7 +58,8 @@ Also see `read-string-from-buffer'."
(list 'intangible t
'face 'string-edit-prompt
'read-only t))
(insert (propertize (make-separator-line) 'rear-nonsticky t))
(insert (propertize (make-separator-line)
'read-only t 'rear-nonsticky t))
(add-text-properties (point-min) (point)
(list 'string-edit--prompt t))))
(let ((start (point)))