Commit 5d648479 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(large-file-warning-threshold): Add type, groups.

parent 778e2804
......@@ -1173,8 +1173,11 @@ suppresses this warning."
: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.
......
......@@ -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 @@ routine.")
(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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment