mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

dired-guess-shell-alist-default tiny nroff change

Browse source 
* dired-x.el (dired-guess-shell-alist-default):
Remove escape sequences from nroff output.

Fixes: debbugs:172
This commit is contained in:
Glenn Morris 2012-02-21 20:02:44 -08:00
parent 6ff86ec481
commit f25aef2e1e
2 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-02-22 Glenn Morris <rgm@gnu.org>
* dired-x.el (dired-guess-shell-alist-default):
Remove escape sequences from nroff output. (Bug#172)
2012-02-21 Glenn Morris <rgm@gnu.org>
* vc/emerge.el (emerge-defvar-local):

22
lisp/dired-x.el
View file

@ -964,24 +964,26 @@ replace it with a dir-locals-file `./%s'"
;; FIXME "man ./" does not work with dired-do-shell-command,
;; because there seems to be no way for us to modify the filename,
;; only the command. Hmph. `dired-man' works though.
(list "\\.\\(?:[0-9]\\|man\\)\\'" '(let ((loc (Man-support-local-filenames)))
(cond ((eq loc 'man-db) "man -l")
((eq loc 'man) "man ./")
(t
"cat * | tbl | nroff -man -h"))))
(list "\\.\\(?:[0-9]\\|man\\)\\'"
'(let ((loc (Man-support-local-filenames)))
(cond ((eq loc 'man-db) "man -l")
((eq loc 'man) "man ./")
(t
"cat * | tbl | nroff -man -h | col -b"))))
(list "\\.\\(?:[0-9]\\|man\\)\\.g?z\\'"
'(let ((loc (Man-support-local-filenames)))
(cond ((eq loc 'man-db)
"man -l")
((eq loc 'man)
"man ./")
(t "gunzip -qc * | tbl | nroff -man -h")))
(t "gunzip -qc * | tbl | nroff -man -h | col -b")))
;; Optional decompression.
'(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q")))
(list "\\.[0-9]\\.Z\\'" '(let ((loc (Man-support-local-filenames)))
(cond ((eq loc 'man-db) "man -l")
((eq loc 'man) "man ./")
(t "zcat * | tbl | nroff -man -h")))
(list "\\.[0-9]\\.Z\\'"
'(let ((loc (Man-support-local-filenames)))
(cond ((eq loc 'man-db) "man -l")
((eq loc 'man) "man ./")
(t "zcat * | tbl | nroff -man -h | col -b")))
;; Optional conversion to gzip format.
'(concat "znew" (if dired-guess-shell-gzip-quiet " -q")
" " dired-guess-shell-znew-switches))