[Emacs-diffs] /srv/bzr/emacs/trunk r107371: dired-guess-shell-alist-default tiny nroff change

[Glenn Morris]

------------------------------------------------------------
revno: 107371
fixes bug(s): http://debbugs.gnu.org/172
committer: Glenn Morris <address@hidden>
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  <address@hidden>
+
+       * dired-x.el (dired-guess-shell-alist-default):
+       Remove escape sequences from nroff output.  (Bug#172)
+
 2012-02-21  Glenn Morris  <address@hidden>
 
        * 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))