/[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.5.2.1 by miles, Fri Apr 4 06:20:39 2003 UTC revision 1.5.2.2 by miles, Tue Oct 14 23:30:21 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
# Line 122  Called through `file-coding-system-alist Line 122  Called through `file-coding-system-alist
122    
123  (provide 'po)  (provide 'po)
124    
125    ;;; arch-tag: 56748a57-d64c-4200-8f6b-c3a70496eb8c
126  ;;; po.el ends here  ;;; po.el ends here

Legend:
Removed from v.1.5.2.1  
changed lines
  Added in v.1.5.2.2

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