Mercurial > hg > xemacs-beta

comparison lisp/ediff/ediff-tbar.el @ 181:bfd6434d15b3 r20-3b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
180:add28d59e586 181:bfd6434d15b3
237 ;; 2-way or 3-way compare: save modified buffers 237 ;; 2-way or 3-way compare: save modified buffers
238 (mapcar (function 238 (mapcar (function
239 (lambda (type) 239 (lambda (type)
240 (let ((ebuf (ediff-get-buffer type))) 240 (let ((ebuf (ediff-get-buffer type)))
241 (and (ediff-buffer-live-p ebuf) 241 (and (ediff-buffer-live-p ebuf)
242 (ediff-eval-in-buffer ebuf 242 (ediff-with-current-buffer ebuf
243 (and (buffer-modified-p) 243 (and (buffer-modified-p)
244 (save-buffer))))))) 244 (save-buffer)))))))
245 '(A B C)))) 245 '(A B C))))
246 246
247 247
362 362
363 363
364 364
365 ;;; Local Variables: 365 ;;; Local Variables:
366 ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) 366 ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun)
367 ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) 367 ;;; eval: (put 'ediff-with-current-buffer 'lisp-indent-hook 1)
368 ;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) 368 ;;; eval: (put 'ediff-with-current-buffer 'edebug-form-spec '(form body))
369 ;;; End: 369 ;;; End:
370 370
371 ;;; ediff-tbar.el ends here 371 ;;; ediff-tbar.el ends here