comparison lisp/simple.el @ 100623:5a144164af93

(completion-all-completions-with-base-size): Remove. (completion-all-completions): Don't set it. (completion-table-with-context, completion--file-name-table): Don't add base-size in last cdr. (completion-hilit-commonality): Add argument `base-size'. (display-completion-list, completion-emacs21-all-completions) (completion-emacs22-all-completions, completion-basic-all-completions): Provide it. (completion-pcm--all-completions): Don't need to remove the base-size in last-cdr any more.

100622:c236484e9c94

A value of nil means \\[set-mark-command]'s behavior does not change
after C-u \\[set-mark-command]."
  :type 'boolean
  :group 'editing-basics)

(defun set-mark-command (arg)
  "Set the mark where point is, or jump to the mark.
Setting the mark also alters the region, which is the text
between point and mark; this is the closest equivalent in
Emacs to what some editors call the \"selection\".

          (deactivate-mark)
          (message "Mark deactivated"))
      (activate-mark)
      (message "Mark activated")))
   (t
    (push-mark-command nil))))

(defun push-mark (&optional location nomsg activate)
  "Set mark at LOCATION (point, by default) and push old mark on mark ring.
If the last global mark pushed was not in the current buffer,
also push LOCATION on the global mark ring.

    (if (null omark)
        (error "No mark set in this buffer"))
    (deactivate-mark)
    (set-mark (point))
    (goto-char omark)
    (cond (temp-highlight
	   (setq transient-mark-mode (cons 'only transient-mark-mode)))
	  ((or (and arg (region-active-p)) ; (xor arg (not (region-active-p)))
	       (not (or arg (region-active-p))))
	   (deactivate-mark))

      (let ((base-size completion-base-size)) ;Read before killing localvars.
        (completion-list-mode)
        (set (make-local-variable 'completion-base-size) base-size))
      (set (make-local-variable 'completion-reference-buffer) mainbuf)
      (unless completion-base-size
        ;; This may be needed for old completion packages which don't use
        ;; completion-all-completions-with-base-size yet.
        (setq completion-base-size
              (cond
               (minibuffer-completing-file-name
                ;; For file name completion, use the number of chars before
                ;; the start of the file name component at point.

100623:5a144164af93

A value of nil means \\[set-mark-command]'s behavior does not change
after C-u \\[set-mark-command]."
  :type 'boolean
  :group 'editing-basics)

(defcustom set-mark-default-inactive nil
  "If non-nil, setting the mark does not activate it.
This causes \\[set-mark-command] and \\[exchange-point-and-mark] to
behave the same whether or not `transient-mark-mode' is enabled.")

(defun set-mark-command (arg)
  "Set the mark where point is, or jump to the mark.
Setting the mark also alters the region, which is the text
between point and mark; this is the closest equivalent in
Emacs to what some editors call the \"selection\".

          (deactivate-mark)
          (message "Mark deactivated"))
      (activate-mark)
      (message "Mark activated")))
   (t
    (push-mark-command nil)
    (if set-mark-default-inactive (deactivate-mark)))))

(defun push-mark (&optional location nomsg activate)
  "Set mark at LOCATION (point, by default) and push old mark on mark ring.
If the last global mark pushed was not in the current buffer,
also push LOCATION on the global mark ring.

    (if (null omark)
        (error "No mark set in this buffer"))
    (deactivate-mark)
    (set-mark (point))
    (goto-char omark)
    (if set-mark-default-inactive (deactivate-mark))
    (cond (temp-highlight
	   (setq transient-mark-mode (cons 'only transient-mark-mode)))
	  ((or (and arg (region-active-p)) ; (xor arg (not (region-active-p)))
	       (not (or arg (region-active-p))))
	   (deactivate-mark))

      (let ((base-size completion-base-size)) ;Read before killing localvars.
        (completion-list-mode)
        (set (make-local-variable 'completion-base-size) base-size))
      (set (make-local-variable 'completion-reference-buffer) mainbuf)
      (unless completion-base-size
        ;; This shouldn't be needed any more, but further analysis is needed
        ;; to make sure it's the case.
        (setq completion-base-size
              (cond
               (minibuffer-completing-file-name
                ;; For file name completion, use the number of chars before
                ;; the start of the file name component at point.