mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix compilation warning in gnus-start.el

Browse source 
* lisp/gnus/gnus-start.el (gnus-gnus-to-quick-newsrc-format): Fix
compilation warning by not binding XEmacs-only variable.

* lisp/gnus/gnus-util.el (gnus-bind-print-variables): Ditto.
(gnus-prin1, gnus-prin1-to-string, gnus-pp, gnus-pp-to-string):
Adjust doc string.
This commit is contained in:
Lars Ingebrigtsen 2019-12-25 17:12:10 +01:00
parent 91c16acbe2
commit 0b32f59764
2 changed files with 11 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/gnus/gnus-start.el
View file

@ -2871,7 +2871,6 @@ SPECIFIC-VARIABLES, or those in `gnus-variable-list'."
(nth 1 (gethash g gnus-newsrc-hashtb))) (nth 1 (gethash g gnus-newsrc-hashtb)))
(delete "dummy.group" gnus-group-list))) (delete "dummy.group" gnus-group-list)))
(let* ((print-quoted t) (let* ((print-quoted t)
(print-readably t)
(print-escape-multibyte nil) (print-escape-multibyte nil)
(print-escape-nonascii t) (print-escape-nonascii t)
(print-length nil) (print-length nil)

23
lisp/gnus/gnus-util.el
View file

@ -690,13 +690,12 @@ yield \"nnimap:yxa\"."
(defmacro gnus-bind-print-variables (&rest forms) (defmacro gnus-bind-print-variables (&rest forms)
"Bind print-* variables and evaluate FORMS. "Bind print-* variables and evaluate FORMS.
This macro is used with `prin1', `pp', etc. in order to ensure printed This macro is used with `prin1', `pp', etc. in order to ensure
Lisp objects are loadable. Bind `print-quoted' and `print-readably' printed Lisp objects are loadable. Bind `print-quoted' to t, and
to t, and `print-escape-multibyte', `print-escape-newlines', `print-escape-multibyte', `print-escape-newlines',
`print-escape-nonascii', `print-length', `print-level' and `print-escape-nonascii', `print-length', `print-level' and
`print-string-length' to nil." `print-string-length' to nil."
`(let ((print-quoted t) `(let ((print-quoted t)
(print-readably t)
;;print-circle ;;print-circle
;;print-continuous-numbering ;;print-continuous-numbering
print-escape-multibyte print-escape-multibyte
@ -710,26 +709,26 @@ to t, and `print-escape-multibyte', `print-escape-newlines',
(defun gnus-prin1 (form) (defun gnus-prin1 (form)
"Use `prin1' on FORM in the current buffer. "Use `prin1' on FORM in the current buffer.
Bind `print-quoted' and `print-readably' to t, and `print-length' and Bind `print-quoted' to t, and `print-length' and `print-level' to
`print-level' to nil. See also `gnus-bind-print-variables'." nil. See also `gnus-bind-print-variables'."
(gnus-bind-print-variables (prin1 form (current-buffer)))) (gnus-bind-print-variables (prin1 form (current-buffer))))
(defun gnus-prin1-to-string (form) (defun gnus-prin1-to-string (form)
"The same as `prin1'. "The same as `prin1'.
Bind `print-quoted' and `print-readably' to t, and `print-length' and Bind `print-quoted' to t, and `print-length' and `print-level' to
`print-level' to nil. See also `gnus-bind-print-variables'." nil. See also `gnus-bind-print-variables'."
(gnus-bind-print-variables (prin1-to-string form))) (gnus-bind-print-variables (prin1-to-string form)))
(defun gnus-pp (form &optional stream) (defun gnus-pp (form &optional stream)
"Use `pp' on FORM in the current buffer. "Use `pp' on FORM in the current buffer.
Bind `print-quoted' and `print-readably' to t, and `print-length' and Bind `print-quoted' to t, and `print-length' and `print-level' to
`print-level' to nil. See also `gnus-bind-print-variables'." nil. See also `gnus-bind-print-variables'."
(gnus-bind-print-variables (pp form (or stream (current-buffer))))) (gnus-bind-print-variables (pp form (or stream (current-buffer)))))
(defun gnus-pp-to-string (form) (defun gnus-pp-to-string (form)
"The same as `pp-to-string'. "The same as `pp-to-string'.
Bind `print-quoted' and `print-readably' to t, and `print-length' and Bind `print-quoted' to t, and `print-length' and `print-level' to
`print-level' to nil. See also `gnus-bind-print-variables'." nil. See also `gnus-bind-print-variables'."
(gnus-bind-print-variables (pp-to-string form))) (gnus-bind-print-variables (pp-to-string form)))
(defun gnus-make-directory (directory) (defun gnus-make-directory (directory)