- ,@(if (featurep 'mule)
- '(("Mule"
- ("Describe language support")
- ("Set language environment")
- "--"
- ["Toggle input method" toggle-input-method]
- ["Select input method" select-input-method]
- ["Describe input method" describe-input-method]
- "--"
- ["Describe current coding systems"
- describe-current-coding-system]
- ["Set coding system of buffer file"
- set-buffer-file-coding-system]
- ;; not implemented yet
- ["Set coding system of terminal"
- set-terminal-coding-system :active nil]
- ;; not implemented yet
- ["Set coding system of keyboard"
- set-keyboard-coding-system :active nil]
- ;; not implemented yet
- ["Set coding system of process"
- set-current-process-coding-system :active nil]
- "--"
- ["Show character table" view-charset-by-menu]
- ;; not implemented yet
- ["Show diagnosis for MULE" mule-diag :active nil]
- ["Show many languages" view-hello-file])))
+ ,@(when (featurep 'mule)
+ '(("Mule"
+ ("Describe language support")
+ ("Set language environment")
+ "--"
+ ["Toggle input method" toggle-input-method]
+ ["Select input method" set-input-method]
+ ["Describe input method" describe-input-method]
+ "--"
+ ["Describe current coding systems"
+ describe-current-coding-system]
+ ["Set coding system of buffer file"
+ set-buffer-file-coding-system]
+ ;; not implemented yet
+ ["Set coding system of terminal"
+ set-terminal-coding-system :active nil]
+ ;; not implemented yet
+ ["Set coding system of keyboard"
+ set-keyboard-coding-system :active nil]
+ ["Set coding system of process"
+ set-buffer-process-coding-system
+ :active (get-buffer-process (current-buffer))]
+ "--"
+ ["Show character table" view-charset-by-menu]
+ ;; not implemented yet
+ ["Show diagnosis for MULE" mule-diag :active nil]
+ ["Show many languages" view-hello-file])))