Mercurial > emacs
changeset 51360:f48326c934af
(large-file-warning-threshold): Add type, groups.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sat, 31 May 2003 07:59:33 +0000 |
| parents | 24e32b75730a |
| children | 3bd89ae152d0 |
| files | lisp/files.el lisp/progmodes/delphi.el |
| diffstat | 2 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat May 31 02:02:02 2003 +0000 +++ b/lisp/files.el Sat May 31 07:59:33 2003 +0000 @@ -1173,8 +1173,11 @@ :type 'boolean) (defcustom large-file-warning-threshold 10000000 - "Maximum size of file above which a confirmation is requested." - :type 'integer) + "Maximum size of file above which a confirmation is requested. +When nil, never request confirmation." + :group 'files + :group 'find-file + :type '(choice integer (const :tag "Never request confirmation" nil))) (defun find-file-noselect (filename &optional nowarn rawfile wildcards) "Read file FILENAME into a buffer and return the buffer.
--- a/lisp/progmodes/delphi.el Sat May 31 02:02:02 2003 +0000 +++ b/lisp/progmodes/delphi.el Sat May 31 07:59:33 2003 +0000 @@ -65,7 +65,7 @@ (provide 'delphi) (defconst delphi-version - (let ((revision "$Revision: 3.8 $")) + (let ((revision "$Revision: 3.9 $")) (string-match ": \\([^ ]+\\)" revision) (match-string 1 revision)) "Version of this delphi mode.") @@ -742,7 +742,7 @@ (delphi-step-progress p "Fontifying" delphi-fontifying-progress-step)) (delphi-progress-done))))) -(defconst delphi-ignore-changes t +(defvar delphi-ignore-changes t "Internal flag to control if the delphi-mode responds to buffer changes. Defaults to t in case the delphi-after-change function is called on a non-delphi buffer. Set to nil in a delphi buffer. To override, just do: