/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.360.2.7 by miles, Fri Aug 27 07:00:26 2004 UTC revision 1.360.2.8 by miles, Sat Sep 4 09:14:25 2004 UTC
# Line 1969  Uses the `derived-mode-parent' property Line 1969  Uses the `derived-mode-parent' property
1969                  (setq parent (get parent 'derived-mode-parent))))                  (setq parent (get parent 'derived-mode-parent))))
1970      parent))      parent))
1971    
1972    (defun find-tag-default ()
1973      "Determine default tag to search for, based on text at point.
1974    If there is no plausible default, return nil."
1975      (save-excursion
1976        (while (looking-at "\\sw\\|\\s_")
1977          (forward-char 1))
1978        (if (or (re-search-backward "\\sw\\|\\s_"
1979                                    (save-excursion (beginning-of-line) (point))
1980                                    t)
1981                (re-search-forward "\\(\\sw\\|\\s_\\)+"
1982                                   (save-excursion (end-of-line) (point))
1983                                   t))
1984            (progn (goto-char (match-end 0))
1985                   (buffer-substring-no-properties
1986                    (point)
1987                    (progn (forward-sexp -1)
1988                           (while (looking-at "\\s'")
1989                             (forward-char 1))
1990                           (point))))
1991          nil)))
1992    
1993  (defmacro with-syntax-table (table &rest body)  (defmacro with-syntax-table (table &rest body)
1994    "Evaluate BODY with syntax table of current buffer set to TABLE.    "Evaluate BODY with syntax table of current buffer set to TABLE.
1995  The syntax table of the current buffer is saved, BODY is evaluated, and the  The syntax table of the current buffer is saved, BODY is evaluated, and the

Legend:
Removed from v.1.360.2.7  
changed lines
  Added in v.1.360.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26