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

[Juanma Barranquero]

Index: emacs/lisp/format.el
diff -c emacs/lisp/format.el:1.39 emacs/lisp/format.el:1.40
*** emacs/lisp/format.el:1.39   Thu Nov  7 21:37:46 2002
--- emacs/lisp/format.el        Tue Feb  4 06:20:40 2003
***************
*** 258,264 ****
      (unwind-protect
        (progn
          ;; Don't record undo information for the decoding.
!         
          (if (null format)
              ;; Figure out which format it is in, remember list in `format'.
              (let ((try format-alist))
--- 258,264 ----
      (unwind-protect
        (progn
          ;; Don't record undo information for the decoding.
! 
          (if (null format)
              ;; Figure out which format it is in, remember list in `format'.
              (let ((try format-alist))
***************
*** 296,302 ****
            (setq format (reverse format)))
          (if visit-flag
              (setq buffer-file-format format)))
!       
        (set-buffer-modified-p mod))
  
        ;; Return new length of region
--- 296,302 ----
            (setq format (reverse format)))
          (if visit-flag
              (setq buffer-file-format format)))
! 
        (set-buffer-modified-p mod))
  
        ;; Return new length of region
***************
*** 486,492 ****
        ;; Now (cdr p) is the cons to delete
        (setcdr p (cdr cons))
        list)))
!     
  (defun format-make-relatively-unique (a b)
    "Delete common elements of lists A and B, return as pair.
  Compares using `equal'."
--- 486,492 ----
        ;; Now (cdr p) is the cons to delete
        (setcdr p (cdr cons))
        list)))
! 
  (defun format-make-relatively-unique (a b)
    "Delete common elements of lists A and B, return as pair.
  Compares using `equal'."