Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/simple.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/prim/simple.el	Mon Aug 13 08:46:35 2007 +0200
@@ -213,7 +213,8 @@
 (defun just-one-space ()
   "Delete all spaces and tabs around point, leaving one space."
   (interactive "*")
-  (expand-abbrev)
+  (if abbrev-mode
+      (expand-abbrev))
   (skip-chars-backward " \t")
   (if (= (following-char) ? )
       (forward-char 1)