X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flisp-mode.el;h=8fcec4565a466cb0bc75ce7a16120f1c733758c1;hb=49696d4d576c475e33397f9a2a8f59d078c6e413;hp=d0278b1d16915c7a3b0a157f024a2e364eb3f9d8;hpb=d8bd7eee3147c839d3c74d1823c139cd54867a75;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/lisp-mode.el b/lisp/lisp-mode.el
index d0278b1..8fcec45 100644
--- a/lisp/lisp-mode.el
+++ b/lisp/lisp-mode.el
@@ -545,7 +545,7 @@ rigidly along with this one."
       (if (and (looking-at "\\s<") (not (looking-at "\\s<\\s<")))
 	  ;; Single-semicolon comment lines should be indented
 	  ;; as comment lines, not as code.
-	  (progn (indent-for-comment) (forward-char -1))
+	  (progn (indent-for-comment) (backward-char 1))
 	(if (listp indent) (setq indent (car indent)))
 	(setq shift-amt (- indent (current-column)))
 	(if (zerop shift-amt)