diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-12-04 18:47:53 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-12-04 18:47:53 -0800 |
| commit | 58a70b943c3efcc25e1396c8e67bc440c43a3f0a (patch) | |
| tree | 85bd5aa3d118733064cadf40f5a4ea6dc153d163 /lisp/align.el | |
| parent | 7dbda6dfe8058e6abcaf2436277b9beae7605e20 (diff) | |
| download | emacs-58a70b943c3efcc25e1396c8e67bc440c43a3f0a.tar.gz | |
align.el marker fix.
* lisp/align.el (align--set-marker): Add doc-string.
Don't try to move something that is not a marker.
Eg the first call from align-region passes eol == 0.
Fixes: debbugs:10216
Diffstat (limited to 'lisp/align.el')
| -rw-r--r-- | lisp/align.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/align.el b/lisp/align.el index 0d9f351b9da..a386b7a82ba 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1247,7 +1247,9 @@ have been aligned. No changes will be made to the buffer." (setq areas (cdr areas)))))) (defmacro align--set-marker (marker-var pos &optional type) - `(if ,marker-var + "If MARKER-VAR is a marker, move it to position POS. +Otherwise, create a new marker at position POS, with type TYPE." + `(if (markerp ,marker-var) (move-marker ,marker-var ,pos) (setq ,marker-var (copy-marker ,pos ,type)))) |