procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-03-12 03:48:12 +00:00
parent 03759fe003
commit 70ee42f75d
3 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/mail/sendmail.el
View file

@ -1,5 +1,5 @@
;; Mail sending commands for Emacs.
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -173,6 +173,7 @@ C-c C-v mail-sent-via (add a sent-via field for each To or CC)."
(define-key mail-mode-map "\C-c?" 'describe-mode)
(define-key mail-mode-map "\C-c\C-f\C-t" 'mail-to)
(define-key mail-mode-map "\C-c\C-f\C-b" 'mail-bcc)
(define-key mail-mode-map "\C-c\C-f\C-f" 'mail-fcc)
(define-key mail-mode-map "\C-c\C-f\C-c" 'mail-cc)
(define-key mail-mode-map "\C-c\C-f\C-s" 'mail-subject)
(define-key mail-mode-map "\C-c\C-t" 'mail-text)
@ -436,11 +437,19 @@ the user from the mailer."
(progn (mail-position-on-field "to")
(insert "\nBCC: "))))
(defun mail-fcc ()
"Add a new FCC field, with file name completion."
(interactive)
(expand-abbrev)
(or (mail-position-on-field "fcc" t) ;Put new field after exiting FCC.
(mail-position-on-field "to"))
(insert "\nFCC: " (read-file-name "Folder carbon copy: ")))
(defun mail-position-on-field (field &optional soft)
(let (end
(case-fold-search t))
(goto-char (point-min))
(search-forward (concat "\n" mail-header-separator "\n"))
(search-forward (concat "^" mail-header-separator "\n"))
(setq end (match-beginning 0))
(goto-char (point-min))
(if (re-search-forward (concat "^" (regexp-quote field) ":") end t)

8
src/eval.c
View file

@ -1,5 +1,5 @@
/* Evaluator for GNU Emacs Lisp interpreter.
Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@ -1837,7 +1837,11 @@ Thus, (funcall 'cons 'x 'y) returns (x . y).")
goto done;
default:
error ("funcall: this number of args not handled.");
/* If a subr takes more than 6 arguments without using MANY
or UNEVALLED, we need to extend this function to support it.
Until this is done, there is no way to call the function. */
abort ();
}
}
if (XTYPE (fun) == Lisp_Compiled)

11
src/indent.c
View file

@ -1,5 +1,5 @@
/* Indentation functions.
Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@ -344,10 +344,13 @@ and if COLUMN is in the middle of a tab character, change it to spaces.")
and scan through it again. */
if (!NILP (force) && col > goal && c == '\t' && prev_col < goal)
{
int old_point;
del_range (point - 1, point);
Findent_to (make_number (col - 1));
insert_char (' ');
goto retry;
Findent_to (make_number (goal), Qnil);
old_point = point;
Findent_to (make_number (col), Qnil);
SET_PT (old_point);
}
/* If line ends prematurely, add space to the end. */