Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 2116:ce294639d321

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-06-06 23:58:40 by adrian] xemacs-21.5: phrase duplication typo fixes for lisp and src -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2004-06-07 Adrian Aichner <adrian@xemacs.org> * mule/ethio-util.el (ethio-sera-to-fidel-region): Phrase duplication typo fixes for typos found by xemacs-builds/adrian/typology/phrase-duplication-typo.pl. * mule/mule-charset.el (make-translation-table): Ditto. 2004-06-07 Adrian Aichner <adrian@xemacs.org> * files.el (basic-save-buffer): Ditto. * lisp-mode.el (eval-interactive-verbose): Ditto. * newcomment.el (uncomment-region): Ditto. src/ChangeLog addition: 2004-06-07 Adrian Aichner <adrian@xemacs.org> * device-x.c (x_IO_error_handler): Phrase duplication typo fixes for typos found by xemacs-builds/adrian/typology/phrase-duplication-typo.pl.
author adrian
date Sun, 06 Jun 2004 23:58:46 +0000
parents 19834ffbffc4
children ba1cb56059fb
comparison
equal deleted inserted replaced
2115:204cd6005d9b 2116:ce294639d321
2804 2804
2805 (defun basic-save-buffer () 2805 (defun basic-save-buffer ()
2806 "Save the current buffer in its visited file, if it has been modified. 2806 "Save the current buffer in its visited file, if it has been modified.
2807 The hooks `write-contents-hooks', `local-write-file-hooks' and 2807 The hooks `write-contents-hooks', `local-write-file-hooks' and
2808 `write-file-hooks' get a chance to do the job of saving; if they do not, 2808 `write-file-hooks' get a chance to do the job of saving; if they do not,
2809 then the buffer is saved in the visited file file in the usual way. 2809 then the buffer is saved in the visited file in the usual way.
2810 After saving the buffer, this function runs `after-save-hook'." 2810 After saving the buffer, this function runs `after-save-hook'."
2811 (interactive) 2811 (interactive)
2812 (save-current-buffer 2812 (save-current-buffer
2813 ;; In an indirect buffer, save its base buffer instead. 2813 ;; In an indirect buffer, save its base buffer instead.
2814 (if (buffer-base-buffer) 2814 (if (buffer-base-buffer)