Mercurial > hg > xemacs-beta

comparison lisp/newcomment.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 1b0339b048ce
children b9a1074dc6bf
comparison
equal deleted inserted replaced
2115:204cd6005d9b 2116:ce294639d321
3 ;; Copyright (C) 1999, 2000 Free Software Foundation Inc. 3 ;; Copyright (C) 1999, 2000 Free Software Foundation Inc.
4 4
5 ;; Author: code extracted from Emacs-20's simple.el 5 ;; Author: code extracted from Emacs-20's simple.el
6 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> 6 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
7 ;; Keywords: comment uncomment 7 ;; Keywords: comment uncomment
8 ;; Revision: $Id: newcomment.el,v 1.1 2003/03/02 09:38:40 ben Exp $ 8 ;; Revision: $Id: newcomment.el,v 1.2 2004/06/06 23:58:44 adrian Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
712 (replace-match "" t t nil (if (match-end 2) 2 1)) 712 (replace-match "" t t nil (if (match-end 2) 2 1))
713 (setq ere nil)) 713 (setq ere nil))
714 (forward-line 1) 714 (forward-line 1)
715 (re-search-forward sre (line-end-position) t)) 715 (re-search-forward sre (line-end-position) t))
716 (replace-match "" t t nil (if (match-end 2) 2 1))))) 716 (replace-match "" t t nil (if (match-end 2) 2 1)))))
717 ;; Go the the end for the next comment. 717 ;; Go to the end for the next comment.
718 (goto-char (point-max))))) 718 (goto-char (point-max)))))
719 (set-marker end nil)))) 719 (set-marker end nil))))
720 720
721 (defun comment-make-extra-lines (cs ce ccs cce min-indent max-indent &optional block) 721 (defun comment-make-extra-lines (cs ce ccs cce min-indent max-indent &optional block)
722 "Make the leading and trailing extra lines. 722 "Make the leading and trailing extra lines.