gistfile1.el

(defun using-azerty? ()
  (condition-case nil
      (let ((buffer (get-buffer-create "*using-azerty?*"))
	    return)
	(set-buffer buffer)
	(erase-buffer)
	(call-process-shell-command "setxkbmap" nil buffer nil "-print")
	(goto-char (point-min))
	(setq return (search-forward "azerty" nil t))
	(kill-buffer buffer)
	return)
    (error (message "got a error in 'using-azerty?'") nil)))