;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or
;;; (at your option) any later version.
-;;;
+;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
-;;;
+;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software Foundation,
;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
(interactive)
(save-excursion
(or arg (progn
- (goto-char (point-max))
+ (goto-char (point-max))
(insert "\nNP: ")
- (insert-file np-file)))))
+ (insert-file np-file)))))
(trap
(require 'tramp)
(list (concat "\\<\\(\\~\\|\\)"
"\\(0\\(\\([wW]\\|\\)[xX][0-9a-fA-F]+\\|"
- "[wW][0-9]+\\)\\|"
- "\\([0-9]+\\(\\.[0-9]+\\|\\)"
- "\\([eE]\\(\\~\\|\\)"
- "[0-9]+\\|\\)\\)\\)")
+ "[wW][0-9]+\\)\\|"
+ "\\([0-9]+\\(\\.[0-9]+\\|\\)"
+ "\\([eE]\\(\\~\\|\\)"
+ "[0-9]+\\|\\)\\)\\)")
'(0 mdw-number-face))
;; --- And anything else is punctuation ---
;; --- Handle @/.../ for italics ---
;; (list "\\(@/\\)\\([^/]*\\)\\(/\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle @*...* for boldness ---
;; (list "\\(@\\*\\)\\([^*]*\\)\\(\\*\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle @`...' for literal syntax things ---
;; (list "\\(@`\\)\\([^']*\\)\\('\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle @<...> for nonterminals ---
;; (list "\\(@<\\)\\([^>]*\\)\\(>\\)"
- ;; '(1 font-lock-keyword-face)
- ;; '(3 font-lock-keyword-face))
+ ;; '(1 font-lock-keyword-face)
+ ;; '(3 font-lock-keyword-face))
;; --- Handle other @-commands ---
;; (list "@\\([^a-zA-Z]\\|[a-zA-Z]*\\)"
- ;; '(0 font-lock-keyword-face))
+ ;; '(0 font-lock-keyword-face))
;; --- Make sure we get comments properly ---
'(2 font-lock-string-face))
(list (concat "^\\([ \t]*#[ \t]*\\(\\("
preprocessor-keywords
- "\\)\\>\\|[0-9]+\\|$\\)\\)")
+ "\\)\\>\\|[0-9]+\\|$\\)\\)")
'(1 font-lock-keyword-face)))
message-mode-keywords)))
(turn-on-font-lock-if-enabled)