1339 |
(replace-match (format " (default %s)" default) t t prompt 1) |
(replace-match (format " (default %s)" default) t t prompt 1) |
1340 |
(replace-regexp-in-string "[ \t]*\\'" |
(replace-regexp-in-string "[ \t]*\\'" |
1341 |
(format " (default %s) " default) |
(format " (default %s) " default) |
1342 |
prompt t t)))) |
prompt t t)))) |
1343 |
(while |
(while |
1344 |
(progn |
(progn |
1345 |
(let ((str (read-from-minibuffer prompt nil nil nil nil |
(let ((str (read-from-minibuffer prompt nil nil nil nil |
1708 |
(defun insert-buffer-substring-no-properties (buffer &optional start end) |
(defun insert-buffer-substring-no-properties (buffer &optional start end) |
1709 |
"Insert before point a substring of BUFFER, without text properties. |
"Insert before point a substring of BUFFER, without text properties. |
1710 |
BUFFER may be a buffer or a buffer name. |
BUFFER may be a buffer or a buffer name. |
1711 |
Arguments START and END are character numbers specifying the substring. |
Arguments START and END are character positions specifying the substring. |
1712 |
They default to the beginning and the end of BUFFER." |
They default to the values of (point-min) and (point-max) in BUFFER." |
1713 |
(let ((opoint (point))) |
(let ((opoint (point))) |
1714 |
(insert-buffer-substring buffer start end) |
(insert-buffer-substring buffer start end) |
1715 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1718 |
(defun insert-buffer-substring-as-yank (buffer &optional start end) |
(defun insert-buffer-substring-as-yank (buffer &optional start end) |
1719 |
"Insert before point a part of BUFFER, stripping some text properties. |
"Insert before point a part of BUFFER, stripping some text properties. |
1720 |
BUFFER may be a buffer or a buffer name. |
BUFFER may be a buffer or a buffer name. |
1721 |
Arguments START and END are character numbers specifying the substring. |
Arguments START and END are character positions specifying the substring. |
1722 |
They default to the beginning and the end of BUFFER. |
They default to the values of (point-min) and (point-max) in BUFFER. |
1723 |
Strip text properties from the inserted text according to |
Strip text properties from the inserted text according to |
1724 |
`yank-excluded-properties'." |
`yank-excluded-properties'." |
1725 |
;; Since the buffer text should not normally have yank-handler properties, |
;; Since the buffer text should not normally have yank-handler properties, |