branch: elpa/logview
commit 12bf9718de62d5e90eca65d676a942c12d5c1399
Author: JenChieh <jcs090...@gmail.com>
Commit: JenChieh <jcs090...@gmail.com>
fix: Better compatibility to select log file
---
logview.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/logview.el b/logview.el
index 98273fa1b2..583a01bf2d 100644
--- a/logview.el
+++ b/logview.el
@@ -62,7 +62,7 @@
;; other rules, as '.log' is a common file extension. This also gives
;; the user an easy way to prevent 'logview' from being autoselected.
;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.log\\(?:\\.[0-9]+\\)?\\'" . logview-mode)
t)
+(add-to-list 'auto-mode-alist '("\\.log\\(?:\\.[0-9\\-]+\\)?\\'" .
logview-mode) t)
@@ -807,7 +807,7 @@ of (IS-MAIN . FILTER-TEXT).")
"‘As important’ means entries with the same or higher level. See also
commands in ‘Sections’ below")
("Narrowing and widening"
- (logview-narrow-from-this-entry logview-narrow-up-to-this-entry
"Narrow from / up to this entry")
+(logview-narrow-from-this-entry logview-narrow-up-to-this-entry
"Narrow from / up to this entry")
(logview-widen
"Widen")
(logview-widen-upwards logview-widen-downwards
"Widen upwards / downwards")
"See also commands in ‘Sections’ below")
@@ -1760,9 +1760,9 @@ It is only for interactive use. Non-interactively, use
`logview-switch-to-view' instead."
(interactive)
(let* ((char (if (integerp last-command-event)
- last-command-event
- (get last-command-event 'ascii-character)))
- (index (- (logand char #x7f) ?0)))
+ last-command-event
+ (get last-command-event 'ascii-character)))
+ (index (- (logand char #x7f) ?0)))
(unless (<= 0 index 9)
(user-error "This command must invoked by a numeric key, possibly with
modifiers"))
(logview-switch-to-view index)))
@@ -1847,7 +1847,7 @@ minibuffer."
nil)
(t
(message "Please enter a number")
- (sit-for 1)
+ (sit-for 1)
t))))
index))))
(let ((view (logview--current-view)))
