Commit a4723629 authored by Glenn Morris's avatar Glenn Morris
Browse files

(top-level): Require cl when compiling.

(view-hello-file): Use default-value rather than
parent 2fa20711
......@@ -31,6 +31,8 @@
;;; Code:
(eval-when-compile (require 'cl)) ; letf
(defvar dos-codepage)
(autoload 'widget-value "wid-edit")
......@@ -281,9 +283,9 @@ wrong, use this command again to toggle back to the right mode."
"Display the HELLO file, which lists many languages and characters."
;; We have to decode the file in any environment.
(let ((default-enable-multibyte-characters t)
(coding-system-for-read 'iso-2022-7bit))
(view-file (expand-file-name "HELLO" data-directory))))
(letf (((default-value 'enable-multibyte-characters) t)
(coding-system-for-read 'iso-2022-7bit))
(view-file (expand-file-name "HELLO" data-directory))))
(defun universal-coding-system-argument (coding-system)
"Execute an I/O command using the specified coding system."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment