diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-12 01:18:38 +0300 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2016-05-12 01:18:38 +0300 |
commit | 9596ea1534d0c5146be5c1a58d0c5a70f56b44c3 (patch) | |
tree | aff347195f6bcbcb1ce3d838f20e3b9b8f9eae70 | |
parent | f79c3523354e45e2dbc97bb92718c9941c1a1a3b (diff) | |
download | emacs-9596ea1534d0c5146be5c1a58d0c5a70f56b44c3.tar.gz |
; Revert "* emacs-lisp/lisp-mnt.el (lm-header): save-excursion"
This reverts commit bf3f6a961f378f35a292c41c0bfbdae88ee1b1b9.
(Bug#22616)
-rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index 7d5b7dc749d..46373da5eb9 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -265,17 +265,16 @@ a section." (defun lm-header (header) "Return the contents of the header named HEADER." - (save-excursion - (goto-char (point-min)) - (let ((case-fold-search t)) - (when (and (re-search-forward (lm-get-header-re header) (lm-code-mark) t) - ;; RCS ident likes format "$identifier: data$" - (looking-at - (if (save-excursion - (skip-chars-backward "^$" (match-beginning 0)) - (= (point) (match-beginning 0))) - "[^\n]+" "[^$\n]+"))) - (match-string-no-properties 0))))) + (goto-char (point-min)) + (let ((case-fold-search t)) + (when (and (re-search-forward (lm-get-header-re header) (lm-code-mark) t) + ;; RCS ident likes format "$identifier: data$" + (looking-at + (if (save-excursion + (skip-chars-backward "^$" (match-beginning 0)) + (= (point) (match-beginning 0))) + "[^\n]+" "[^$\n]+"))) + (match-string-no-properties 0)))) (defun lm-header-multiline (header) "Return the contents of the header named HEADER, with continuation lines. |