mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(tmm-get-keymap): Fix handling of :filter.

Browse Source 
(tmm-add-prompt): Bind buffer-read-only to nil when inserting
text into *Completions*.
This commit is contained in:
Gerd Moellmann 2001-05-18 13:10:43 +00:00
parent 1c66d9fb23
commit 0595722b7c
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2001-05-18 Gerd Moellmann <gerd@gnu.org>
* tmm.el (tmm-get-keymap): Fix handling of :filter.
(tmm-add-prompt): Bind buffer-read-only to nil when inserting
text into *Completions*.
* net/goto-addr.el (goto-address-at-point): Deal with URLs
part of which look like email addresses.

22
lisp/tmm.el
View File

@ -1,6 +1,7 @@
;;; tmm.el --- text mode access to menu-bar
;; Copyright (C) 1994, 1995, 1996, 2000 Free Software Foundation, Inc.
;; Copyright (C) 1994, 1995, 1996, 2000, 2001
;; Free Software Foundation, Inc.
;; Author: Ilya Zakharevich <ilya@math.mps.ohio-state.edu>
;; Maintainer: FSF
@ -339,12 +340,11 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
(with-output-to-temp-buffer "*Completions*"
(display-completion-list completions))
(remove-hook 'completion-setup-hook 'tmm-completion-delete-prompt))
(if tmm-completion-prompt
(progn
(set-buffer "*Completions*")
(goto-char 1)
(insert tmm-completion-prompt)))
)
(when tmm-completion-prompt
(set-buffer "*Completions*")
(let ((buffer-read-only nil))
(goto-char (point-min))
(insert tmm-completion-prompt))))
(save-selected-window
(other-window 1) ; Electric-pop-up-window does
; not work in minibuffer
@ -410,12 +410,14 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
(or (keymapp elt) (eq (car elt) 'lambda))
(fboundp elt))
(setq km elt))
((if (listp (cdr-safe elt))
(or (keymapp (cdr-safe elt))
(eq (car (cdr-safe elt)) 'lambda))
(fboundp (cdr-safe elt)))
(setq km (cdr elt))
(and (stringp (car elt)) (setq str (car elt))))
((if (listp (cdr-safe (cdr-safe elt)))
(or (keymapp (cdr-safe (cdr-safe elt)))
(eq (car (cdr-safe (cdr-safe elt))) 'lambda))
@ -426,8 +428,12 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
(stringp (cdr (car (cdr elt)))) ; keyseq cache
(setq cache (cdr (car (cdr elt))))
cache (setq str (concat str cache))))
((eq (car-safe elt) 'menu-item)
;; (menu-item TITLE COMMAND KEY ...)
(setq plist (cdr-safe (cdr-safe (cdr-safe elt))))
(when (consp (car-safe plist))
(setq plist (cdr-safe plist)))
(setq km (nth 2 elt))
(setq str (eval (nth 1 elt)))
(setq filter (plist-get plist :filter))
@ -439,6 +445,7 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
(setq cache (cdr (nth 3 elt)))
cache
(setq str (concat str cache))))
((if (listp (cdr-safe (cdr-safe (cdr-safe elt))))
(or (keymapp (cdr-safe (cdr-safe (cdr-safe elt))))
(eq (car (cdr-safe (cdr-safe (cdr-safe elt)))) 'lambda))
@ -450,6 +457,7 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
(stringp (cdr (car (cdr (cdr elt))))) ; keyseq cache
(setq cache (cdr (car (cdr (cdr elt)))))
cache (setq str (concat str cache))))
((stringp event) ; x-popup or x-popup element
(if (or in-x-menu (stringp (car-safe elt)))
(setq str event event nil km elt)