diff options
| author | Paul Eggert | 2020-01-07 11:23:11 -0800 |
|---|---|---|
| committer | Paul Eggert | 2020-01-07 11:29:42 -0800 |
| commit | 724af7671590cd91df37f64df6be73f6dca0144d (patch) | |
| tree | 075df63dcdc3653ff710ce49a5f238c165d0f0c1 /test/lisp | |
| parent | f950b078a6f2fd011312e9471998edf6b5fb957e (diff) | |
| download | emacs-724af7671590cd91df37f64df6be73f6dca0144d.tar.gz emacs-724af7671590cd91df37f64df6be73f6dca0144d.zip | |
Fix sxhash-equal on bytecodes, markers, etc.
Problem reported by Pip Cet (Bug#38912#14).
* doc/lispref/objects.texi (Equality Predicates):
Document better when ‘equal’ looks inside objects.
* doc/lispref/windows.texi (Window Configurations):
Don’t say that ‘equal’ looks inside window configurations.
* etc/NEWS: Mention the change.
* src/fns.c (internal_equal):
Do not look inside window configurations.
(sxhash_obj): Hash markers, byte-code function objects,
char-tables, and font objects consistently with Fequal.
* src/window.c (compare_window_configurations):
Now static. Remove last argument. Caller changed.
* test/lisp/ffap-tests.el (ffap-other-window--bug-25352):
Use compare-window-configurations, not ‘equal’.
* test/src/fns-tests.el (test-sxhash-equal): New test.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/ffap-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/ffap-tests.el b/test/lisp/ffap-tests.el index eaf39680e48..30c8f794577 100644 --- a/test/lisp/ffap-tests.el +++ b/test/lisp/ffap-tests.el | |||
| @@ -74,7 +74,7 @@ left alone when opening a URL in an external browser." | |||
| 74 | (urls nil) | 74 | (urls nil) |
| 75 | (ffap-url-fetcher (lambda (url) (push url urls) nil))) | 75 | (ffap-url-fetcher (lambda (url) (push url urls) nil))) |
| 76 | (should-not (ffap-other-window "https://www.gnu.org")) | 76 | (should-not (ffap-other-window "https://www.gnu.org")) |
| 77 | (should (equal (current-window-configuration) old)) | 77 | (should (compare-window-configurations (current-window-configuration) old)) |
| 78 | (should (equal urls '("https://www.gnu.org"))))) | 78 | (should (equal urls '("https://www.gnu.org"))))) |
| 79 | 79 | ||
| 80 | (provide 'ffap-tests) | 80 | (provide 'ffap-tests) |