[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/format.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/format.el |
Date: |
Fri, 04 Apr 2003 01:22:09 -0500 |
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'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/format.el,
Miles Bader <=