Lines Matching defs:only
102 But it is local only if you make it local.")
114 This variable is relevant only if `backup-by-copying' is nil."
124 This variable is relevant only if `backup-by-copying' is nil."
135 This variable is relevant only if `backup-by-copying' and
187 (defvar buffer-file-read-only nil
188 "Non-nil if visited file was read-only when visited.")
189 (make-variable-buffer-local 'buffer-file-read-only)
286 A value of t means do this only when the file is about to be saved.
307 A value of t means do this only when the file is about to be saved.
508 (defcustom view-read-only nil
509 "Non-nil means buffers visiting files read-only do so in view mode.
510 In fact, this means that all read-only buffers normally have
511 View mode enabled, including buffers that are read-only because
512 you visit a file you cannot alter, and buffers you make read-only
513 using \\[toggle-read-only]."
524 Runs the usual ange-ftp hook, but only for completion operations."
571 an empty string. (This can only happen if the user erased the
763 ;; COUNTER and PREV-DIRS are only used in recursive calls.
783 ;; For even more speed, do this only on the outermost call.
949 ;; We provide the default coding only when it seems that
962 ;; We provide the default coding only when a user is going to
1128 Like \\[find-file] but only allow a file that exists, and do not allow
1136 (defun find-file-read-only (filename &optional wildcards)
1138 Like \\[find-file] but marks buffer as read-only.
1139 Use \\[toggle-read-only] to permit editing."
1140 (interactive (find-file-read-args "Find file read-only: " nil))
1147 (mapc (lambda (b) (with-current-buffer b (toggle-read-only 1)))
1151 (defun find-file-read-only-other-window (filename &optional wildcards)
1153 Like \\[find-file-other-window] but marks buffer as read-only.
1154 Use \\[toggle-read-only] to permit editing."
1155 (interactive (find-file-read-args "Find file read-only other window: " nil))
1162 (mapc (lambda (b) (with-current-buffer b (toggle-read-only 1)))
1166 (defun find-file-read-only-other-frame (filename &optional wildcards)
1168 Like \\[find-file-other-frame] but marks buffer as read-only.
1169 Use \\[toggle-read-only] to permit editing."
1170 (interactive (find-file-read-args "Find file read-only other frame: " nil))
1177 (mapc (lambda (b) (with-current-buffer b (toggle-read-only 1)))
1357 If PREDICATE is non-nil, only buffers satisfying it are eligible,
1520 ;; Check if a formerly read-only file has become
1523 (let ((read-only (not (file-writable-p buffer-file-name))))
1525 (eq read-only buffer-file-read-only)
1526 (eq read-only buffer-read-only))
1531 (if read-only "read-only" "writable"))))
1533 (setq buffer-read-only read-only)))
1534 (setq buffer-file-read-only read-only))
1550 Emacs can only visit a file in one way at a time.
1556 but Emacs can only visit a file in one way at a time.
1581 But Emacs can only visit a file in one way at a time.
1587 but Emacs can only visit a file in one way at a time.
1611 (let ((inhibit-read-only t))
1618 (let ((inhibit-read-only t))
1629 (let ((inhibit-read-only t))
1679 "Like `insert-file-contents', but only reads in the file literally.
1768 (setq buffer-read-only (not (file-writable-p buffer-file-name)))
1776 (setq buffer-read-only t)
1778 ((not buffer-read-only)
1797 (setq buffer-read-only nil))
1799 (setq buffer-read-only nil)
1809 (setq buffer-read-only t))
1810 ;; When a file is marked read-only,
1811 ;; make the buffer read-only even if root is looking at it.
1814 (setq buffer-read-only t))
1816 (when (and view-read-only view-mode)
1828 (when (and buffer-read-only
1829 view-read-only
1886 since only a single case-insensitive search through the alist is made."
2192 set the major mode only if that would change it. In other words
2476 '((buffer-read-only . booleanp) ;; C source code
2575 (defun hack-local-variables-prop-line (&optional mode-only)
2627 (if mode-only
2631 (defun hack-local-variables (&optional mode-only)
2638 (when (or mode-only enable-local-variables)
2639 (setq result (hack-local-variables-prop-line mode-only))
2705 (if mode-only
2720 (if mode-only
2744 ;; If caller wants only the safe variables,
2745 ;; install only them.
2947 ;; If buffer was read-only because of version control,
2950 (setq buffer-read-only nil))
3031 (setq buffer-read-only nil))
3151 we do not remove backup version numbers, only true file version numbers."
3570 Normally delete only if the file was written by this Emacs since
3944 (defun toggle-read-only (&optional arg)
3945 "Change whether this buffer is visiting its file read-only.
3946 With arg, set read-only iff arg is positive.
3947 If visiting file read-only and `view-read-only' is non-nil, enter view mode."
3950 (if (> (prefix-numeric-value arg) 0) buffer-read-only
3951 (not buffer-read-only))) ; If buffer-read-only is set correctly,
3955 ((and buffer-read-only view-mode)
3957 (make-local-variable 'view-read-only)
3958 (setq view-read-only t)) ; Must leave view mode.
3959 ((and (not buffer-read-only) view-read-only
3964 (t (setq buffer-read-only (not buffer-read-only))
4118 When called from Lisp, the first argument is IGNORE-AUTO; only offer
4178 (inhibit-read-only t))
4255 ;; only rarely.
4286 (let ((inhibit-read-only t)
4321 (let ((inhibit-read-only t))
4438 (not buffer-read-only))
5174 count only stdout; they don't count the error messages sent to stderr.
5291 ;; For all other operations, treat the first argument only
5329 (define-key ctl-x-map "\C-r" 'find-file-read-only)
5338 (define-key ctl-x-map "\C-q" 'toggle-read-only)
5341 (define-key ctl-x-4-map "r" 'find-file-read-only-other-window)
5349 (define-key ctl-x-5-map "r" 'find-file-read-only-other-frame)