diff options
| author | Paul Eggert | 2018-07-09 18:59:58 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-07-09 19:00:43 -0700 |
| commit | cc74539a19229ee7e70055b00e8334bd6abc0841 (patch) | |
| tree | f737f1784530b0f8a96388cccd3346d85b96a6c1 | |
| parent | 2fde6275b69fd113e78243790bf112bbdd2fe2bf (diff) | |
| download | emacs-cc74539a19229ee7e70055b00e8334bd6abc0841.tar.gz emacs-cc74539a19229ee7e70055b00e8334bd6abc0841.zip | |
* lisp/format.el (format-annotate-single-property-change): Simplify.
| -rw-r--r-- | lisp/format.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/format.el b/lisp/format.el index 1222abbf658..5bf1be39475 100644 --- a/lisp/format.el +++ b/lisp/format.el | |||
| @@ -1000,9 +1000,7 @@ either strings, or lists of the form (PARAMETER VALUE)." | |||
| 1000 | (if (not (and (proper-list-p old) | 1000 | (if (not (and (proper-list-p old) |
| 1001 | (proper-list-p new))) | 1001 | (proper-list-p new))) |
| 1002 | (format-annotate-atomic-property-change prop-alist old new) | 1002 | (format-annotate-atomic-property-change prop-alist old new) |
| 1003 | (let* ((old (if (listp old) old (list old))) | 1003 | (let (close open) |
| 1004 | (new (if (listp new) new (list new))) | ||
| 1005 | close open) | ||
| 1006 | (while old | 1004 | (while old |
| 1007 | (setq close | 1005 | (setq close |
| 1008 | (append (car (format-annotate-atomic-property-change | 1006 | (append (car (format-annotate-atomic-property-change |