From: "Drew Adams" <drew.adams@oracle.com>
To: <11126@debbugs.gnu.org>
Subject: bug#11126: 24.0.94; `customize-apropos' does not seem to work for a list of words
Date: Thu, 29 Mar 2012 11:50:05 -0700 [thread overview]
Message-ID: <F6646861714D4BAB8558E1A4FBA87C59@us.oracle.com> (raw)
In-Reply-To: <53DDC16715F040F9BB07011518AF3C13@us.oracle.com>
This backtrace shows where the problem is.
Debugger entered--returning value: nil
string-match("\\(emacs\\|avoid\\).*?\\(emacs\\|avoid\\)" "avoid")
* (if (string-match apropos-regexp (symbol-name symbol)) (progn (if (get symbol
(quote custom-group)) (push (list symbol (quote custom-group)) found)) (if
(custom-facep symbol) (push (list symbol (quote custom-face)) found)) (if (and
(boundp symbol) (eq (indirect-variable symbol) symbol) (or (get symbol (quote
saved-value)) (custom-variable-p symbol) nil)) (push (list symbol (quote
custom-variable)) found))))
* (when (string-match apropos-regexp (symbol-name symbol)) (if (get symbol
(quote custom-group)) (push (list symbol (quote custom-group)) found)) (if
(custom-facep symbol) (push (list symbol (quote custom-face)) found)) (if (and
(boundp symbol) (eq (indirect-variable symbol) symbol) (or (get symbol (quote
saved-value)) (custom-variable-p symbol) nil)) (push (list symbol (quote
custom-variable)) found)))
* (lambda (symbol) (when (string-match apropos-regexp (symbol-name symbol)) (if
(get symbol (quote custom-group)) (push (list symbol (quote custom-group))
found)) (if (custom-facep symbol) (push (list symbol (quote custom-face))
found)) (if (and (boundp symbol) (eq (indirect-variable symbol) symbol) (or (get
symbol (quote saved-value)) (custom-variable-p symbol) nil)) (push (list symbol
(quote custom-variable)) found))))(avoid)
* mapatoms((lambda (symbol) (when (string-match apropos-regexp (symbol-name
symbol)) (if (get symbol (quote custom-group)) (push (list symbol (quote
custom-group)) found)) (if (custom-facep symbol) (push (list symbol (quote
custom-face)) found)) (if (and (boundp symbol) (eq (indirect-variable symbol)
symbol) (or (get symbol (quote saved-value)) (custom-variable-p symbol) nil))
(push (list symbol (quote custom-variable)) found)))))
* (let (found) (mapatoms (\` (lambda (symbol) (when (string-match apropos-regexp
(symbol-name symbol)) (\, (if (not ...) (quote ...))) (\, (if (not ...) (quote
...))) (\, (if (not ...) (\` ...))))))) (if (not found) (error "No %s matching
%s" (if (eq type t) "items" (format "customizable %s" (if (memq type (quote
...)) (symbol-name type) "items"))) pattern) (custom-buffer-create
(custom-sort-items found t custom-buffer-order-groups) "*Customize Apropos*")))
customize-apropos(("avoid" "emacs") nil)
* call-interactively(customize-apropos t nil)
execute-extended-command(nil)
call-interactively(execute-extended-command nil nil)
next prev parent reply other threads:[~2012-03-29 18:50 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-03-29 18:46 bug#11126: 24.0.94; `customize-apropos' does not seem to work for a list of words Drew Adams
2012-03-29 18:50 ` Drew Adams [this message]
2012-03-29 20:25 ` Drew Adams
2014-02-09 4:58 ` Lars Ingebrigtsen
2014-02-10 23:21 ` Drew Adams
2014-02-09 4:53 ` Lars Ingebrigtsen
2014-02-09 4:49 ` Lars Ingebrigtsen
2014-02-09 4:57 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=F6646861714D4BAB8558E1A4FBA87C59@us.oracle.com \
--to=drew.adams@oracle.com \
--cc=11126@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.