commit 0092a856ff3900c3771408893fb7fd8d731de568 (HEAD, refs/remotes/origin/master) Author: Eric Abrahamsen Date: Mon May 15 17:26:16 2017 +0800 Marked groups should always be visible in *Group* buffer * lisp/gnus/gnus-group.el (gnus-group-prepare-flat): Check for the mark in these two locations. * lisp/gnus/gnus-topic.el (gnus-topic-find-groups) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 89f17316cf..3b6ff0ab81 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1359,6 +1359,8 @@ if it is a string, only list groups matching REGEXP." (and gnus-permanently-visible-groups (string-match gnus-permanently-visible-groups group)) + ;; Marked groups are always visible. + (member group gnus-group-marked) (memq 'visible params) (cdr (assq 'visible params))))))) (gnus-group-insert-group-line diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index ea42a3e505..ba756e0314 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -220,6 +220,8 @@ If RECURSIVE is t, return groups in its subtopics too." ;; Check for permanent visibility. (and gnus-permanently-visible-groups (string-match gnus-permanently-visible-groups group)) + ;; Marked groups are always visible. + (member group gnus-group-marked) (memq 'visible params) (cdr (assq 'visible params))) ;; Add this group to the list of visible groups. commit f79c33b39f195d1b30d7a3e085804e45ab76358e Author: Sam Steingold Date: Wed Nov 22 16:14:22 2017 -0500 Use special-mode for read-only buffers. * lisp/progmodes/etags.el (tags-table-mode): Define using `define-derived-mode', inheriting from `special-mode'. Not only the buffer is now read-only, but you can bury it with "q". (select-tags-table-mode): No need to set `buffer-read-only' explicitly, `special-mode' takes care of that. * lisp/vc/log-edit.el (log-edit-show-files): Use `special-mode' instead of setting `buffer-read-only' explicitly. diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 619c2ed687..50a9f8190d 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -274,12 +274,9 @@ buffer-local and set them to nil." (run-hook-with-args-until-success 'tags-table-format-functions)) ;;;###autoload -(defun tags-table-mode () +(define-derived-mode tags-table-mode special-mode "Tags Table" "Major mode for tags table file buffers." - (interactive) - (setq major-mode 'tags-table-mode ;FIXME: Use define-derived-mode. - mode-name "Tags Table" - buffer-undo-list t) + (setq buffer-undo-list t) (initialize-new-tags-table)) ;;;###autoload @@ -2060,7 +2057,7 @@ see the doc of that variable if you want to add names to the list." (define-derived-mode select-tags-table-mode special-mode "Select Tags Table" "Major mode for choosing a current tags table among those already loaded." - (setq buffer-read-only t)) + ) (defun select-tags-table-select (button) "Select the tags table named on this line." diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index 44e7cd78ee..30457d1e2d 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el @@ -623,7 +623,7 @@ Also saves its contents in the comment history and hides (setq buffer-read-only nil) (erase-buffer) (cvs-insert-strings files) - (setq buffer-read-only t) + (special-mode) (goto-char (point-min)) (save-selected-window (cvs-pop-to-buffer-same-frame buf) commit a6844ee86e0577acaeb699a26902c4dc9e7352aa Author: Sam Steingold Date: Wed Nov 22 16:07:54 2017 -0500 Remove variable alias executing-macro, obsolete since before 19.34. diff --git a/lisp/subr.el b/lisp/subr.el index 1f68c25c88..01acc33626 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1479,10 +1479,6 @@ be a list of the form returned by `event-start' and `event-end'." (make-obsolete-variable 'command-debug-status "expect it to be removed in a future version." "25.2") -;; Lisp manual only updated in 22.1. -(define-obsolete-variable-alias 'executing-macro 'executing-kbd-macro - "before 19.34") - (define-obsolete-variable-alias 'x-lost-selection-hooks 'x-lost-selection-functions "22.1") (define-obsolete-variable-alias 'x-sent-selection-hooks commit 72688426cef4e5128ce68f75cb8a3f31572daec0 Author: Sam Steingold Date: Wed Nov 22 16:05:45 2017 -0500 Remove *-yank-hooks aliases for -citation-hook, obsolete since 19.34. * lisp/simple.el (compose-mail): Use `mail-citation-hook' instead of `mail-yank-hooks'. * lisp/mail/sendmail.el (mail-yank-hooks): Remove. (mail-yank-original, mail-yank-region): Drop `mail-yank-hooks'. * lisp/mh-e/mh-letter.el (mh-yank-hooks): Remove. (mh-insert-prefix-string): Drop `mh-yank-hooks'. diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 3e22fd8411..cd80211527 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -243,15 +243,6 @@ Used by `mail-yank-original' via `mail-indent-citation'." :type 'integer :group 'sendmail) -(defvar mail-yank-hooks nil - "Obsolete hook for modifying a citation just inserted in the mail buffer. -Each hook function can find the citation between (point) and (mark t). -And each hook function should leave point and mark around the citation -text as modified. -This is a normal hook, misnamed for historical reasons. -It is obsolete and mail agents should no longer use it.") -(make-obsolete-variable 'mail-yank-hooks 'mail-citation-hook "19.34") - ;;;###autoload (defcustom mail-citation-hook nil "Hook for modifying a citation just inserted in the mail buffer. @@ -1718,8 +1709,6 @@ and don't delete any header fields." (rfc822-goto-eoh) (point)))))) (run-hooks 'mail-citation-hook))) - (mail-yank-hooks - (run-hooks 'mail-yank-hooks)) (t (mail-indent-citation))))) ;; This is like exchange-point-and-mark, but doesn't activate the mark. @@ -1788,9 +1777,7 @@ and don't delete any header fields." (rfc822-goto-eoh) (point)))))) (run-hooks 'mail-citation-hook)) - (if mail-yank-hooks - (run-hooks 'mail-yank-hooks) - (mail-indent-citation)))))))) + (mail-indent-citation))))))) (defun mail-split-line () "Split current line, moving portion beyond point vertically down. diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el index 28c18e4dd2..871ba49522 100644 --- a/lisp/mh-e/mh-letter.el +++ b/lisp/mh-e/mh-letter.el @@ -60,17 +60,6 @@ (to . mh-alias-letter-expand-alias)) "Alist of header fields and completion functions to use.") -(defvar mh-yank-hooks nil - "Obsolete hook for modifying a citation just inserted in the mail buffer. - -Each hook function can find the citation between point and mark. -And each hook function should leave point and mark around the -citation text as modified. - -This is a normal hook, misnamed for historical reasons. -It is obsolete and is only used if `mail-citation-hook' is nil.") -(mh-make-obsolete-variable 'mh-yank-hooks 'mail-citation-hook "19.34") - ;;; Letter Menu @@ -972,8 +961,6 @@ Otherwise, simply insert MH-INS-STRING before each line." (sc-cite-original)) (mail-citation-hook (run-hooks 'mail-citation-hook)) - (mh-yank-hooks ;old hook name - (run-hooks 'mh-yank-hooks)) (t (or (bolp) (forward-line 1)) (while (< (point) (point-max)) diff --git a/lisp/simple.el b/lisp/simple.el index 22a8e25bc7..fde6669df1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -7855,7 +7855,7 @@ buffer buried." (eq mail-user-agent 'message-user-agent) (let (warn-vars) (dolist (var '(mail-mode-hook mail-send-hook mail-setup-hook - mail-yank-hooks mail-archive-file-name + mail-citation-hook mail-archive-file-name mail-default-reply-to mail-mailing-lists mail-self-blind)) (and (boundp var)