Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
70ee42f7
Commit
70ee42f7
authored
Mar 12, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
03759fe0
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
24 additions
and
8 deletions
+24
-8
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+11
-2
src/eval.c
src/eval.c
+6
-2
src/indent.c
src/indent.c
+7
-4
No files found.
lisp/mail/sendmail.el
View file @
70ee42f7
;; 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)
...
...
src/eval.c
View file @
70ee42f7
/* 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
)
...
...
src/indent.c
View file @
70ee42f7
/* 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. */
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment