Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
211 (delete-region (point) (progn (skip-chars-forward " \t") (point)))) 211 (delete-region (point) (progn (skip-chars-forward " \t") (point))))
212 212
213 (defun just-one-space () 213 (defun just-one-space ()
214 "Delete all spaces and tabs around point, leaving one space." 214 "Delete all spaces and tabs around point, leaving one space."
215 (interactive "*") 215 (interactive "*")
216 (expand-abbrev) 216 (if abbrev-mode
217 (expand-abbrev))
217 (skip-chars-backward " \t") 218 (skip-chars-backward " \t")
218 (if (= (following-char) ? ) 219 (if (= (following-char) ? )
219 (forward-char 1) 220 (forward-char 1)
220 (insert ? )) 221 (insert ? ))
221 (delete-region (point) (progn (skip-chars-forward " \t") (point)))) 222 (delete-region (point) (progn (skip-chars-forward " \t") (point))))