]> code.delx.au - gnu-emacs/blobdiff - lisp/obsolete/lmenu.el
Simplify ‘delete-trailing-whitespace’ by not treating \n as whitespace
[gnu-emacs] / lisp / obsolete / lmenu.el
index 3c188be93e2573229708621d4a7b79e3adb186d7..be1be87099c881cbea9af079f1f9fba7fcc20766 100644 (file)
@@ -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
       (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