comparison lisp/emacs-lisp/lmenu.el @ 95841:b4e36ff621b3

Add some compiler declarations, for builds without X.

95840:0e3c2e18b9c3

	  (if name
	      (define-key menu (vector (intern name)) (cons name command)))))
      (setq menu-items (cdr menu-items)))
    menu))

;; XEmacs compatibility function
(defun popup-dialog-box (data)
  "Pop up a dialog box.
A dialog box description is a list.

95841:b4e36ff621b3

	  (if name
	      (define-key menu (vector (intern name)) (cons name command)))))
      (setq menu-items (cdr menu-items)))
    menu))

(declare-function x-popup-dialog "xmenu.c" (position contents &optional header))

;; XEmacs compatibility function
(defun popup-dialog-box (data)
  "Pop up a dialog box.
A dialog box description is a list.