/[emacs]/emacs/lisp/format.el
ViewVC logotype

Diff of /emacs/lisp/format.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by monnier, Fri Nov 8 02:37:46 2002 UTC revision 1.40 by lektu, Tue Feb 4 11:20:40 2003 UTC
# Line 258  For most purposes, consider using `forma Line 258  For most purposes, consider using `forma
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))
# Line 296  For most purposes, consider using `forma Line 296  For most purposes, consider using `forma
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
# Line 486  the value of `foo'." Line 486  the value of `foo'."
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'."

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26