Mercurial > emacs

comparison lisp/progmodes/idlwave.el @ 83308:63b7247f4be6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 70-73, 320-331) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-320 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-321 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-322 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-323 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-324 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-325 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-326 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-327 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-328 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-329 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-330 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-331 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-70 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-71 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-72 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-73 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-348
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 28 May 2005 21:04:38 +0000
parents 2006100ee57e f2892faa87d4
children e58cb448e07c
comparison
equal deleted inserted replaced
83307:21eea50897a7 83308:63b7247f4be6
1952 1952
1953 ;; Update the routine info with info about current buffer? 1953 ;; Update the routine info with info about current buffer?
1954 (idlwave-new-buffer-update) 1954 (idlwave-new-buffer-update)
1955 1955
1956 ;; Run the mode hook 1956 ;; Run the mode hook
1957 (run-hooks 'idlwave-mode-hook)) 1957 (run-mode-hooks 'idlwave-mode-hook))
1958 1958
1959 (defvar idlwave-setup-done nil) 1959 (defvar idlwave-setup-done nil)
1960 (defun idlwave-setup () 1960 (defun idlwave-setup ()
1961 (unless idlwave-setup-done 1961 (unless idlwave-setup-done
1962 (if (not (file-directory-p idlwave-config-directory)) 1962 (if (not (file-directory-p idlwave-config-directory))
3546 (idlwave-end-of-statement) 3546 (idlwave-end-of-statement)
3547 (if (> (forward-line 1) 0) (insert "\n"))))) 3547 (if (> (forward-line 1) 0) (insert "\n")))))
3548 (let ((pos (point))) 3548 (let ((pos (point)))
3549 (if idlwave-file-header 3549 (if idlwave-file-header
3550 (cond ((car idlwave-file-header) 3550 (cond ((car idlwave-file-header)
3551 (insert-file (car idlwave-file-header))) 3551 (insert-file-contents (car idlwave-file-header)))
3552 ((stringp (car (cdr idlwave-file-header))) 3552 ((stringp (car (cdr idlwave-file-header)))
3553 (insert (car (cdr idlwave-file-header)))))) 3553 (insert (car (cdr idlwave-file-header))))))
3554 (goto-char pos))) 3554 (goto-char pos)))
3555 3555
3556 (defun idlwave-default-insert-timestamp () 3556 (defun idlwave-default-insert-timestamp ()