diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/simple.el | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e3a9a669e4..882bd4e19c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-03-25 Barry O'Reilly <[email protected]> + + * simple.el (primitive-undo): Correction to 2014-03-24 change. + 2014-03-25 Michael Albinus <[email protected]> * net/tramp.el (tramp-methods, tramp-connection-timeout): Fix docstring. diff --git a/lisp/simple.el b/lisp/simple.el index 7be1f1f639..98604a44de 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2321,9 +2321,10 @@ Return what remains of the list." ;; Even though these elements are not expected in the undo ;; list, adjust them to be conservative for the 24.4 ;; release. (Bug#16818) - (set-marker marker - (- marker offset) - (marker-buffer marker))) + (when (marker-buffer marker) + (set-marker marker + (- marker offset) + (marker-buffer marker)))) (_ (error "Unrecognized entry in undo list %S" next)))) (setq arg (1- arg))) ;; Make sure an apply entry produces at least one undo entry, |