Ocultar^M en emacs

Question

A veces necesito leer archivos de registro que tengan^M (control-M) en los finales de línea. Puedo hacer una sustitución global para deshacerme de ellos, pero luego se registra algo más en el archivo de registro y, por supuesto, todos vuelven.

Establecer la codificación al final del estilo estilo unix o estilo dos no parece hacer mucha diferencia (pero el estilo unix es mi predeterminado). Estoy usando el sistema de codificación indeciso (unix | dos).

Estoy en Windows, leyendo archivos de registro creados por log4net (aunque log4net obviamente no es la única fuente de esta molestia).

¿Alguna pista?

Answer 1

Creo que se puede cambiar el sistema de codificación de la línea del archivo está utilizando para el formato Unix con

C-x RET f UNIX RET 

Si lo hace, la línea de modo debe cambiar para añadir la palabra "(Unix)", y todos esos^M's deberían desaparecer.

Answer 2

Si desea ver los archivos de registro y simplemente esconder los^M en lugar de reemplazarlos, puede usar Drew Adam's highlight extension para hacerlo.

Usted puede escribir elisp código o hacer una macro de teclado para hacer lo siguiente

select the whole buffer 
hlt-highlight-regexp-region 
C-q C-M 
hlt-hide-default-face 

Esto primera resaltar el^M y luego ocultarlos. Si quieres que vuelvan a usar `hlt-show-default-face '

Answer 3

¿Qué tal?

C-x RET c dos RET C-x C-f FILENAME RET 

Hice un archivo que tiene dos líneas, y el segundo tiene un retorno de carro. Emacs abriría el archivo en codificación Unix, y el sistema de codificación de conmutación no hace nada. Sin embargo, el anterior universal-coding-system-argument funciona.

Answer 4

Las versiones modernas de emacs saben cómo manejar terminaciones de línea UNIX y DOS, por lo que cuando^M aparece en el archivo, significa que hay una mezcla de ambos en el archivo. Cuando existe tal mezcla, emacs se establece de manera predeterminada en el modo UNIX, por lo que los^Ms son visibles. La verdadera solución es arreglar el programa creando el archivo para que use finales de línea consistentes.

Answer 5

(defun remove-dos-eol() 
    "Do not show ^M in files containing mixed UNIX and DOS line endings." 
    (interactive) 
    (setq buffer-display-table (make-display-table)) 
    (aset buffer-display-table ?\^M [])) 

Solución de Johan Bockgård. Lo encontré here.

Answer 6

¿qué ocurre con el uso de dos2unix, unix2dos (ahora tofrodos)?

Answer 7

Puede cambiar la entrada de la tabla de visualización del carácter Control-M (^M), para que se muestre como espacios en blanco o incluso desaparezca totalmente (vacía). Consulte el código en la biblioteca pp-c-l.el (Pretty Control-L) para obtener inspiración. Muestra ^L caracteres de forma arbitraria.

Editado: Vaya, acabo de notar que @binOr ya mencionó este método.

Answer 8

La respuesta de Edric debería llamar más la atención. La solución de Johan Bockgård aborda la queja del afiche, en la medida en que hace que los^M sean invisibles, pero eso simplemente enmascara el problema subyacente y fomenta una mayor mezcla de terminación de línea DOS y Unix.

La solución adecuada sería hacer un M-x replace-regexp global para convertir todas las terminaciones de línea en DOS (o Unix, según sea el caso). A continuación, cierre y vuelva a abrir el archivo (no estoy seguro de si M-x revert-buffer sería suficiente) y las^M serán invisibles o desaparecerán todas.

Answer 9

poner esto en su .emacs:

(defun dos2unix() 
    "Replace DOS eolns CR LF with Unix eolns CR" 
    (interactive) 
    (goto-char (point-min)) 
     (while (search-forward "\r" nil t) (replace-match ""))) 

Ahora sólo tiene que llamar dos2unix y eliminar todas las ^M caracteres.

Answer 10

Si se encuentra con ^M s en el correo recibido en ñus, puede utilizar W c (lavado CR), o

(setq gnus-treat-strip-cr t) 

Answer 11

respuesta de sudeepdino008 no funcionaba para mí (que no puedo comentar en su respuesta, por lo que Tuve que agregar mi propia respuesta.).

pude solucionarlo utilizando este código:

(defun dos2unix() 
    "Replace DOS eolns CR LF with Unix eolns CR" 
    (interactive) 
    (goto-char (point-min)) 
     (while (search-forward (string ?\C-m) nil t) (replace-match "")))