   (if (member item lst)
       lst
       (nconc lst (list item))))
-
-;(defun list-meetings2 ()
-;  (interactive)
-;  (labels ((addmeeting (head meetings) 
-;                 (if (and (>= (length head) 4) (string-equal (substring head -4 nil ) ".txt"))
-;                         (unique-append head meetings)
-;                         meetings))))
-;  
 
 
 (defun list-meetings ()


(defun truncon ()
  (interactive)
  (setq truncate-lines t)
)

(defun truncoff ()

;;;; enable revbufs
(autoload 'revbufs "revbufs" "Revert changed buffers." t)

;; cscope -- not on all machines
;(ignore-errors (require 'xcscope))

;; ;; pymacs
;; (autoload 'pymacs-load "pymacs" nil t)
;; (autoload 'pymacs-eval "pymacs" nil t)
;; (autoload 'pymacs-apply "pymacs")
;; (autoload 'pymacs-call "pymacs")

;; (pymacs-load "bikeemacs" "brm-")
;; (brm-init)

;(autoload 'python-mode "python-mode" "Python editing mode." t)
;(setq auto-mode-alist
;      (cons '("\\.py$" . python-mode) auto-mode-alist))

;; ;;; AUCTex configurations
;; (ignore-errors
;;   (load-library "latex.el")
;;   (require 'tex-site)
;;   (setq TeX-auto-save t)
;;   (setq TeX-parse-self t)
;;   (setq-default TeX-master nil)
;;   (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
;;   (add-hook 'latex-mode-hook 'turn-on-reftex))   ; with Emacs latex mode

;; To enable syntax highlighting by default in all buffers, as well as
;; keeping the highlighting up to date as you edit the document.
