diff options
| author | Paul Eggert | 2019-09-16 14:04:04 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-09-16 14:05:03 -0700 |
| commit | 2c2f0eb9fcdfb644c106679999501b9c7edf51e2 (patch) | |
| tree | 427a67f412721cb232fcc9e89df4d3b32a4d47ec /src/fns.c | |
| parent | 57ac6523af76efe6f6767c5480b2832cdd3adc4d (diff) | |
| download | emacs-2c2f0eb9fcdfb644c106679999501b9c7edf51e2.tar.gz emacs-2c2f0eb9fcdfb644c106679999501b9c7edf51e2.zip | |
Remove obsolete Lint directives
Most of the directives were wrong anyway. Apparently
traditional lint hasn’t been used to check Emacs for years.
* src/callint.c (Finteractive):
* src/cm.c (evalcost):
* src/emacs.c (main):
* src/eval.c (call1, call2, call3, call4, call5, call6, call7, call8):
* src/fns.c (concat2, concat3, nconc2):
* src/term.c (calculate_ins_del_char_costs):
Omit ARGSUSED comments.
* src/eval.c (call1): Omit VARARGS comment.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 3 |
1 files changed, 0 insertions, 3 deletions
| @@ -532,14 +532,12 @@ Do NOT use this function to compare file names for equality. */) | |||
| 532 | static Lisp_Object concat (ptrdiff_t nargs, Lisp_Object *args, | 532 | static Lisp_Object concat (ptrdiff_t nargs, Lisp_Object *args, |
| 533 | enum Lisp_Type target_type, bool last_special); | 533 | enum Lisp_Type target_type, bool last_special); |
| 534 | 534 | ||
| 535 | /* ARGSUSED */ | ||
| 536 | Lisp_Object | 535 | Lisp_Object |
| 537 | concat2 (Lisp_Object s1, Lisp_Object s2) | 536 | concat2 (Lisp_Object s1, Lisp_Object s2) |
| 538 | { | 537 | { |
| 539 | return concat (2, ((Lisp_Object []) {s1, s2}), Lisp_String, 0); | 538 | return concat (2, ((Lisp_Object []) {s1, s2}), Lisp_String, 0); |
| 540 | } | 539 | } |
| 541 | 540 | ||
| 542 | /* ARGSUSED */ | ||
| 543 | Lisp_Object | 541 | Lisp_Object |
| 544 | concat3 (Lisp_Object s1, Lisp_Object s2, Lisp_Object s3) | 542 | concat3 (Lisp_Object s1, Lisp_Object s2, Lisp_Object s3) |
| 545 | { | 543 | { |
| @@ -2577,7 +2575,6 @@ This makes STRING unibyte and may change its length. */) | |||
| 2577 | return Qnil; | 2575 | return Qnil; |
| 2578 | } | 2576 | } |
| 2579 | 2577 | ||
| 2580 | /* ARGSUSED */ | ||
| 2581 | Lisp_Object | 2578 | Lisp_Object |
| 2582 | nconc2 (Lisp_Object s1, Lisp_Object s2) | 2579 | nconc2 (Lisp_Object s1, Lisp_Object s2) |
| 2583 | { | 2580 | { |