diff options
| author | Glenn Morris | 2018-03-05 14:32:20 -0500 |
|---|---|---|
| committer | Glenn Morris | 2018-03-05 14:32:20 -0500 |
| commit | 7a38a6d8818b6f5be0b13957d06f4da7573e3ddd (patch) | |
| tree | 7cf88c310f0a17df0414c77861781517dfdf7374 | |
| parent | bcc80b8fd264352812a5bf5d11232659848cda3d (diff) | |
| download | emacs-7a38a6d8818b6f5be0b13957d06f4da7573e3ddd.tar.gz emacs-7a38a6d8818b6f5be0b13957d06f4da7573e3ddd.zip | |
* lisp/emacs-lisp/ewoc.el (ewoc-goto-node):
Simplify and quieten compiler.
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el index 262d4d85941..52d8451f4bc 100644 --- a/lisp/emacs-lisp/ewoc.el +++ b/lisp/emacs-lisp/ewoc.el | |||
| @@ -500,7 +500,7 @@ Return the node (or nil if we just passed the last node)." | |||
| 500 | 500 | ||
| 501 | (defun ewoc-goto-node (ewoc node) | 501 | (defun ewoc-goto-node (ewoc node) |
| 502 | "Move point to NODE in EWOC." | 502 | "Move point to NODE in EWOC." |
| 503 | (ewoc--set-buffer-bind-dll ewoc | 503 | (with-current-buffer (ewoc--buffer ewoc) |
| 504 | (goto-char (ewoc--node-start-marker node)) | 504 | (goto-char (ewoc--node-start-marker node)) |
| 505 | (if goal-column (move-to-column goal-column)) | 505 | (if goal-column (move-to-column goal-column)) |
| 506 | (setf (ewoc--last-node ewoc) node))) | 506 | (setf (ewoc--last-node ewoc) node))) |