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

* lisp/cus-edit.el (custom-variable-documentation): Simplify with format.

Browse source
This commit is contained in:
Glenn Morris 2012-05-01 14:47:23 -04:00
parent c8f8221fd1
commit d80ac57b32
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-05-01 Glenn Morris <rgm@gnu.org>
* cus-edit.el (custom-variable-documentation): Simplify with format.
2012-05-01 Aaron S. Hawley <aaron.s.hawley@gmail.com>
Stefan Monnier <monnier@iro.umontreal.ca>

16
lisp/cus-edit.el
View file

@ -1,6 +1,6 @@
;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
;;
;; Copyright (C) 1996-1997, 1999-2012 Free Software Foundation, Inc.
;; Copyright (C) 1996-1997, 1999-2012 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: FSF
@ -2460,15 +2460,15 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
"Return documentation of VARIABLE for use in Custom buffer.
Normally just return the docstring. But if VARIABLE automatically
becomes buffer local when set, append a message to that effect."
(if (and (local-variable-if-set-p variable)
(or (not (local-variable-p variable))
(with-temp-buffer
(local-variable-if-set-p variable))))
(concat (documentation-property variable 'variable-documentation)
(format "%s%s" (documentation-property variable 'variable-documentation)
(if (and (local-variable-if-set-p variable)
(or (not (local-variable-p variable))
(with-temp-buffer
(local-variable-if-set-p variable))))
"\n
This variable automatically becomes buffer-local when set outside Custom.
However, setting it through Custom sets the default value.")
(documentation-property variable 'variable-documentation)))
However, setting it through Custom sets the default value."
"")))
(define-widget 'custom-variable 'custom
"A widget for displaying a Custom variable.