Simplify ‘delete-trailing-whitespace’ by not treating \n as whitespace

[gnu-emacs] / lisp / obsolete / lmenu.el

diff --git a/lisp/obsolete/lmenu.el b/lisp/obsolete/lmenu.el
index 099c719372115880aad951342905400e96b0708f..be1be87099c881cbea9af079f1f9fba7fcc20766 100644 (file)
--- a/lisp/obsolete/lmenu.el
+++ b/lisp/obsolete/lmenu.el
@@ -1,7 +1,7 @@
 ;;; lmenu.el --- emulate Lucid's menubar support
 
-;; Copyright (C) 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009, 2010, 2011, 2012  Free Software Foundation, Inc.
+;; Copyright (C) 1992-1994, 1997, 2001-2016 Free Software Foundation,
+;; Inc.
 
 ;; Keywords: emulations obsolete
 ;; Obsolete-since: 23.3
@@ -131,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)
@@ -160,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