procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve Custom menu labels for 2 options

Browse source 
* lisp/dired.el (dired-use-ls-dired):
* lisp/progmodes/xref.el (xref-prompt-for-identifier): Improve
the doc string and the defcustom menu/tags text.  (Bug#32756)
This commit is contained in:
Eli Zaretskii 2018-09-19 10:54:41 +03:00
parent 72a2a36654
commit 85af51bab1
2 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/dired.el
View file

@ -88,9 +88,11 @@ If nil, `dired-listing-switches' is used."
(defcustom dired-use-ls-dired 'unspecified (defcustom dired-use-ls-dired 'unspecified
"Non-nil means Dired should pass the \"--dired\" option to \"ls\". "Non-nil means Dired should pass the \"--dired\" option to \"ls\".
The special value of `unspecified' means to check explicitly, and If nil, don't pass \"--dired\" to \"ls\".
save the result in this variable. This is performed the first The special value of `unspecified' means to check whether \"ls\"
time `dired-insert-directory' is called. supports the \"--dired\" option, and save the result in this
variable. This is performed the first time `dired-insert-directory'
is invoked.
Note that if you set this option to nil, either through choice or Note that if you set this option to nil, either through choice or
because your \"ls\" program does not support \"--dired\", Dired because your \"ls\" program does not support \"--dired\", Dired
@ -104,9 +106,10 @@ This is used by default on MS Windows, which does not have an \"ls\" program.
Note that `ls-lisp' does not support as many options as GNU ls, though. Note that `ls-lisp' does not support as many options as GNU ls, though.
For more details, see Info node `(emacs)ls in Lisp'." For more details, see Info node `(emacs)ls in Lisp'."
:group 'dired :group 'dired
:type '(choice (const :tag "Check for --dired support" unspecified) :type '(choice (const :tag
"Use --dired only if 'ls' supports it" unspecified)
(const :tag "Do not use --dired" nil) (const :tag "Do not use --dired" nil)
(other :tag "Use --dired" t))) (other :tag "Always use --dired" t)))
(defcustom dired-chmod-program "chmod" (defcustom dired-chmod-program "chmod"
"Name of chmod command (usually `chmod')." "Name of chmod command (usually `chmod')."

20
lisp/progmodes/xref.el
View file

@ -323,21 +323,23 @@ backward."
(defcustom xref-prompt-for-identifier '(not xref-find-definitions (defcustom xref-prompt-for-identifier '(not xref-find-definitions
xref-find-definitions-other-window xref-find-definitions-other-window
xref-find-definitions-other-frame) xref-find-definitions-other-frame)
"When t, always prompt for the identifier name. "If non-nil, prompt for the identifier to find.
When t, always prompt for the identifier name.
When nil, prompt only when there's no value at point we can use, When nil, prompt only when there's no value at point we can use,
or when the command has been called with the prefix argument. or when the command has been called with the prefix argument.
Otherwise, it's a list of xref commands which will prompt Otherwise, it's a list of xref commands which will always prompt,
anyway (the value at point, if any, will be used as the default). with the identifier at point, if any, used as the default.
If the list starts with `not', the meaning of the rest of the If the list starts with `not', the meaning of the rest of the
elements is negated." elements is negated: these commands will NOT prompt."
:type '(choice (const :tag "always" t) :type '(choice (const :tag "Always prompt for identifier" t)
(const :tag "auto" nil) (const :tag "Prompt if no identifier at point" nil)
(set :menu-tag "command specific" :tag "commands" (set :menu-tag "Prompt according to command"
:tag "Prompt according to command"
:value (not) :value (not)
(const :tag "Except" not) (const :tag "Except for commands listed below" not)
(repeat :inline t (symbol :tag "command"))))) (repeat :inline t (symbol :tag "command")))))
(defcustom xref-after-jump-hook '(recenter (defcustom xref-after-jump-hook '(recenter