[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/enriched.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/enriched.el [lexbind] |
Date: |
Tue, 06 Jul 2004 06:57:55 -0400 |
Index: emacs/lisp/textmodes/enriched.el
diff -c emacs/lisp/textmodes/enriched.el:1.3.2.1
emacs/lisp/textmodes/enriched.el:1.3.2.2
*** emacs/lisp/textmodes/enriched.el:1.3.2.1 Tue Oct 14 23:30:21 2003
--- emacs/lisp/textmodes/enriched.el Tue Jul 6 10:26:56 2004
***************
*** 282,314 ****
;;;###autoload
(defun enriched-encode (from to orig-buf)
(if enriched-verbose (message "Enriched: encoding document..."))
! (save-restriction
! (narrow-to-region from to)
! (delete-to-left-margin)
! (unjustify-region)
! (goto-char from)
! (format-replace-strings '(("<" . "<<")))
! (format-insert-annotations
! (format-annotate-region from (point-max) enriched-translations
! 'enriched-make-annotation enriched-ignore))
! (goto-char from)
! (insert (if (stringp enriched-initial-annotation)
! enriched-initial-annotation
! (save-excursion
! ;; Eval this in the buffer we are annotating. This
! ;; fixes a bug which was saving incorrect File-Width
! ;; information, since we were looking at local
! ;; variables in the wrong buffer.
! (if orig-buf (set-buffer orig-buf))
! (funcall enriched-initial-annotation))))
! (enriched-map-property-regions 'hard
! (lambda (v b e)
! (if (and v (= ?\n (char-after b)))
! (progn (goto-char b) (insert "\n"))))
! (point) nil)
! (if enriched-verbose (message nil))
! ;; Return new end.
! (point-max)))
(defun enriched-make-annotation (internal-ann positive)
"Format an annotation INTERNAL-ANN.
--- 282,315 ----
;;;###autoload
(defun enriched-encode (from to orig-buf)
(if enriched-verbose (message "Enriched: encoding document..."))
! (let ((inhibit-read-only t))
! (save-restriction
! (narrow-to-region from to)
! (delete-to-left-margin)
! (unjustify-region)
! (goto-char from)
! (format-replace-strings '(("<" . "<<")))
! (format-insert-annotations
! (format-annotate-region from (point-max) enriched-translations
! 'enriched-make-annotation enriched-ignore))
! (goto-char from)
! (insert (if (stringp enriched-initial-annotation)
! enriched-initial-annotation
! (save-excursion
! ;; Eval this in the buffer we are annotating. This
! ;; fixes a bug which was saving incorrect File-Width
! ;; information, since we were looking at local
! ;; variables in the wrong buffer.
! (if orig-buf (set-buffer orig-buf))
! (funcall enriched-initial-annotation))))
! (enriched-map-property-regions 'hard
! (lambda (v b e)
! (if (and v (= ?\n (char-after b)))
! (progn (goto-char b) (insert "\n"))))
! (point) nil)
! (if enriched-verbose (message nil))
! ;; Return new end.
! (point-max))))
(defun enriched-make-annotation (internal-ann positive)
"Format an annotation INTERNAL-ANN.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/enriched.el [lexbind],
Miles Bader <=