aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/cpp.el
diff options
context:
space:
mode:
authorJuanma Barranquero2003-02-04 13:24:35 +0000
committerJuanma Barranquero2003-02-04 13:24:35 +0000
commita1506d2977a8c2eb982ad0b59416009cdfaa6f51 (patch)
tree3cbb868ad6eb3b188d5064389538c490c124d8be /lisp/progmodes/cpp.el
parentf1180544bb5ff44cdb45b8734734294b0a2fa7a4 (diff)
downloademacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.tar.gz
emacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.zip
Trailing whitepace deleted.
Diffstat (limited to 'lisp/progmodes/cpp.el')
-rw-r--r--lisp/progmodes/cpp.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index 6e4c8d1f457..310c789bb13 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -32,7 +32,7 @@
32;;; Todo: 32;;; Todo:
33 33
34;; Should parse "#if" and "#elif" expressions and merge the faces 34;; Should parse "#if" and "#elif" expressions and merge the faces
35;; somehow. 35;; somehow.
36 36
37;; Somehow it is sometimes possible to make changes near a read only 37;; Somehow it is sometimes possible to make changes near a read only
38;; area which you can't undo. Their are other strange effects in that 38;; area which you can't undo. Their are other strange effects in that
@@ -67,7 +67,7 @@
67 :type 'face 67 :type 'face
68 :group 'cpp) 68 :group 'cpp)
69 69
70(defcustom cpp-face-type 'light 70(defcustom cpp-face-type 'light
71 "*Indicate what background face type you prefer. 71 "*Indicate what background face type you prefer.
72Can be either light or dark for color screens, mono for monochrome 72Can be either light or dark for color screens, mono for monochrome
73screens, and none if you don't use a window system and don't have 73screens, and none if you don't use a window system and don't have
@@ -368,7 +368,7 @@ A prefix arg suppresses display of that buffer."
368 (cond ((eq cpp-unknown-face 'invisible) 368 (cond ((eq cpp-unknown-face 'invisible)
369 (cpp-make-overlay-hidden overlay)) 369 (cpp-make-overlay-hidden overlay))
370 ((eq cpp-unknown-face 'default)) 370 ((eq cpp-unknown-face 'default))
371 (t 371 (t
372 (overlay-put overlay 'face cpp-unknown-face))) 372 (overlay-put overlay 'face cpp-unknown-face)))
373 (if cpp-unknown-writable 373 (if cpp-unknown-writable
374 () 374 ()
@@ -461,7 +461,7 @@ A prefix arg suppresses display of that buffer."
461 461
462(defun cpp-edit-mode () 462(defun cpp-edit-mode ()
463 "Major mode for editing the criteria for highlighting cpp conditionals. 463 "Major mode for editing the criteria for highlighting cpp conditionals.
464Click on objects to change them. 464Click on objects to change them.
465You can also use the keyboard accelerators indicated like this: [K]ey." 465You can also use the keyboard accelerators indicated like this: [K]ey."
466 (kill-all-local-variables) 466 (kill-all-local-variables)
467 (buffer-disable-undo) 467 (buffer-disable-undo)
@@ -535,7 +535,7 @@ You can also use the keyboard accelerators indicated like this: [K]ey."
535 (eq write 'both)) 535 (eq write 'both))
536 (setq cpp-edit-list (delq entry cpp-edit-list) 536 (setq cpp-edit-list (delq entry cpp-edit-list)
537 entry nil)) 537 entry nil))
538 538
539 (if (> (length symbol) 39) 539 (if (> (length symbol) 39)
540 (insert (substring symbol 0 39) ": ") 540 (insert (substring symbol 0 39) ": ")
541 (insert (format "%39s: " symbol))) 541 (insert (format "%39s: " symbol)))
@@ -649,7 +649,7 @@ With optional argument ARG, make them writable iff ARG is positive."
649 (interactive 649 (interactive
650 (let ((symbol (cpp-choose-symbol))) 650 (let ((symbol (cpp-choose-symbol)))
651 (list symbol 651 (list symbol
652 (cpp-choose-face "False face" 652 (cpp-choose-face "False face"
653 (nth 2 (assoc symbol cpp-edit-list)))))) 653 (nth 2 (assoc symbol cpp-edit-list))))))
654 (setcar (nthcdr 2 (cpp-edit-list-entry-get-or-create symbol)) face) 654 (setcar (nthcdr 2 (cpp-edit-list-entry-get-or-create symbol)) face)
655 (cpp-edit-reset)) 655 (cpp-edit-reset))