------------------------------------------------------------
revno: 107371
fixes bug(s): http://debbugs.gnu.org/172
committer: Glenn Morris <rgm@xxxxxxx>
branch nick: trunk
timestamp: Tue 2012-02-21 20:02:44 -0800
message:
dired-guess-shell-alist-default tiny nroff change

* dired-x.el (dired-guess-shell-alist-default):
Remove escape sequences from nroff output.
modified:
lisp/ChangeLog
lisp/dired-x.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-02-21 22:23:51 +0000
+++ b/lisp/ChangeLog 2012-02-22 04:02:44 +0000
@@ -1,3 +1,8 @@
+2012-02-22 Glenn Morris <rgm@xxxxxxx>
+
+ * dired-x.el (dired-guess-shell-alist-default):
+ Remove escape sequences from nroff output. (Bug#172)
+
2012-02-21 Glenn Morris <rgm@xxxxxxx>

* vc/emerge.el (emerge-defvar-local):

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el 2012-02-11 22:13:29 +0000
+++ b/lisp/dired-x.el 2012-02-22 04:02:44 +0000
@@ -964,24 +964,26 @@
;; 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))

_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@xxxxxxx
https://lists.gnu.org/mailman/listinfo/emacs-diffs