Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 958:4cbfb36b35e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-12 07:44:28 by youngs] 2002-08-11 John Paul Wallington <jpw@shootybangbang.com> * simple.el (join-line): New alias for `delete-indentation'.
author youngs
date Mon, 12 Aug 2002 07:44:28 +0000
parents 047d37eb70d7
children 465bd3c7d932
comparison
equal deleted inserted replaced
957:c017b187b1ec 958:4cbfb36b35e0
295 (string= fill-prefix 295 (string= fill-prefix
296 (buffer-substring (point) 296 (buffer-substring (point)
297 (+ (point) (length fill-prefix))))) 297 (+ (point) (length fill-prefix)))))
298 (delete-region (point) (+ (point) (length fill-prefix)))) 298 (delete-region (point) (+ (point) (length fill-prefix))))
299 (fixup-whitespace)))) 299 (fixup-whitespace))))
300
301 (defalias 'join-line 'delete-indentation)
300 302
301 (defun fixup-whitespace () 303 (defun fixup-whitespace ()
302 "Fixup white space between objects around point. 304 "Fixup white space between objects around point.
303 Leave one space or none, according to the context." 305 Leave one space or none, according to the context."
304 (interactive "*") 306 (interactive "*")