Commits

Anonymous committed d515c82

Backward compatibility.

Comments (0)

Files changed (2)

+2004-12-08  Norbert Koch  <viteno@xemacs.org>
+
+	* texinfmt.el (texinfo-format-region):
+	* texinfmt.el (texinfo-format-buffer-1):
+	* texinfmt.el (texinfo-sort-startkeyfun):
+	line-(beginning|end)-position -> point-at-(b|e)ol.  The former are
+	not known in 21.4.
+
 2004-12-07  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.26 released.
             (goto-char (point-min))
             ;; Remove `@setfilename' line from included file, if any,
             ;; so @setfilename command not duplicated.
-            (if (re-search-forward "^@setfilename" (line-end-position 100) t)
-		(delete-region (line-beginning-position 1)
-			       (line-beginning-position 2)))))))
+            (if (re-search-forward "^@setfilename" (point-at-eol 100) t)
+		(delete-region (point-at-bol 1)
+			       (point-at-bol 2)))))))
 
     ;; Raise or lower level of each section, if necessary.
     (goto-char (point-min))
 
     (goto-char (point-min))
     (if (looking-at "\\\\input[ \t]+texinfo")
-        (delete-region (point) (line-beginning-position 2)))
+        (delete-region (point) (point-at-bol 2)))
 
     ;; Insert Info region title text.
     (goto-char (point-min))
       (let ((filename (concat input-directory
                               (texinfo-parse-line-arg))))
         (re-search-backward "^@include")
-        (delete-region (point) (line-beginning-position 2))
+        (delete-region (point) (point-at-bol 2))
         (message "Reading included file: %s" filename)
         (save-excursion
           (save-restriction
             (goto-char (point-min))
             ;; Remove `@setfilename' line from included file, if any,
             ;; so @setfilename command not duplicated.
-            (if (re-search-forward "^@setfilename" (line-end-position 100) t)
-		(delete-region (line-beginning-position 1)
-			       (line-beginning-position 2)))))))
+            (if (re-search-forward "^@setfilename" (point-at-eol 100) t)
+		(delete-region (point-at-bol 1)
+			       (point-at-bol 2)))))))
     ;; Raise or lower level of each section, if necessary.
     (goto-char (point-min))
     (texinfo-raise-lower-sections)
 ;; Subroutine for sorting an index.
 ;; At start of a line, return a string to sort the line under.
 (defun texinfo-sort-startkeyfun ()
-  (let ((line (buffer-substring-no-properties (point) (line-end-position))))
+  (let ((line (buffer-substring-no-properties (point) (point-at-eol))))
     ;; Canonicalize whitespace and eliminate funny chars.
     (while (string-match "[ \t][ \t]+\\|[^a-z0-9 ]+" line)
       (setq line (concat (substring line 0 (match-beginning 0))