[Emacs-diffs] Changes to emacs/lisp/subr.el [lexbind]

[Miles Bader]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.307.2.15 emacs/lisp/subr.el:1.307.2.16
*** emacs/lisp/subr.el:1.307.2.15       Tue Jul  6 09:39:53 2004
--- emacs/lisp/subr.el  Tue Jul  6 09:47:53 2004
***************
*** 1345,1351 ****
                (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
--- 1345,1351 ----
                (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
***************
*** 1714,1721 ****
  (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))
--- 1714,1721 ----
  (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))
***************
*** 1724,1731 ****
  (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,
--- 1724,1731 ----
  (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,