Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents 697ef44129c6
children 95016f13131a
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
2887 (setq comstart 2887 (setq comstart
2888 (buffer-substring (point) (match-end 0))))))) 2888 (buffer-substring (point) (match-end 0)))))))
2889 (if (and comcol (not fill-prefix)) ; XEmacs - (ENE) from fa-extras. 2889 (if (and comcol (not fill-prefix)) ; XEmacs - (ENE) from fa-extras.
2890 (let ((comment-column comcol) 2890 (let ((comment-column comcol)
2891 (comment-start comstart) 2891 (comment-start comstart)
2892 (block-comment-start comstart)
2892 (comment-end comment-end)) 2893 (comment-end comment-end))
2893 (and comment-end (not (equal comment-end "")) 2894 (and comment-end (not (equal comment-end ""))
2894 ; (if (not comment-multi-line) 2895 ; (if (not comment-multi-line)
2895 (progn 2896 (progn
2896 (forward-char -1) 2897 (forward-char -1)