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." ...@@ -1173,8 +1173,11 @@ suppresses this warning."
:type 'boolean) :type 'boolean)
(defcustom large-file-warning-threshold 10000000 (defcustom large-file-warning-threshold 10000000
"Maximum size of file above which a confirmation is requested." "Maximum size of file above which a confirmation is requested.
:type 'integer) 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) (defun find-file-noselect (filename &optional nowarn rawfile wildcards)
"Read file FILENAME into a buffer and return the buffer. "Read file FILENAME into a buffer and return the buffer.
......
...@@ -65,7 +65,7 @@ ...@@ -65,7 +65,7 @@
(provide 'delphi) (provide 'delphi)
(defconst delphi-version (defconst delphi-version
(let ((revision "$Revision: 3.8 $")) (let ((revision "$Revision: 3.9 $"))
(string-match ": \\([^ ]+\\)" revision) (string-match ": \\([^ ]+\\)" revision)
(match-string 1 revision)) (match-string 1 revision))
"Version of this delphi mode.") "Version of this delphi mode.")
...@@ -742,7 +742,7 @@ routine.") ...@@ -742,7 +742,7 @@ routine.")
(delphi-step-progress p "Fontifying" delphi-fontifying-progress-step)) (delphi-step-progress p "Fontifying" delphi-fontifying-progress-step))
(delphi-progress-done))))) (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. "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 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: 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