X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5ed99d3685cc8d13f8e4c63ad449a6e4d63c8eb0..9418ab39bf970dd82b5d6f2e7b40a5d8cd134a43:/lisp/obsolete/lmenu.el

diff --git a/lisp/obsolete/lmenu.el b/lisp/obsolete/lmenu.el
index 3c188be93e..be1be87099 100644
--- a/lisp/obsolete/lmenu.el
+++ b/lisp/obsolete/lmenu.el
@@ -1,6 +1,7 @@
 ;;; lmenu.el --- emulate Lucid's menubar support
 
-;; Copyright (C) 1992-1994, 1997, 2001-2011  Free Software Foundation, Inc.
+;; Copyright (C) 1992-1994, 1997, 2001-2016 Free Software Foundation,
+;; Inc.
 
 ;; Keywords: emulations obsolete
 ;; Obsolete-since: 23.3
@@ -130,7 +131,7 @@
       (setq menu-items (cdr menu-items)))
     menu))
 
-(declare-function x-popup-dialog "xmenu.c" (position contents &optional header))
+(declare-function x-popup-dialog "menu.c" (position contents &optional header))
 
 ;; XEmacs compatibility function
 (defun popup-dialog-box (data)
@@ -159,9 +160,9 @@ The syntax, more precisely:
    active-p	:=  <t, nil, or a form to evaluate to decide whether this
 		    button should be selectable>
    name		:=  <string>
-   partition	:=  'nil'
-   button	:=  '['  name callback active-p ']'
-   dialog	:=  '(' name [ button ]+ [ partition [ button ]+ ] ')'"
+   partition	:=  `nil'
+   button	:=  `['  name callback active-p `]'
+   dialog	:=  `(' name [ button ]+ [ partition [ button ]+ ] `)'"
   (let ((name (car data))
 	(tail (cdr data))
 	converted