Mercurial > hg > xemacs-beta

diff lisp/lisp.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children c136144fe765
line wrap: on
line diff
--- a/lisp/lisp.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/lisp.el	Mon Aug 13 11:37:21 2007 +0200
@@ -206,7 +206,7 @@
 			  (end-of-line 1)
 			  (beginning-of-defun-raw 1)))
 		    nil
-		  (or (bobp) (forward-char -1))
+		  (or (bobp) (backward-char 1))
 		  (beginning-of-defun-raw -1))
 		(setq first nil)
 		(forward-list 1)
@@ -279,7 +279,7 @@
   "Move past next `)', delete indentation before it, then indent after it."
   (interactive)
   (up-list 1)
-  (forward-char -1)
+  (backward-char 1)
   (while (save-excursion		; this is my contribution
 	   (let ((before-paren (point)))
 	     (back-to-indentation)