emacs 学习Searching Exercises

* 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   )