Function: emacs-lock--set-mode

emacs-lock--set-mode is a byte-compiled function defined in emacs-lock.el.gz.

Signature

(emacs-lock--set-mode MODE ARG)

Documentation

Setter function for emacs-lock-mode(var)/emacs-lock-mode(fun).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lock.el.gz
(defun emacs-lock--set-mode (mode arg)
  "Setter function for `emacs-lock-mode'."
  (setq emacs-lock-mode
        (cond ((memq arg '(all exit kill))
               ;; explicit locking mode arg, use it
               arg)
              ((and (eq arg current-prefix-arg) (consp current-prefix-arg))
               ;; called with C-u M-x emacs-lock-mode, so ask the user
               (intern (completing-read
                        (format-prompt "Locking mode"
                                       emacs-lock-default-locking-mode)
                        '("all" "exit" "kill")
                        nil t nil nil
                        (symbol-name emacs-lock-default-locking-mode))))
              ((eq mode t)
               ;; turn on, so use previous setting, or customized default
               (or emacs-lock--old-mode emacs-lock-default-locking-mode))
              (t
               ;; anything else (turn off)
               mode))))