258 |
(unwind-protect |
(unwind-protect |
259 |
(progn |
(progn |
260 |
;; Don't record undo information for the decoding. |
;; Don't record undo information for the decoding. |
261 |
|
|
262 |
(if (null format) |
(if (null format) |
263 |
;; Figure out which format it is in, remember list in `format'. |
;; Figure out which format it is in, remember list in `format'. |
264 |
(let ((try format-alist)) |
(let ((try format-alist)) |
296 |
(setq format (reverse format))) |
(setq format (reverse format))) |
297 |
(if visit-flag |
(if visit-flag |
298 |
(setq buffer-file-format format))) |
(setq buffer-file-format format))) |
299 |
|
|
300 |
(set-buffer-modified-p mod)) |
(set-buffer-modified-p mod)) |
301 |
|
|
302 |
;; Return new length of region |
;; Return new length of region |
486 |
;; Now (cdr p) is the cons to delete |
;; Now (cdr p) is the cons to delete |
487 |
(setcdr p (cdr cons)) |
(setcdr p (cdr cons)) |
488 |
list))) |
list))) |
489 |
|
|
490 |
(defun format-make-relatively-unique (a b) |
(defun format-make-relatively-unique (a b) |
491 |
"Delete common elements of lists A and B, return as pair. |
"Delete common elements of lists A and B, return as pair. |
492 |
Compares using `equal'." |
Compares using `equal'." |