Mercurial > emacs
comparison lisp/simple.el @ 921:c5c4c2ee8f26
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 04 Aug 1992 02:36:45 +0000 |
parents | 3a9943a4a440 |
children | 9e51bb887797 |
comparison
equal
deleted
inserted
replaced
920:7b984ce24013 | 921:c5c4c2ee8f26 |
---|---|
390 (defvar minibuffer-history nil) | 390 (defvar minibuffer-history nil) |
391 (defvar minibuffer-history-sexp-flag nil) | 391 (defvar minibuffer-history-sexp-flag nil) |
392 (setq minibuffer-history-variable 'minibuffer-history) | 392 (setq minibuffer-history-variable 'minibuffer-history) |
393 (setq minibuffer-history-position nil) | 393 (setq minibuffer-history-position nil) |
394 | 394 |
395 (define-key minibuffer-local-map "\en" 'next-history-element) | 395 (mapcar |
396 (define-key minibuffer-local-ns-map "\en" 'next-history-element) | 396 (function (lambda (key-and-command) |
397 (define-key minibuffer-local-ns-map "\en" 'next-history-element) | 397 (mapcar |
398 (define-key minibuffer-local-completion-map "\en" 'next-history-element) | 398 (function (lambda (keymap) |
399 (define-key minibuffer-local-completion-map "\en" 'next-history-element) | 399 (define-key (symbol-value keymap) |
400 (define-key minibuffer-local-must-match-map "\en" 'next-history-element) | 400 (car key-and-command) |
401 | 401 (cdr key-and-command)))) |
402 (define-key minibuffer-local-map "\ep" 'previous-history-element) | 402 '(minibuffer-local-map |
403 (define-key minibuffer-local-ns-map "\ep" 'previous-history-element) | 403 minibuffer-local-ns-map |
404 (define-key minibuffer-local-ns-map "\ep" 'previous-history-element) | 404 minibuffer-local-completion-map |
405 (define-key minibuffer-local-completion-map "\ep" 'previous-history-element) | 405 minibuffer-local-must-match-map)))) |
406 (define-key minibuffer-local-completion-map "\ep" 'previous-history-element) | 406 '(("\en" . next-history-element) ([next] . next-history-element) |
407 (define-key minibuffer-local-must-match-map "\ep" 'previous-history-element) | 407 ("\ep" . previous-history-element) ([prior] . previous-history-element) |
408 | 408 ("\er" . previous-matching-history-element) |
409 (define-key minibuffer-local-map "\er" 'previous-matching-history-element) | 409 ("\es" . next-matching-history-element))) |
410 (define-key minibuffer-local-ns-map "\er" 'previous-matching-history-element) | |
411 (define-key minibuffer-local-ns-map "\er" 'previous-matching-history-element) | |
412 (define-key minibuffer-local-completion-map "\er" | |
413 'previous-matching-history-element) | |
414 (define-key minibuffer-local-completion-map "\er" | |
415 'previous-matching-history-element) | |
416 (define-key minibuffer-local-must-match-map "\er" | |
417 'previous-matching-history-element) | |
418 | |
419 (define-key minibuffer-local-map "\es" 'next-matching-history-element) | |
420 (define-key minibuffer-local-ns-map "\es" 'next-matching-history-element) | |
421 (define-key minibuffer-local-ns-map "\es" 'next-matching-history-element) | |
422 (define-key minibuffer-local-completion-map "\es" | |
423 'next-matching-history-element) | |
424 (define-key minibuffer-local-completion-map "\es" | |
425 'next-matching-history-element) | |
426 (define-key minibuffer-local-must-match-map "\es" | |
427 'next-matching-history-element) | |
428 | 410 |
429 (put 'previous-matching-history-element 'enable-recursive-minibuffers t) | 411 (put 'previous-matching-history-element 'enable-recursive-minibuffers t) |
430 (defun previous-matching-history-element (regexp n) | 412 (defun previous-matching-history-element (regexp n) |
431 (interactive "sPrevious element matching (regexp): \np") | 413 (interactive "sPrevious element matching (regexp): \np") |
432 (let ((history (symbol-value minibuffer-history-variable)) | 414 (let ((history (symbol-value minibuffer-history-variable)) |
870 If optional arg DO-NOT-MOVE is non-nil, then don't actually move the | 852 If optional arg DO-NOT-MOVE is non-nil, then don't actually move the |
871 yanking point; just return the Nth kill forward." | 853 yanking point; just return the Nth kill forward." |
872 (let ((interprogram-paste (and (= n 0) | 854 (let ((interprogram-paste (and (= n 0) |
873 interprogram-paste-function | 855 interprogram-paste-function |
874 (funcall interprogram-paste-function)))) | 856 (funcall interprogram-paste-function)))) |
875 ;;; RMS: Turn off the interprogram paste feature | |
876 ;;; because currently it is wedged: it is always | |
877 ;;; giving a null string. | |
878 (setq interprogram-paste nil) | |
879 (if interprogram-paste | 857 (if interprogram-paste |
880 (progn | 858 (progn |
881 ;; Disable the interprogram cut function when we add the new | 859 ;; Disable the interprogram cut function when we add the new |
882 ;; text to the kill ring, so Emacs doesn't try to own the | 860 ;; text to the kill ring, so Emacs doesn't try to own the |
883 ;; selection, with identical text. | 861 ;; selection, with identical text. |