*** empty log message ***

1 files changed, 110 insertions, 0 deletions

diff --git a/etc/PROBLEMS b/etc/PROBLEMS
index aa48a62f49e..c233c5430f3 100644
--- a/etc/PROBLEMS
+++ b/etc/PROBLEMS
@@ -1,6 +1,116 @@
 This file describes various problems that have been encountered
 in compiling, installing and running GNU Emacs.
 
+* The PSGML package uses the obsolete variables
+`before-change-function' and `after-change-function', which are no
+longer used by Emacs.  These changes to PSGML 1.2.1 fix that.
+
+--- psgml-edit.el       1999/12/17 10:55:07     1.1
++++ psgml-edit.el       1999/12/17 11:36:37
+@@ -263,4 +263,4 @@
+                                        ; inhibit-read-only
+-       (before-change-function nil)
+-       (after-change-function nil))
++       (before-change-functions nil)
++       (after-change-functions nil))
+     (setq selective-display t)
+@@ -1474,3 +1474,3 @@
+        (buffer-read-only nil)
+-       (before-change-function nil)
++       (before-change-functions nil)
+        (markup-index                   ; match-data index in tag regexp
+@@ -1526,3 +1526,3 @@
+ (defun sgml-expand-shortref-to-text (name)
+-  (let (before-change-function
++  (let (before-change-functions
+        (entity (sgml-lookup-entity name (sgml-dtd-entities sgml-dtd-info))))
+@@ -1543,3 +1543,3 @@
+        (re-found nil)
+-       before-change-function)
++       before-change-functions)
+     (goto-char sgml-markup-start)
+@@ -1576,3 +1576,3 @@
+     (goto-char (sgml-element-end element)) 
+-    (let ((before-change-function nil))
++    (let ((before-change-functions nil))
+       (sgml-normalize-content element only-one)))
+--- psgml-other.el      1999/12/17 10:40:02     1.1
++++ psgml-other.el      1999/12/17 11:30:43
+@@ -32,2 +32,3 @@
+ (require 'easymenu)
++(eval-when-compile (require 'cl))
+ 
+@@ -61,4 +62,9 @@
+                   (let ((submenu
+-                         (subseq entries 0 (min (length entries)
+-                                                sgml-max-menu-size))))
++;;;                      (subseq entries 0 (min (length entries)
++;;;                                             sgml-max-menu-size))
++                         (let ((new (copy-sequence entries)))
++                           (setcdr (nthcdr (1- (min (length entries)
++                                                    sgml-max-menu-size))
++                                           new) nil)
++                           new)))
+                     (setq entries (nthcdr sgml-max-menu-size entries))
+@@ -113,7 +119,10 @@
+       (let ((inhibit-read-only t)
+-           (after-change-function nil) ; obsolete variable
+-           (before-change-function nil) ; obsolete variable
+            (after-change-functions nil)
+-           (before-change-functions nil))
+-       (put-text-property start end 'face face)))
++           (before-change-functions nil)
++           (modified (buffer-modified-p))
++           (buffer-undo-list t)
++           deactivate-mark)
++       (put-text-property start end 'face face)
++       (when (and (not modified) (buffer-modified-p))
++          (set-buffer-modified-p nil))))
+      (t
+--- psgml-parse.el      1999/12/17 10:32:45     1.1
++++ psgml-parse.el      2000/12/05 17:12:34
+@@ -40,2 +40,4 @@
+ 
++(eval-when-compile (require 'cl))
++
+ 
+@@ -2474,8 +2476,8 @@
+       (setq sgml-scratch-buffer nil))
+-    (when after-change-function                ;***
+-      (message "OOPS: after-change-function not NIL in scratch buffer %s: %s"
++    (when after-change-functions               ;***
++      (message "OOPS: after-change-functions not NIL in scratch buffer %s: %S"
+               (current-buffer)
+-              after-change-function)
+-      (setq before-change-function nil
+-           after-change-function nil))
++              after-change-functions)
++      (setq before-change-functions nil
++           after-change-functions nil))
+     (setq sgml-last-entity-buffer (current-buffer))
+@@ -2846,6 +2848,5 @@
+   "Set initial state of parsing"
+-  (make-local-variable 'before-change-function)
+-  (setq before-change-function 'sgml-note-change-at)
+-  (make-local-variable 'after-change-function)
+-  (setq after-change-function 'sgml-set-face-after-change)
++  (set (make-local-variable 'before-change-functions) '(sgml-note-change-at))
++  (set (make-local-variable 'after-change-functions)
++       '(sgml-set-face-after-change))
+   (sgml-set-active-dtd-indicator (sgml-dtd-doctype dtd))
+@@ -3887,7 +3888,7 @@
+ 
+-  (unless before-change-function
+-    (message "WARN: before-change-function has been lost, restoring (%s)"
++  (unless before-change-functions
++    (message "WARN: before-change-functions has been lost, restoring (%s)"
+             (current-buffer))
+-    (setq before-change-function 'sgml-note-change-at)
+-    (setq after-change-function 'sgml-set-face-after-change)
++    (setq before-change-functions '(sgml-note-change-at))
++    (setq after-change-functions '(sgml-set-face-after-change))
+     )
+
 * On systems with shared libraries you might encounter run-time errors
 from the dynamic linker telling you that it is unable to find some
 shared libraries, for instance those for Xaw3d or image support.