diff options
| -rw-r--r-- | lisp/files-x.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/files-x.el b/lisp/files-x.el index 2a52792222d..92532e85f4f 100644 --- a/lisp/files-x.el +++ b/lisp/files-x.el | |||
| @@ -377,7 +377,9 @@ from the -*- line ignoring the input argument VALUE." | |||
| 377 | ((eq variable 'mode) (goto-char beg)) | 377 | ((eq variable 'mode) (goto-char beg)) |
| 378 | ((null replaced-pos) (goto-char end)) | 378 | ((null replaced-pos) (goto-char end)) |
| 379 | (replaced-pos (goto-char replaced-pos))) | 379 | (replaced-pos (goto-char replaced-pos))) |
| 380 | (if (and (not (eq (char-before) ?\;)) | 380 | (if (and (save-excursion |
| 381 | (skip-chars-backward " \t") | ||
| 382 | (not (eq (char-before) ?\;))) | ||
| 381 | (not (equal (point) (marker-position beg))) | 383 | (not (equal (point) (marker-position beg))) |
| 382 | ;; When existing `-*- -*-' is empty, beg > end. | 384 | ;; When existing `-*- -*-' is empty, beg > end. |
| 383 | (not (> (marker-position beg) (marker-position end)))) | 385 | (not (> (marker-position beg) (marker-position end)))) |