Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 3078fd1074e8
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the 22 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
29 29
30 ;;; Code: 30 ;;; Code:
31 31
32 (defun coding-system-force-on-output (coding-system register) 32 (defun coding-system-force-on-output (coding-system register)
33 "Return the 'force-on-output property of CODING-SYSTEM for the specified REGISTER." 33 "Return the 'force-on-output property of CODING-SYSTEM for the specified REGISTER."
34 (unless (integerp register) 34 (check-type register integer)
35 (signal 'wrong-type-argument (list 'integerp register)))
36 (coding-system-property 35 (coding-system-property
37 coding-system 36 coding-system
38 (case register 37 (case register
39 (0 'force-g0-on-output) 38 (0 'force-g0-on-output)
40 (1 'force-g1-on-output) 39 (1 'force-g1-on-output)