Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-debug.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children e45d5e7c476e
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
140 (interactive) 140 (interactive)
141 (let ((cs (and (fboundp 'process-coding-system) (process-coding-system))) 141 (let ((cs (and (fboundp 'process-coding-system) (process-coding-system)))
142 eol-type) 142 eol-type)
143 (message 143 (message
144 "current: [FKDPp=%c%c%c%c%c%c%c%c] default: [FPp=%c%c%c%c%c%c]" 144 "current: [FKDPp=%c%c%c%c%c%c%c%c] default: [FPp=%c%c%c%c%c%c]"
145 (coding-system-mnemonic file-coding-system) 145 (coding-system-mnemonic buffer-file-coding-system)
146 (coding-system-eol-mnemonic file-coding-system) 146 (coding-system-eol-mnemonic buffer-file-coding-system)
147 (coding-system-mnemonic keyboard-coding-system) 147 (coding-system-mnemonic keyboard-coding-system)
148 (coding-system-mnemonic terminal-coding-system) 148 (coding-system-mnemonic terminal-coding-system)
149 (coding-system-mnemonic (car cs)) 149 (coding-system-mnemonic (car cs))
150 (coding-system-eol-mnemonic (car cs)) 150 (coding-system-eol-mnemonic (car cs))
151 (coding-system-mnemonic (cdr cs)) 151 (coding-system-mnemonic (cdr cs))
152 (coding-system-eol-mnemonic (cdr cs)) 152 (coding-system-eol-mnemonic (cdr cs))
153 (coding-system-mnemonic (default-value 'file-coding-system)) 153 (coding-system-mnemonic (default-value 'buffer-file-coding-system))
154 (coding-system-eol-mnemonic (default-value 'file-coding-system)) 154 (coding-system-eol-mnemonic (default-value 'buffer-file-coding-system))
155 (coding-system-mnemonic (car default-process-coding-system)) 155 (coding-system-mnemonic (car default-process-coding-system))
156 (coding-system-eol-mnemonic (car default-process-coding-system)) 156 (coding-system-eol-mnemonic (car default-process-coding-system))
157 (coding-system-mnemonic (cdr default-process-coding-system)) 157 (coding-system-mnemonic (cdr default-process-coding-system))
158 (coding-system-eol-mnemonic (cdr default-process-coding-system)) 158 (coding-system-eol-mnemonic (cdr default-process-coding-system))
159 ))) 159 )))
241 (interactive "P") 241 (interactive "P")
242 (with-output-to-temp-buffer "*Help*" 242 (with-output-to-temp-buffer "*Help*"
243 (if (null all) 243 (if (null all)
244 (let ((cs (and (fboundp 'process-coding-system) 244 (let ((cs (and (fboundp 'process-coding-system)
245 (process-coding-system)))) 245 (process-coding-system))))
246 (princ "Current:\n file-coding-system") 246 (princ "Current:\n buffer-file-coding-system")
247 (princ-coding-system file-coding-system) 247 (princ-coding-system buffer-file-coding-system)
248 (princ " keyboard-coding-system") 248 (princ " keyboard-coding-system")
249 (princ-coding-system keyboard-coding-system) 249 (princ-coding-system keyboard-coding-system)
250 (princ " terminal-coding-system") 250 (princ " terminal-coding-system")
251 (princ-coding-system terminal-coding-system) 251 (princ-coding-system terminal-coding-system)
252 (when cs 252 (when cs
253 (princ " process-coding-system (input)") 253 (princ " process-coding-system (input)")
254 (princ-coding-system (car cs)) 254 (princ-coding-system (car cs))
255 (princ " process-coding-system (output)") 255 (princ " process-coding-system (output)")
256 (princ-coding-system (cdr cs))) 256 (princ-coding-system (cdr cs)))
257 (princ "Default:\n file-coding-system") 257 (princ "Default:\n buffer-file-coding-system")
258 (princ-coding-system (default-value 'file-coding-system)) 258 (princ-coding-system (default-value 'buffer-file-coding-system))
259 (princ " process-coding-system (input)") 259 (princ " process-coding-system (input)")
260 (princ-coding-system (car default-process-coding-system)) 260 (princ-coding-system (car default-process-coding-system))
261 (princ " process-coding-system (output)") 261 (princ " process-coding-system (output)")
262 (princ-coding-system (cdr default-process-coding-system)) 262 (princ-coding-system (cdr default-process-coding-system))
263 (princ "Others:\n file-coding-system-for-read") 263 (princ "Others:\n buffer-file-coding-system-for-read")
264 (princ-coding-system file-coding-system-for-read) 264 (princ-coding-system buffer-file-coding-system-for-read)
265 (princ "Coding categories by priority:\n") 265 (princ "Coding categories by priority:\n")
266 (princ (coding-priority-list))) 266 (princ (coding-priority-list)))
267 (princ "########################\n") 267 (princ "########################\n")
268 (princ "## LIST OF CODING SYSTEM\n") 268 (princ "## LIST OF CODING SYSTEM\n")
269 (princ "## NAME(str):TYPE(int):MNEMONIC(char):EOL(int):FLAGS:DOC(str)\n") 269 (princ "## NAME(str):TYPE(int):MNEMONIC(char):EOL(int):FLAGS:DOC(str)\n")