Commit 113ef437 authored by Deniz Dogan's avatar Deniz Dogan Committed by Chong Yidong
Browse files

Backport Bug#7933 fix from trunk.

* lisp/net/rcirc.el: Clean log filenames (Bug#7933).
(rcirc-log-write): Use convert-standard-filename.
(rcirc-log-filename-function): Documentation updates.
parent 3b95603f
2011-01-31 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el: Clean log filenames (Bug#7933).
(rcirc-log-write): Use convert-standard-filename.
(rcirc-log-filename-function): Documentation updates.
2011-01-31 Alan Mackenzie <acm@muc.de>
* progmodes/cc-cmds.el (c-forward-over-illiterals): Continue
......
......@@ -1520,8 +1520,11 @@ return the filename, or nil if no logging is desired for this
session.
If the returned filename is absolute (`file-name-absolute-p'
returns true), then it is used as-is, otherwise the resulting
file is put into `rcirc-log-directory'."
returns t), then it is used as-is, otherwise the resulting file
is put into `rcirc-log-directory'.
The filename is then cleaned using `convert-standard-filename' to
guarantee valid filenames for the current OS."
:group 'rcirc
:type 'function)
......@@ -1546,7 +1549,9 @@ file is put into `rcirc-log-directory'."
Log data is written to `rcirc-log-directory', except for
log-files with absolute names (see `rcirc-log-filename-function')."
(dolist (cell rcirc-log-alist)
(let ((filename (expand-file-name (car cell) rcirc-log-directory))
(let ((filename (convert-standard-filename
(expand-file-name (car cell)
rcirc-log-directory)))
(coding-system-for-write 'utf-8))
(make-directory (file-name-directory filename) t)
(with-temp-buffer
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment