Mercurial > emacs
comparison lisp/progmodes/make-mode.el @ 13995:33b51573611f
(makefile-insert-special-target,
makefile-backslash-region): Doc fix.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 04 Jan 1996 23:44:52 +0000 |
parents | 36556403b62b |
children | 50df7ee940e8 |
comparison
equal
deleted
inserted
replaced
13994:1514fd54b2f5 | 13995:33b51573611f |
---|---|
559 (if (bolp) | 559 (if (bolp) |
560 (makefile-insert-special-target) | 560 (makefile-insert-special-target) |
561 (self-insert-command arg))) | 561 (self-insert-command arg))) |
562 | 562 |
563 (defun makefile-insert-special-target () | 563 (defun makefile-insert-special-target () |
564 "Propmt for and insert a special target name. | 564 "Prompt for and insert a special target name. |
565 Uses `makefile-special-targets' list." | 565 Uses `makefile-special-targets' list." |
566 (interactive) | 566 (interactive) |
567 (makefile-pickup-targets) | 567 (makefile-pickup-targets) |
568 (let ((special-target | 568 (let ((special-target |
569 (completing-read "Special target: " | 569 (completing-read "Special target: " |
860 (delete-region (point) saved))))))) | 860 (delete-region (point) saved))))))) |
861 | 861 |
862 (defun makefile-backslash-region (beg end arg) | 862 (defun makefile-backslash-region (beg end arg) |
863 "Insert backslashes at end of every line in region. | 863 "Insert backslashes at end of every line in region. |
864 Useful for defining multi-line rules. | 864 Useful for defining multi-line rules. |
865 If called with a prefix argument, trailing backslahes are removed." | 865 If called with a prefix argument, trailing backslashes are removed." |
866 (interactive "r\nP") | 866 (interactive "r\nP") |
867 (save-excursion | 867 (save-excursion |
868 (let ((do-lastline-p (progn (goto-char end) (not (bolp))))) | 868 (let ((do-lastline-p (progn (goto-char end) (not (bolp))))) |
869 (save-restriction | 869 (save-restriction |
870 (narrow-to-region beg end) | 870 (narrow-to-region beg end) |