comparison lisp/wid-edit.el @ 1333:1b0339b048ce

[xemacs-hg @ 2003-03-02 09:38:37 by ben] To: xemacs-patches@xemacs.org PROBLEMS: Include nt/PROBLEMS and update. Add note about incremental linking badness. cmdloop.el, custom.el, dumped-lisp.el, files.el, keydefs.el, keymap.el, lisp-mode.el, make-docfile.el, replace.el, simple.el, subr.el, view-less.el, wid-edit.el: Lots of syncing with FSF 21.2. Use if-fboundp in wid-edit.el. New file newcomment.el from FSF. internals/internals.texi: Fix typo. (Build-Time Dependencies): New node. PROBLEMS: Delete. config.inc.samp, xemacs.mak: Eliminate HAVE_VC6, use SUPPORT_EDIT_AND_CONTINUE in its place. No incremental linking unless SUPPORT_EDIT_AND_CONTINUE, since it can cause nasty crashes in pdump. Put warnings about this in config.inc.samp. Report the full compile flags used for src and lib-src in the Installation output. alloc.c, lisp.h, ralloc.c, regex.c: Use ALLOCA() in regex.c to avoid excessive stack allocation. Also fix subtle problem with REL_ALLOC() -- any call to malloc() (direct or indirect) may relocate rel-alloced data, causing buffer text to shift. After any such call, regex must update all its pointers to such data. Add a system, when ERROR_CHECK_MALLOC, whereby regex.c indicates all the places it is prepared to handle malloc()/realloc()/free(), and any calls anywhere in XEmacs outside of this will trigger an abort. alloc.c, dialog-msw.c, eval.c, event-stream.c, general-slots.h, insdel.c, lisp.h, menubar-msw.c, menubar-x.c: Change *run_hook*_trapping_problems to take a warning class, not a string. Factor out code to issue warnings, add flag to call_trapping_problems() to postpone warning issue, and make *run_hook*_trapping_problems issue their own warnings tailored to the hook, postponed in the case of safe_run_hook_trapping_problems() so that the appropriate message can be issued about resetting to nil only when not `quit'. Make record_unwind_protect_restoring_int() non-static. dumper.c: Issue notes about incremental linking problems under Windows. fileio.c: Mule-ize encrypt/decrypt-string code. text.h: Spacing changes.
author ben
date Sun, 02 Mar 2003 09:38:54 +0000
parents 00abb1091204
children cfe4bcb9bdd4
comparison
equal deleted inserted replaced
1332:6aa23bb3da6b 1333:1b0339b048ce
940 940
941 (defun widget-copy (widget) 941 (defun widget-copy (widget)
942 "Make a deep copy of WIDGET." 942 "Make a deep copy of WIDGET."
943 (widget-apply (copy-sequence widget) :copy)) 943 (widget-apply (copy-sequence widget) :copy))
944 944
945 ;;;###autoload
945 (defun widget-convert (type &rest args) 946 (defun widget-convert (type &rest args)
946 "Convert TYPE to a widget without inserting it in the buffer. 947 "Convert TYPE to a widget without inserting it in the buffer.
947 The optional ARGS are additional keyword arguments." 948 The optional ARGS are additional keyword arguments."
948 ;; Don't touch the type. 949 ;; Don't touch the type.
949 (let* ((widget (if (symbolp type) 950 (let* ((widget (if (symbolp type)
2077 (defun widget-url-link-help-echo (widget) 2078 (defun widget-url-link-help-echo (widget)
2078 (concat "Visit <URL:" (widget-value widget) ">")) 2079 (concat "Visit <URL:" (widget-value widget) ">"))
2079 2080
2080 (defun widget-url-link-action (widget &optional event) 2081 (defun widget-url-link-action (widget &optional event)
2081 "Open the url specified by WIDGET." 2082 "Open the url specified by WIDGET."
2082 (if (fboundp 'browse-url) 2083 (if-fboundp 'browse-url
2083 (browse-url (widget-value widget)) 2084 (browse-url (widget-value widget))
2084 ;; #### Should subclass a 'missing-package error. 2085 ;; #### Should subclass a 'missing-package error.
2085 (error 'unimplemented 2086 (error 'unimplemented
2086 "No `browse-url' package; cannot follow URLs in this XEmacs"))) 2087 "No `browse-url' package; cannot follow URLs in this XEmacs")))
2087 2088