diff options
author | Karl Heuer <[email protected]> | 1995-05-25 17:06:34 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1995-05-25 17:06:34 +0000 |
commit | bd9e3e75435e9a609051fab3eb8f1863143d4503 (patch) | |
tree | a72ade54b8977b9727080038e5d6529bea958ab7 | |
parent | cc17e9bf31bd6d541b2438781007bf95dfc8581a (diff) |
(Fframe_or_buffer_changed_p): Record frame names
as well as the frame objects.
-rw-r--r-- | src/dispnew.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index fa78c95d50..a1240cb7c6 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -1920,10 +1920,15 @@ the current state.\n") Lisp_Object tail, frame, buf; Lisp_Object *vecp; int n; + vecp = XVECTOR (frame_and_buffer_state)->contents; FOR_EACH_FRAME (tail, frame) - if (!EQ (*vecp++, frame)) - goto changed; + { + if (!EQ (*vecp++, frame)) + goto changed; + if (!EQ (*vecp++, XFRAME (frame)->name)) + goto changed; + } /* Check that the buffer info matches. No need to test for the end of the vector because the last element of the vector is lambda @@ -1957,7 +1962,10 @@ the current state.\n") frame_and_buffer_state = Fmake_vector (make_number (n), Qlambda); vecp = XVECTOR (frame_and_buffer_state)->contents; FOR_EACH_FRAME (tail, frame) - *vecp++ = frame; + { + *vecp++ = frame; + *vecp++ = XFRAME (frame)->name; + } for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr) { buf = XCONS (XCONS (tail)->car)->cdr; |