Mercurial > emacs
comparison etc/PROBLEMS @ 40537:12c60dbbc4fe
Work around a bug in diff-mode.el.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 31 Oct 2001 02:26:38 +0000 |
parents | 32b7ea7d8293 |
children | 04c9ddfb2b2a |
comparison
equal
deleted
inserted
replaced
40536:8808162a219d | 40537:12c60dbbc4fe |
---|---|
520 @@ -1646,3 +1646,3 @@ | 520 @@ -1646,3 +1646,3 @@ |
521 (goto-char (sgml-element-end element)) | 521 (goto-char (sgml-element-end element)) |
522 - (let ((before-change-function nil)) | 522 - (let ((before-change-function nil)) |
523 + (let ((before-change-functions nil)) | 523 + (let ((before-change-functions nil)) |
524 (sgml-normalize-content element only-one))) | 524 (sgml-normalize-content element only-one))) |
525 Index: psgml-other.el | |
525 --- psgml-other.el 2001/03/03 00:23:42 1.1 | 526 --- psgml-other.el 2001/03/03 00:23:42 1.1 |
526 +++ psgml-other.el 2001/03/03 00:30:05 | 527 +++ psgml-other.el 2001/03/03 00:30:05 |
527 @@ -32,2 +32,3 @@ | 528 @@ -32,2 +32,3 @@ |
528 (require 'easymenu) | 529 (require 'easymenu) |
529 +(eval-when-compile (require 'cl)) | 530 +(eval-when-compile (require 'cl)) |
554 - (when (< start end) | 555 - (when (< start end) |
555 - (put-text-property (1- end) end 'rear-nonsticky '(face))))) | 556 - (put-text-property (1- end) end 'rear-nonsticky '(face))))) |
556 + (when (and (not modified) (buffer-modified-p)) | 557 + (when (and (not modified) (buffer-modified-p)) |
557 + (set-buffer-modified-p nil)))) | 558 + (set-buffer-modified-p nil)))) |
558 (t | 559 (t |
560 Index: psgml-parse.el | |
559 --- psgml-parse.el 2001/03/03 00:23:57 1.1 | 561 --- psgml-parse.el 2001/03/03 00:23:57 1.1 |
560 +++ psgml-parse.el 2001/03/03 00:29:56 | 562 +++ psgml-parse.el 2001/03/03 00:29:56 |
561 @@ -40,2 +40,4 @@ | 563 @@ -40,2 +40,4 @@ |
562 | 564 |
563 +(eval-when-compile (require 'cl)) | 565 +(eval-when-compile (require 'cl)) |
660 + (setq overriding-terminal-local-map nil)) | 662 + (setq overriding-terminal-local-map nil)) |
661 | 663 |
662 (defun calc-invert-func () | 664 (defun calc-invert-func () |
663 (save-excursion | 665 (save-excursion |
664 | 666 |
667 Index: Makefile | |
665 --- Makefile.~1~ Sun Dec 15 23:50:45 1996 | 668 --- Makefile.~1~ Sun Dec 15 23:50:45 1996 |
666 +++ Makefile Thu Nov 30 15:09:45 2000 | 669 +++ Makefile Thu Nov 30 15:09:45 2000 |
667 @@ -41,7 +41,7 @@ | 670 @@ -41,7 +41,7 @@ |
668 | 671 |
669 # Other macros. | 672 # Other macros. |
684 +maint: calc-maint.el | 687 +maint: calc-maint.el |
685 | 688 |
686 # Create an Emacs TAGS file | 689 # Create an Emacs TAGS file |
687 tags: TAGS | 690 tags: TAGS |
688 | 691 |
692 Index: calc-aent.el | |
689 --- calc-aent.el.~1~ Sun Dec 15 23:50:36 1996 | 693 --- calc-aent.el.~1~ Sun Dec 15 23:50:36 1996 |
690 +++ calc-aent.el Tue Nov 21 18:34:33 2000 | 694 +++ calc-aent.el Tue Nov 21 18:34:33 2000 |
691 @@ -385,7 +385,7 @@ | 695 @@ -385,7 +385,7 @@ |
692 (calc-minibuffer-contains | 696 (calc-minibuffer-contains |
693 "\\`\\([^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*\\'")) | 697 "\\`\\([^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*\\'")) |
729 - (setq calc-digit-value (buffer-string)) | 733 - (setq calc-digit-value (buffer-string)) |
730 + (setq calc-digit-value (field-string)) | 734 + (setq calc-digit-value (field-string)) |
731 (exit-minibuffer) | 735 (exit-minibuffer) |
732 ) | 736 ) |
733 | 737 |
738 Index: calc.el | |
734 --- calc.el.~1~ Sun Dec 15 23:50:47 1996 | 739 --- calc.el.~1~ Sun Dec 15 23:50:47 1996 |
735 +++ calc.el Wed Nov 22 13:08:49 2000 | 740 +++ calc.el Wed Nov 22 13:08:49 2000 |
736 @@ -2051,11 +2051,11 @@ | 741 @@ -2051,11 +2051,11 @@ |
737 ;; Exercise for the reader: Figure out why this is a good precaution! | 742 ;; Exercise for the reader: Figure out why this is a good precaution! |
738 (or (boundp 'calc-buffer) | 743 (or (boundp 'calc-buffer) |