Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
af0905c8
Commit
af0905c8
authored
Jul 07, 2011
by
Lars Magne Ingebrigtsen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Note that :custom-show is obsolete.
Fixes: debbugs:75
parent
a8815b00
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
0 deletions
+4
-0
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/cus-edit.el
lisp/cus-edit.el
+2
-0
No files found.
lisp/ChangeLog
View file @
af0905c8
2011-07-07 Lars Magne Ingebrigtsen <larsi@gnus.org>
* cus-edit.el (custom-show): Marked as obsolete.
* net/network-stream.el (network-stream-open-starttls): If gnutls
negotiation fails, then possibly try again with a non-encrypted
connection (bug#9017).
...
...
lisp/cus-edit.el
View file @
af0905c8
...
...
@@ -1829,6 +1829,7 @@ item in another window.\n\n"))
;; We want simple widgets to be displayed by default, but complex
;; widgets to be hidden.
;; This widget type is obsolete as of Emacs 24.1.
(widget-put (get 'item 'widget-type) :custom-show t)
(widget-put (get 'editable-field 'widget-type)
:custom-show (lambda (_widget value)
...
...
@@ -2257,6 +2258,7 @@ and `face'."
(setq widget nil)))))
(widget-setup))
(make-obsolete 'custom-show "
this
widget
type
is
no
longer
supported.
" "
24.1
")
(defun custom-show (widget value)
"
Non-nil
if
WIDGET
should
be
shown
with
VALUE
by
default.
"
(let ((show (widget-get widget :custom-show)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment