xemacs-21.4 / lisp / format.el

Diff from to


   (format-encode-region (point-min) (point-max) format))
-(defun format-encode-region (beg end &optional format)
+(defun format-encode-region (start end &optional format)
  "Translate the region into some FORMAT.
 FORMAT defaults to `buffer-file-format', it is a symbol naming
 one of the formats defined in `format-alist', or a list of such symbols."
 	 (if to-fn
 	     (if modify
-		 (setq end (format-encode-run-method to-fn beg end
+		 (setq end (format-encode-run-method to-fn start end
-		(funcall to-fn beg end (current-buffer)))))
+		(funcall to-fn start end (current-buffer)))))
 	 (setq format (cdr format)))))))
 (defun format-write-file (filename format)
   (if format
       (format-decode-buffer format)))
-(defun format-insert-file (filename format &optional beg end)
+(defun format-insert-file (filename format &optional start end)
   "Insert the contents of file FILE using data format FORMAT.
 If FORMAT is nil then do not do any format conversion.
-The optional third and fourth arguments BEG and END specify
+The optional third and fourth arguments START and END specify
 the part of the file to read.
 The return value is like the value of `insert-file-contents':
      (list file fmt)))
   (let (value size)
     (let ((format-alist nil))
-      (setq value (insert-file-contents filename nil beg end))
+      (setq value (insert-file-contents filename nil start end))
       (setq size (nth 1 value)))
     (if format
 	(setq size (format-decode format size)
 ;;; decoding functions for use in format-alist.
-(defun format-replace-strings (alist &optional reverse beg end)
+(defun format-replace-strings (alist &optional reverse start end)
   "Do multiple replacements on the buffer.
 ALIST is a list of (from . to) pairs, which should be proper arguments to
 `search-forward' and `replace-match' respectively.
 Optional args BEGIN and END specify a region of the buffer to operate on."
-      (or beg (setq beg (point-min)))
+      (or start (setq start (point-min)))
       (if end (narrow-to-region (point-min) end))
       (while alist
 	(let ((from (if reverse (cdr (car alist)) (car (car alist))))
 	      (to   (if reverse (car (cdr alist)) (cdr (car alist)))))
-	  (goto-char beg)
+	  (goto-char start)
 	  (while (search-forward from nil t)
 	    (goto-char (match-beginning 0))
 	    (insert to)