diff options
| author | Michael Albinus | 2025-04-22 08:45:34 +0200 |
|---|---|---|
| committer | Michael Albinus | 2025-04-22 08:45:34 +0200 |
| commit | fc5e905dc90e21b1a381bde42e22c06f45c17e16 (patch) | |
| tree | f101833adfcc5204cacf4ce84a90142846c147a6 | |
| parent | 45e849bddc1c7777628d3f42557ddbd8a6ba96b7 (diff) | |
| download | emacs-fc5e905dc90e21b1a381bde42e22c06f45c17e16.tar.gz emacs-fc5e905dc90e21b1a381bde42e22c06f45c17e16.zip | |
Make `man' more portable
* lisp/man.el (Man-init-defvars): Use [:cntrl:]. Character ranges
with octal numbers aren't portable enough. (Bug#77944)
| -rw-r--r-- | lisp/man.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/man.el b/lisp/man.el index d34d9154052..397162a7ad1 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -635,9 +635,7 @@ This is necessary if one wants to dump man.el with Emacs." | |||
| 635 | (if Man-sed-script | 635 | (if Man-sed-script |
| 636 | (concat "-e '" Man-sed-script "'") | 636 | (concat "-e '" Man-sed-script "'") |
| 637 | "") | 637 | "") |
| 638 | ;; Use octal numbers. Otherwise, \032 (Ctrl-Z) would | 638 | "-e '/^[[:cntrl:]][[:cntrl:]]*$/d'" |
| 639 | ;; suspend remote connections. | ||
| 640 | "-e '/^[\\o001-\\o032][\\o001-\\o032]*$/d'" | ||
| 641 | "-e '/\e[789]/s///g'" | 639 | "-e '/\e[789]/s///g'" |
| 642 | "-e '/Reformatting page. Wait/d'" | 640 | "-e '/Reformatting page. Wait/d'" |
| 643 | "-e '/Reformatting entry. Wait/d'" | 641 | "-e '/Reformatting entry. Wait/d'" |
| @@ -772,7 +770,7 @@ Different man programs support this feature in different ways. | |||
| 772 | The default Debian man program (\"man-db\") has a `--local-file' | 770 | The default Debian man program (\"man-db\") has a `--local-file' |
| 773 | \(or `-l') option for this purpose. The default Red Hat man | 771 | \(or `-l') option for this purpose. The default Red Hat man |
| 774 | program has no such option, but interprets any name containing | 772 | program has no such option, but interprets any name containing |
| 775 | a \"/\" as a local filename. The function returns either `man-db' | 773 | a \"/\" as a local filename. The function returns either `man-db', |
| 776 | `man', or nil." | 774 | `man', or nil." |
| 777 | (if (eq Man-support-local-filenames 'auto-detect) | 775 | (if (eq Man-support-local-filenames 'auto-detect) |
| 778 | (with-connection-local-variables | 776 | (with-connection-local-variables |