Mercurial > emacs

comparison lisp/man.el @ 104823:68150c643e2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use default-value rather than default-enable-multibyte-characters.
author Glenn Morris <rgm@gnu.org>
date Thu, 03 Sep 2009 06:54:57 +0000
parents 3c25891e2a47
children 6c0524d168f6
comparison
equal deleted inserted replaced
104822:a41e72b7e5fc 104823:68150c643e2e
1 ;;; man.el --- browse UNIX manual pages -*- coding: iso-8859-1 -*- 1 ;;; man.el --- browse UNIX manual pages -*- coding: iso-8859-1 -*-
2 2
3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2001, 2002, 2003, 3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2001, 2002, 2003, 2004, 2005,
4 ;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
5 5
6 ;; Author: Barry A. Warsaw <bwarsaw@cen.com> 6 ;; Author: Barry A. Warsaw <bwarsaw@cen.com>
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Keywords: help 8 ;; Keywords: help
9 ;; Adapted-By: ESR, pot 9 ;; Adapted-By: ESR, pot
809 ;; But don't prevent decoding of the outside. 809 ;; But don't prevent decoding of the outside.
810 (coding-system-for-write 'raw-text-unix) 810 (coding-system-for-write 'raw-text-unix)
811 ;; We must decode the output by a coding system that the 811 ;; We must decode the output by a coding system that the
812 ;; system's locale suggests in multibyte mode. 812 ;; system's locale suggests in multibyte mode.
813 (coding-system-for-read 813 (coding-system-for-read
814 (if default-enable-multibyte-characters 814 (if (default-value 'enable-multibyte-characters)
815 locale-coding-system 'raw-text-unix)) 815 locale-coding-system 'raw-text-unix))
816 ;; Avoid possible error by using a directory that always exists. 816 ;; Avoid possible error by using a directory that always exists.
817 (default-directory 817 (default-directory
818 (if (and (file-directory-p default-directory) 818 (if (and (file-directory-p default-directory)
819 (not (find-file-name-handler default-directory 819 (not (find-file-name-handler default-directory