diff options
| -rw-r--r-- | lisp/files.el | 7 | ||||
| -rw-r--r-- | lisp/progmodes/delphi.el | 4 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index 42a29f0b2b7..7ce59dd6035 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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. diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el index 5f1bed74770..6fae66ef455 100644 --- a/lisp/progmodes/delphi.el +++ b/lisp/progmodes/delphi.el @@ -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: |