diff options
| author | Eli Zaretskii | 2025-08-09 15:42:26 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-08-09 15:42:26 +0300 |
| commit | ae56edbbf8fa49ffec2aa8983970f1665450670d (patch) | |
| tree | f5e64a140c96f1a22e06ea8fe41cd5a116d03815 | |
| parent | 9748c13208f16d6737452af0d65745c9d7898fc6 (diff) | |
| download | emacs-ae56edbbf8fa49ffec2aa8983970f1665450670d.tar.gz emacs-ae56edbbf8fa49ffec2aa8983970f1665450670d.zip | |
Revert "Stop subprocesses from using inherited or default PAGER"
This reverts commit 7811a7d38bb7cb303dc66efa02eb95e75a03f39d.
Users set PAGER and don't expect Emacs to override that. See
https://lists.gnu.org/archive/html/emacs-devel/2025-07/msg00309.html.
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 35c3cb03e17..836ead6deb0 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -853,12 +853,6 @@ It is the default value of the variable `top-level'." | |||
| 853 | ;; We are careful to do it late (after term-setup-hook), although the | 853 | ;; We are careful to do it late (after term-setup-hook), although the |
| 854 | ;; new multi-tty code does not use $TERM any more there anyway. | 854 | ;; new multi-tty code does not use $TERM any more there anyway. |
| 855 | (setenv "TERM" "dumb") | 855 | (setenv "TERM" "dumb") |
| 856 | ;; Similarly, a subprocess should not try to invoke a pager, as most | ||
| 857 | ;; pagers will fail in a dumb terminal. Many programs default to | ||
| 858 | ;; using "less" when PAGER is unset, so set PAGER to "cat"; using cat | ||
| 859 | ;; as a pager is equivalent to not using a pager at all. | ||
| 860 | (when (executable-find "cat") | ||
| 861 | (setenv "PAGER" "cat")) | ||
| 862 | ;; Remove DISPLAY from the process-environment as well. This allows | 856 | ;; Remove DISPLAY from the process-environment as well. This allows |
| 863 | ;; `callproc.c' to give it a useful adaptive default which is either | 857 | ;; `callproc.c' to give it a useful adaptive default which is either |
| 864 | ;; the value of the `display' frame-parameter or the DISPLAY value | 858 | ;; the value of the `display' frame-parameter or the DISPLAY value |