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

[Juanma Barranquero]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.339 emacs/lisp/subr.el:1.340
*** emacs/lisp/subr.el:1.339    Mon Jan 27 16:45:10 2003
--- emacs/lisp/subr.el  Tue Feb  4 07:06:43 2003
***************
*** 1058,1064 ****
  (defun process-put (process propname value)
    "Change PROCESS' PROPNAME property to VALUE.
  It can be retrieved with `(process-get PROCESS PROPNAME)'."
!   (set-process-plist process 
                     (plist-put (process-plist process) propname value)))
  
  
--- 1058,1064 ----
  (defun process-put (process propname value)
    "Change PROCESS' PROPNAME property to VALUE.
  It can be retrieved with `(process-get PROCESS PROPNAME)'."
!   (set-process-plist process
                     (plist-put (process-plist process) propname value)))
  
  
***************
*** 1480,1486 ****
   if FUNCTION adjusts point before or after inserting the object.
  If UNDO is present and non-nil, it is a function that will be called
   by `yank-pop' to undo the insertion of the current object.  It is
!  called with two arguments, the start and end of the current region. 
   FUNCTION may set `yank-undo-function' to override the UNDO value."
    (let* ((handler (and (stringp string)
                       (get-text-property 0 'yank-handler string)))
--- 1480,1486 ----
   if FUNCTION adjusts point before or after inserting the object.
  If UNDO is present and non-nil, it is a function that will be called
   by `yank-pop' to undo the insertion of the current object.  It is
!  called with two arguments, the start and end of the current region.
   FUNCTION may set `yank-undo-function' to override the UNDO value."
    (let* ((handler (and (stringp string)
                       (get-text-property 0 'yank-handler string)))
***************
*** 1496,1502 ****
        (setq yank-undo-function (nth 3 handler))) ;; UNDO
      (if (nth 4 handler) ;; COMMAND
        (setq this-command (nth 4 handler)))))
!     
  (defun insert-buffer-substring-no-properties (buf &optional start end)
    "Insert before point a substring of buffer BUFFER, without text properties.
  BUFFER may be a buffer or a buffer name.
--- 1496,1502 ----
        (setq yank-undo-function (nth 3 handler))) ;; UNDO
      (if (nth 4 handler) ;; COMMAND
        (setq this-command (nth 4 handler)))))
! 
  (defun insert-buffer-substring-no-properties (buf &optional start end)
    "Insert before point a substring of buffer BUFFER, without text properties.
  BUFFER may be a buffer or a buffer name.