Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 349:8429d81ab209 r21-1-4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-4
author cvs
date Mon, 13 Aug 2007 10:54:28 +0200
parents 4b85ae5eabfb
children 182f72e8cd0d
comparison
equal deleted inserted replaced
348:0843b9714b95 349:8429d81ab209
2840 (setq comstart 2840 (setq comstart
2841 (buffer-substring (point) (match-end 0))))))) 2841 (buffer-substring (point) (match-end 0)))))))
2842 (if (and comcol (not fill-prefix)) ; XEmacs - (ENE) from fa-extras. 2842 (if (and comcol (not fill-prefix)) ; XEmacs - (ENE) from fa-extras.
2843 (let ((comment-column comcol) 2843 (let ((comment-column comcol)
2844 (comment-start comstart) 2844 (comment-start comstart)
2845 (block-comment-start comstart)
2845 (comment-end comment-end)) 2846 (comment-end comment-end))
2846 (and comment-end (not (equal comment-end "")) 2847 (and comment-end (not (equal comment-end ""))
2847 ; (if (not comment-multi-line) 2848 ; (if (not comment-multi-line)
2848 (progn 2849 (progn
2849 (forward-char -1) 2850 (forward-char -1)