Re: column int->float diff

[Thien-Thi Nguyen <ttn@giblet.glug.org>]

   From: Richard Stallman <rms@gnu.org>
   Date: Sat, 1 Jun 2002 15:05:13 -0600 (MDT)

   It seems reasonable; if you see that it works, how about installing it?

ok.  fyi, i see that it works by temporarily adding `float-current-column'
that exposes the float and running a scan on some files (code below) w/o
error.

further testing raises another question.  inserting text increments the
column normally, but this is not the case for images (on the same line)
which add 1 to the column only:

      TEXT-IMAGE-TEXT2
      012345    6789...

i surmise there is no code that depends on TEXT2 column, or that such code
would silently break depending on how we fix this underspecification, but
that it's not really a big deal, just something to mention to programmers
(and specify more precisely, of course).  am i missing something?  does
anyone else see different behavior?

thi

__________________________________________
;; -*- emacs-lisp -*-
(defvar count 0)

(mapcar (lambda (file)
          (find-file file)
          (goto-char (point-min))
          (princ file) (princ "  ")
          (while (< (point) (point-max))
            (unless (= (current-column) (float-current-column))
              (error "%s %s %s"
                     (point) (current-column) (float-current-column)))
            (forward-char 1)
            (setq count (1+ count))
            (when (= 0 (% count 1024))
              (princ ".")))
          (kill-buffer (current-buffer))
          (princ "\n"))
        (split-string (shell-command-to-string "find . -name '*.[hc]'")))

;;; Local variables:
;;; compile-command: "./emacs -q --no-site-file -batch -l .ttn.test"
;;; End: