Mercurial > hg > xemacs-beta

diff lisp/efs/dired.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 43dd3413c7c7
children 15872534500d
line wrap: on
line diff
--- a/lisp/efs/dired.el	Mon Aug 13 09:41:47 2007 +0200
+++ b/lisp/efs/dired.el	Mon Aug 13 09:42:26 2007 +0200
@@ -739,7 +739,7 @@
 	   ;; the proper column.
 	   (goto-char (, temp-bolm))
 	   (and (not (, temp-fnlp))
-		(not (eq (following-char) 0)) (memq (following-char) '(?\n ?\r))
+		(memq (char-after (point)) '(?\n ?\r))
 		;; The line containing the point got deleted. Note that this
 		;; logic only works if we don't delete null lines, but we never
 		;; do.