[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Mon, 07 Jun 2004 17:09:38 -0400 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.396 emacs/lisp/subr.el:1.397
*** emacs/lisp/subr.el:1.396 Wed Jun 2 22:44:45 2004
--- emacs/lisp/subr.el Mon Jun 7 20:54:42 2004
***************
*** 1339,1345 ****
(replace-match (format " (default %s)" default) t t prompt 1)
(replace-regexp-in-string "[ \t]*\\'"
(format " (default %s) " default)
! prompt t t))))
(while
(progn
(let ((str (read-from-minibuffer prompt nil nil nil nil
--- 1339,1345 ----
(replace-match (format " (default %s)" default) t t prompt 1)
(replace-regexp-in-string "[ \t]*\\'"
(format " (default %s) " default)
! prompt t t))))
(while
(progn
(let ((str (read-from-minibuffer prompt nil nil nil nil
***************
*** 1708,1715 ****
(defun insert-buffer-substring-no-properties (buffer &optional start end)
"Insert before point a substring of BUFFER, without text properties.
BUFFER may be a buffer or a buffer name.
! Arguments START and END are character numbers specifying the substring.
! They default to the beginning and the end of BUFFER."
(let ((opoint (point)))
(insert-buffer-substring buffer start end)
(let ((inhibit-read-only t))
--- 1708,1715 ----
(defun insert-buffer-substring-no-properties (buffer &optional start end)
"Insert before point a substring of BUFFER, without text properties.
BUFFER may be a buffer or a buffer name.
! Arguments START and END are character positions specifying the substring.
! They default to the values of (point-min) and (point-max) in BUFFER."
(let ((opoint (point)))
(insert-buffer-substring buffer start end)
(let ((inhibit-read-only t))
***************
*** 1718,1725 ****
(defun insert-buffer-substring-as-yank (buffer &optional start end)
"Insert before point a part of BUFFER, stripping some text properties.
BUFFER may be a buffer or a buffer name.
! Arguments START and END are character numbers specifying the substring.
! They default to the beginning and the end of BUFFER.
Strip text properties from the inserted text according to
`yank-excluded-properties'."
;; Since the buffer text should not normally have yank-handler properties,
--- 1718,1725 ----
(defun insert-buffer-substring-as-yank (buffer &optional start end)
"Insert before point a part of BUFFER, stripping some text properties.
BUFFER may be a buffer or a buffer name.
! Arguments START and END are character positions specifying the substring.
! They default to the values of (point-min) and (point-max) in BUFFER.
Strip text properties from the inserted text according to
`yank-excluded-properties'."
;; Since the buffer text should not normally have yank-handler properties,