[Emacs-diffs] emacs-25 9596ea1 1/2: ; Revert "* emacs-lisp/lisp-mnt.el (lm-header): save-excursion"

[Dmitry Gutov]

branch: emacs-25
commit 9596ea1534d0c5146be5c1a58d0c5a70f56b44c3
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    ; Revert "* emacs-lisp/lisp-mnt.el (lm-header): save-excursion"
    
    This reverts commit bf3f6a961f378f35a292c41c0bfbdae88ee1b1b9.
    
    (Bug#22616)
---
 lisp/emacs-lisp/lisp-mnt.el |   21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index 7d5b7dc..46373da 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.