From 3b2f3d306efc27458662cb3572c90a68cd4b99fa Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 30 Aug 2002 21:52:10 +0000 Subject: [PATCH] (custom-unlispify-menu-entry): Don't remove the -p prefix from variables since they shouldn't have it anyway. (custom-group-menu-create, customize-menu-create): Only cdr if applicable, since custom-menu-create might return a vector (i.e. a single menu entry). --- lisp/cus-edit.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 1fdb56b1439..770f8f723f8 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -448,10 +448,12 @@ WIDGET is the widget to apply the filter entries of MENU on." (erase-buffer) (princ symbol (current-buffer)) (goto-char (point-min)) - (when (and (eq (get symbol 'custom-type) 'boolean) - (re-search-forward "-p\\'" nil t)) - (replace-match "" t t) - (goto-char (point-min))) + ;; FIXME: Boolean variables are not predicates, so they shouldn't + ;; end with `-p'. -stef + ;; (when (and (eq (get symbol 'custom-type) 'boolean) + ;; (re-search-forward "-p\\'" nil t)) + ;; (replace-match "" t t) + ;; (goto-char (point-min))) (if custom-unlispify-remove-prefixes (let ((prefixes custom-prefix-list) prefix) @@ -3806,7 +3808,8 @@ or (if there were none) at the end of the buffer." "Ignoring WIDGET, create a menu entry for customization group SYMBOL." `( ,(custom-unlispify-menu-entry symbol t) :filter (lambda (&rest junk) - (cdr (custom-menu-create ',symbol))))) + (let ((menu (custom-menu-create ',symbol))) + (if (consp menu) (cdr menu) menu))))) ;;;###autoload (defun custom-menu-create (symbol) @@ -3845,7 +3848,8 @@ The format is suitable for use with `easy-menu-define'." (setq name "Customize")) `(,name :filter (lambda (&rest junk) - (custom-menu-create ',symbol)))) + (let ((menu (custom-menu-create ',symbol))) + (if (consp menu) (cdr menu) menu))))) ;;; The Custom Mode. -- 2.39.2