OSDN > Find Software > Office/Business > Scheduling > howm：一人お手軽Wikiもどき > SCM > git > howm > Commit

howm：一人お手軽Wikiもどき
Fork

howm: Commit

Hitori Otegaru Wiki Modoki

fix buggy "u" key

--- a/ChangeLog

+++ b/ChangeLog

		@@ -1,3 +1,9 @@
	1	+2023-02-18 HIRAOKA Kazuyuki <khi@users.osdn.me>
	2	+
	3	+ * howm-view.el (howm-view-toggle-uniq): fix buggy "u" key
	4	+ By "C-c , s foo RET u C-c , s bar RET u", one got the old "foo" result.
	5	+ thx > Andrei Sukhovskii san (qojop at tuta.io)
	6	+
1	7	2023-02-16 HIRAOKA Kazuyuki <khi@users.osdn.me>
2	8
3	9	* configure.ac: version 1.5.1-snapshot3

--- a/howm-view.el

+++ b/howm-view.el

		@@ -304,6 +304,7 @@ key binding
304	304	(howm-view-in-background-p))))
305	305	(if (null r)
306	306	(message "No match")
	307	+ (howm-view-expire-uniq)
307	308	;; We want to entry font-lock keywords even when background-p.
308	309	(when howm-view-font-lock-keywords
309	310	(setq howm-view-font-lock-keywords howm-view-font-lock-keywords)))

		@@ -590,11 +591,14 @@ But I'm not sure for multi-byte characters on other versions of emacsen."
590	591	(defun howm-view-toggle-uniq ()
591	592	(interactive)
592	593	(if howm-view-uniq-previous
593		- (let ((prev howm-view-uniq-previous))
594		- (setq howm-view-uniq-previous nil)
595		- (howm-view-summary-rebuild prev))
596		- (setq howm-view-uniq-previous (howm-view-item-list))
597		- (howm-view-filter-doit #'howm-filter-items-uniq)))
	594	+ (howm-view-summary-rebuild howm-view-uniq-previous)
	595	+ (let ((prev (howm-view-item-list)))
	596	+ (howm-view-filter-doit #'howm-filter-items-uniq)
	597	+ ;; need to set howm-view-uniq-previous AFTER rebuilding of
	598	+ ;; the summary buffer because howm-view-expire-uniq is called in it.
	599	+ (setq howm-view-uniq-previous prev))))
	600	+(defun howm-view-expire-uniq ()
	601	+ (setq howm-view-uniq-previous nil))
598	602
599	603	(defun howm-view-filter-by-name (&optional remove-p regexp)
600	604	(interactive "P")