diff options
Diffstat (limited to 'lisp/emacs-lisp/chart.el')
| -rw-r--r-- | lisp/emacs-lisp/chart.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el index 708f41237b5..124ede17fd3 100644 --- a/lisp/emacs-lisp/chart.el +++ b/lisp/emacs-lisp/chart.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1996, 1998-1999, 2001, 2004-2005, 2007-2019 Free ;; Software Foundation, Inc. -;; Author: Eric M. Ludlam <zappo@gnu.org> +;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Version: 0.2 ;; Keywords: OO, chart, graph @@ -518,7 +518,7 @@ cons cells of the form (NAME . NUM). See `sort' for more details." (or (= (move-to-column x) x) (let ((p (point))) (indent-to x) - (remove-text-properties p (point) '(face)))))) + (remove-text-properties p (point) '(face nil)))))) (defun chart-zap-chars (n) "Zap up to N chars without deleting EOLs." @@ -704,7 +704,7 @@ SORT-PRED if desired." (cntlst nil)) (save-excursion (goto-char (point-min)) - (while (re-search-forward "\\-[A-Z][a-z][a-z] +\\(\\w+\\)@\\w+" nil t) + (while (re-search-forward "-[A-Z][a-z][a-z] +\\(\\w+\\)@\\w+" nil t) (let* ((nam (buffer-substring (match-beginning 1) (match-end 1))) (m (member nam nmlst))) (message "Scanned username %s" nam) |