* Write an interactive function that searches for a string. If the
search finds the string, leave point after it and display a message
that says "Found!". (Do not use `search-forward' for the name of
this function; if you do, you will overwrite the existing version
of `search-forward' that comes with Emacs. Use a name such as
`test-search' instead.)
(defun test-search (str)
"Search a string"
(interactive "MInput String:")
(message "String is %s" str)
(if (eq nil (search-forward str nil t))
(message "NOT FOUND!")
(message "FOUND!")))
1 * Write a function that prints the third element of the kill ring in
2 the echo area, if any; if the kill ring does not contain a third
3 element, print an appropriate message.
1 (defun third-killed ()
2 "Write third killed element."
3 (interactive)
4 (message "length %d" (length kill-ring))
5 (if (> (length kill-ring) 3)
6 (message "%s" (car (nthcdr 2 kill-ring)))
7 (message "%s" (car (nthcdr (length kill-ring) kill-ring))))
8 )