comparison lisp/mail/mailabbrev.el @ 28803:80075cf72ede

(mail-abbrev-insert-alias): Renamed from mail-interactive-insert-alias. (mail-abbrev-complete-alias): New command. (mail-mode-map): Bind it to `M-TAB'.

28802:f7eed599c0df

;;; mailabbrev.el --- abbrev-expansion of mail aliases.

;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997 Free Software Foundation, Inc.

;; Author: Jamie Zawinski <[e-mail]>, now <[e-mail]>
;; Maintainer: FSF
;; Created: 19 Oct 90
;; Keywords: mail

;; are used in by changing the variable mail-abbrev-mode-regexp.
;;
;; If auto-fill mode is on, abbrevs will wrap at commas instead of at word
;; boundaries; also, header continuation-lines will be properly indented.
;;
;; You can also insert a mail alias with mail-interactive-insert-alias
;; (bound to C-c C-a), which prompts you for an alias (with completion)
;; and inserts its expansion at point.
;;
;; This file fixes a bug in the old system which prohibited your .mailrc
;; file from having lines like

  (if (null file)
      (setq file buffer-file-name))
  (setq mail-abbrevs nil)
  (build-mail-abbrevs file))

(defun mail-interactive-insert-alias (&optional alias)
  "Prompt for and insert a mail alias."
  (interactive (progn
		(if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup))
		(list (completing-read "Expand alias: " mail-abbrevs nil t))))
  (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup))
  (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) ""))
  (mail-abbrev-expand-hook))

(defun mail-abbrev-next-line (&optional arg)
  "Expand any mail abbrev, then move cursor vertically down ARG lines.
If there is no character in the target line exactly under the current column,
the cursor is positioned after the character in that line which spans this

  (interactive "P")
  (if (looking-at "[ \t]*\n") (expand-abbrev))
  (setq this-command 'end-of-buffer)
  (end-of-buffer arg))

(define-key mail-mode-map "\C-c\C-a" 'mail-interactive-insert-alias)

;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line)
;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer)

(provide 'mailabbrev)

28803:80075cf72ede

;;; mailabbrev.el --- abbrev-expansion of mail aliases.

;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000
;;	Free Software Foundation, Inc.

;; Author: Jamie Zawinski <[e-mail]>, now <[e-mail]>
;; Maintainer: FSF
;; Created: 19 Oct 90
;; Keywords: mail

;; are used in by changing the variable mail-abbrev-mode-regexp.
;;
;; If auto-fill mode is on, abbrevs will wrap at commas instead of at word
;; boundaries; also, header continuation-lines will be properly indented.
;;
;; You can also insert a mail alias with mail-abbrev-insert-alias
;; (bound to C-c C-a), which prompts you for an alias (with completion)
;; and inserts its expansion at point.
;;
;; This file fixes a bug in the old system which prohibited your .mailrc
;; file from having lines like

  (if (null file)
      (setq file buffer-file-name))
  (setq mail-abbrevs nil)
  (build-mail-abbrevs file))

(defun mail-abbrev-insert-alias (&optional alias)
  "Prompt for and insert a mail alias."
  (interactive (progn
		(if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup))
		(list (completing-read "Expand alias: " mail-abbrevs nil t))))
  (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup))
  (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) ""))
  (mail-abbrev-expand-hook))

(defun mail-abbrev-complete-alias ()
  "Perform completion on alias preceding point."
  ;; Based on lisp.el:lisp-complete-symbol
  (interactive)
  (let* ((end (point))
	 (syntax-table (syntax-table))
	 (beg (unwind-protect
		  (save-excursion
		    (set-syntax-table mail-abbrev-syntax-table)
		    (backward-word 1)
		    (point))
		(set-syntax-table syntax-table)))
	 (alias (buffer-substring beg end))
	 (completion (try-completion alias mail-abbrevs)))
    (cond ((eq completion t)
	   (message "%s" alias))	; confirm
	  ((null completion)
	   (error "[Can't complete \"%s\"]" alias)) ; (message ...) (ding)
	  ((not (string= completion alias))
	   (delete-region beg end)
	   (insert completion))
	  (t (with-output-to-temp-buffer "*Completions*"
	       (display-completion-list
		(prog2
		    (message "Making completion list...")
		    (all-completions alias mail-abbrevs)
		  (message "Making completion list...done"))))))))

(defun mail-abbrev-next-line (&optional arg)
  "Expand any mail abbrev, then move cursor vertically down ARG lines.
If there is no character in the target line exactly under the current column,
the cursor is positioned after the character in that line which spans this

  (interactive "P")
  (if (looking-at "[ \t]*\n") (expand-abbrev))
  (setq this-command 'end-of-buffer)
  (end-of-buffer arg))

(define-key mail-mode-map "\C-c\C-a" 'mail-abbrev-insert-alias)
(define-key mail-mode-map "\e\t"	; like lisp-complete-symbol
  'mail-abbrev-complete-alias) 

;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line)
;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer)

(provide 'mailabbrev)