/[emacs]/emacs/lisp/textmodes/po.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/po.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by fx, Wed Oct 30 19:47:53 2002 UTC revision 1.8 by lektu, Sun Jul 13 17:15:12 2003 UTC
# Line 42  Contains canonical charset names that do Line 42  Contains canonical charset names that do
42  (defun po-find-charset (filename)  (defun po-find-charset (filename)
43    "Return PO charset value for FILENAME."    "Return PO charset value for FILENAME."
44    (let ((charset-regexp    (let ((charset-regexp
45           "^\"Content-Type: text/plain;[ \t]*charset=\\(.*\\)\\\\n\"")           "^\"Content-Type:[ \t]*text/plain;[ \t]*charset=\\(.*\\)\\\\n\"")
46          (short-read nil))          (short-read nil))
47      ;; Try the first 4096 bytes.  In case we cannot find the charset value      ;; Try the first 4096 bytes.  In case we cannot find the charset value
48      ;; within the first 4096 bytes (the PO file might start with a long      ;; within the first 4096 bytes (the PO file might start with a long

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26