Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 5856:27876789edc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Be more careful about saving a non-nil value for START in message-stack. lisp/ChangeLog addition: 2015-03-12 Aidan Kehoe <kehoea@parhasard.net> * simple.el (append-message): Be more careful about saving a non-nil value for START in message-stack.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 12 Mar 2015 00:59:27 +0000
parents 0bddb59072b6
children f9e59cd39a9a
comparison
equal deleted inserted replaced
5855:0bddb59072b6 5856:27876789edc5
4469 (concat (subseq (cadar message-stack) (third (car message-stack)) 4469 (concat (subseq (cadar message-stack) (third (car message-stack))
4470 (fourth (car message-stack))) 4470 (fourth (car message-stack)))
4471 (if (or end (not (eql start 0))) 4471 (if (or end (not (eql start 0)))
4472 (subseq message start end) 4472 (subseq message start end)
4473 message)) 4473 message))
4474 (caddar message-stack) nil 4474 (caddar message-stack) 0
4475 (car (cdddar message-stack)) nil) 4475 (car (cdddar message-stack)) nil)
4476 (push (list label message start end) message-stack)) 4476 (push (list label message start end) message-stack))
4477 (raw-append-message message frame stdout-p :start start :end end) 4477 (raw-append-message message frame stdout-p :start start :end end)
4478 (if (eq 'stream (frame-type frame)) 4478 (if (eq 'stream (frame-type frame))
4479 (set-device-clear-left-side (frame-device frame) t))) 4479 (set-device-clear-left-side (frame-device frame) t)))