Mercurial > emacs

comparison lisp/w32-fns.el @ 41325:65bad70edb17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(w32-system-coding-system): Change to an alias for locale-coding-system. (set-w32-system-coding-system): Document the above change. Set locale-coding-system instead.
author Jason Rumney <jasonr@gnu.org>
date Tue, 20 Nov 2001 22:14:20 +0000
parents de4e98791121
children 094039817cba
comparison
equal deleted inserted replaced
41324:fe2a51b64eb6 41325:65bad70edb17
289 289
290 (defun set-w32-system-coding-system (coding-system) 290 (defun set-w32-system-coding-system (coding-system)
291 "Set the coding system used by the Windows System to CODING-SYSTEM. 291 "Set the coding system used by the Windows System to CODING-SYSTEM.
292 This is used for things like passing font names with non-ASCII 292 This is used for things like passing font names with non-ASCII
293 characters in them to the system. For a list of possible values of 293 characters in them to the system. For a list of possible values of
294 CODING-SYSTEM, use \\[list-coding-systems]." 294 CODING-SYSTEM, use \\[list-coding-systems].
295
296 This function is provided for backward compatibility, since
297 w32-system-coding-system is now an alias for `locale-coding-system'."
295 (interactive 298 (interactive
296 (list (let ((default w32-system-coding-system)) 299 (list (let ((default locale-coding-system))
297 (read-coding-system 300 (read-coding-system
298 (format "Coding system for system calls (default, %s): " 301 (format "Coding system for system calls (default, %s): "
299 default) 302 default)
300 default)))) 303 default))))
301 (check-coding-system coding-system) 304 (check-coding-system coding-system)
302 (setq w32-system-coding-system coding-system)) 305 (setq locale-coding-system coding-system))
303 ;; Set system coding system initially to iso-latin-1 306
304 (set-w32-system-coding-system 'iso-latin-1) 307 ;; locale-coding-system was introduced to do the same thing as
308 ;; w32-system-coding-system. Use that instead.
309 (defvaralias 'w32-system-coding-system 'locale-coding-system)
305 310
306 ;;; Set to a system sound if you want a fancy bell. 311 ;;; Set to a system sound if you want a fancy bell.
307 (set-message-beep nil) 312 (set-message-beep nil)
308 313
309 ;;; The "Windows" keys on newer keyboards bring up the Start menu 314 ;;; The "Windows" keys on newer keyboards bring up the Start menu