procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow customising the article mode cursor behavior

Browse source 
* doc/misc/gnus.texi (HTML): Mention gnus-article-show-cursor.

* lisp/gnus/gnus-art.el (gnus-article-show-cursor): New variable.
(gnus-article-mode): Use it.
This commit is contained in:
Lars Ingebrigtsen 2016-02-20 19:05:45 +11:00
parent 24c1c1d5c3
commit 896f993dec
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
doc/misc/gnus.texi
View file

@ -11828,6 +11828,10 @@ A value of 0.7 (the default) means that they are allowed to take up
this, and Emacs supports it, then the images will be rescaled down to this, and Emacs supports it, then the images will be rescaled down to
fit these criteria. fit these criteria.
@item gnus-article-show-cursor
@vindex gnus-article-show-cursor
If non-@code{nil}, display the cursor in the article buffer even when
the article buffer isn't the current buffer.
@end table @end table
To use this, make sure that you have @code{w3m} and @code{curl} To use this, make sure that you have @code{w3m} and @code{curl}

9
lisp/gnus/gnus-art.el
View file

@ -527,6 +527,12 @@ each invocation of the saving commands."
(item :tag "never" nil) (item :tag "never" nil)
(sexp :tag "once" :format "%t\n" :value t))) (sexp :tag "once" :format "%t\n" :value t)))
(defcustom gnus-article-show-cursor nil
"If non-nil, show the cursor in the Article buffer even when not selected."
:version "25.1"
:group 'gnus-article
:type 'bool)
(defcustom gnus-saved-headers gnus-visible-headers (defcustom gnus-saved-headers gnus-visible-headers
"Headers to keep if `gnus-save-all-headers' is nil. "Headers to keep if `gnus-save-all-headers' is nil.
If `gnus-save-all-headers' is non-nil, this variable will be ignored. If `gnus-save-all-headers' is non-nil, this variable will be ignored.
@ -4521,7 +4527,8 @@ commands:
(set (make-local-variable 'nobreak-char-display) nil) (set (make-local-variable 'nobreak-char-display) nil)
;; Enable `gnus-article-remove-images' to delete images shr.el renders. ;; Enable `gnus-article-remove-images' to delete images shr.el renders.
(set (make-local-variable 'shr-put-image-function) 'gnus-shr-put-image) (set (make-local-variable 'shr-put-image-function) 'gnus-shr-put-image)
(setq cursor-in-non-selected-windows nil) (unless gnus-article-show-cursor
(setq cursor-in-non-selected-windows nil))
(gnus-set-default-directory) (gnus-set-default-directory)
(buffer-disable-undo) (buffer-disable-undo)
(setq buffer-read-only t (setq buffer-read-only t