Mercurial > hg > xemacs-beta

diff lisp/prim/misc.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents ac2d302a0011
children
line wrap: on
line diff
--- a/lisp/prim/misc.el	Mon Aug 13 09:40:48 2007 +0200
+++ b/lisp/prim/misc.el	Mon Aug 13 09:41:43 2007 +0200
@@ -1,6 +1,6 @@
 ;;; misc.el --- miscellaneous functions for XEmacs
 
-;; Copyright (C) 1989 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1997 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 
@@ -23,6 +23,9 @@
 
 ;;; Synched up with: FSF 19.34.
 
+;; 06/11/1997 - Use char-(after|before) instead of
+;;  (following|preceding)-char. -slb
+
 ;;; Code:
 
 (defun copy-from-above-command (&optional arg)
@@ -44,7 +47,7 @@
       ;; If current column winds up in middle of a tab,
       ;; copy appropriate number of "virtual" space chars.
       (if (< cc (current-column))
-	  (if (= (preceding-char) ?\t)
+	  (if (eq (char-before (point)) ?\t)
 	      (progn
 		(setq string (make-string (min n (- (current-column) cc)) ?\ ))
 		(setq n (- n (min n (- (current-column) cc)))))