[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master bf3f6a9: * emacs-lisp/lisp-mnt.el (lm-header): save
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master bf3f6a9: * emacs-lisp/lisp-mnt.el (lm-header): save-excursion |
Date: |
Wed, 12 Aug 2015 07:57:08 +0000 |
branch: master
commit bf3f6a961f378f35a292c41c0bfbdae88ee1b1b9
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
* emacs-lisp/lisp-mnt.el (lm-header): save-excursion
---
lisp/emacs-lisp/lisp-mnt.el | 21 +++++++++++----------
1 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index 104c23c..01ba656 100644
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -265,16 +265,17 @@ a section."
(defun lm-header (header)
"Return the contents of the header named HEADER."
- (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))))
+ (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)))))
(defun lm-header-multiline (header)
"Return the contents of the header named HEADER, with continuation lines.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master bf3f6a9: * emacs-lisp/lisp-mnt.el (lm-header): save-excursion,
Artur Malabarba <=