[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111844: * lisp/informat.el (Info-tag
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111844: * lisp/informat.el (Info-tagify): Handle buffers not visiting files. |
Date: |
Wed, 20 Feb 2013 22:39:04 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111844
fixes bug: http://debbugs.gnu.org/13763
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-02-20 22:39:04 -0800
message:
* lisp/informat.el (Info-tagify): Handle buffers not visiting files.
modified:
lisp/ChangeLog
lisp/informat.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-02-21 04:27:05 +0000
+++ b/lisp/ChangeLog 2013-02-21 06:39:04 +0000
@@ -1,3 +1,8 @@
+2013-02-21 Glenn Morris <address@hidden>
+
+ * informat.el (Info-tagify):
+ Handle buffers not visiting files. (Bug#13763)
+
2013-02-21 Juanma Barranquero <address@hidden>
* calc/calc-graph.el (calc-graph-show-dumb): Fix typo.
=== modified file 'lisp/informat.el'
--- a/lisp/informat.el 2013-01-01 09:11:05 +0000
+++ b/lisp/informat.el 2013-02-21 06:39:04 +0000
@@ -43,14 +43,17 @@
;; save-restrictions would not work
;; because it records the old max relative to the end.
;; We record it relative to the beginning.
- (if input-buffer-name
- (message "Tagifying region in %s ..." input-buffer-name)
- (message
- "Tagifying %s ..." (file-name-nondirectory (buffer-file-name))))
(let ((omin (point-min))
(omax (point-max))
(nomax (= (point-max) (1+ (buffer-size))))
- (opoint (point)))
+ (opoint (point))
+ (msg (format "Tagifying %s..."
+ (cond (input-buffer-name
+ (format "region in %s" input-buffer-name))
+ (buffer-file-name
+ (file-name-nondirectory (buffer-file-name)))
+ (t "buffer")))))
+ (message "%s" msg)
(unwind-protect
(progn
(widen)
@@ -148,11 +151,8 @@
(insert "\^_\nEnd tag table\n")))))
(goto-char opoint)
(narrow-to-region omin (if nomax (1+ (buffer-size))
- (min omax (point-max))))))
- (if input-buffer-name
- (message "Tagifying region in %s done" input-buffer-name)
- (message
- "Tagifying %s done" (file-name-nondirectory (buffer-file-name)))))
+ (min omax (point-max)))))
+ (message "%sdone" msg)))
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111844: * lisp/informat.el (Info-tagify): Handle buffers not visiting files.,
Glenn Morris <=