70 |
|
|
71 |
;;;###autoload |
;;;###autoload |
72 |
(defcustom add-log-mailing-address nil |
(defcustom add-log-mailing-address nil |
73 |
"*Electronic mail addresses of user, for inclusion in ChangeLog headers. |
"*Email addresses of user, for inclusion in ChangeLog headers. |
74 |
This defaults to the value of `user-mail-address'. In addition to |
This defaults to the value of `user-mail-address'. In addition to |
75 |
being a simple string, this value can also be a list. All elements |
being a simple string, this value can also be a list. All elements |
76 |
will be recognized as referring to the same user; when creating a new |
will be recognized as referring to the same user; when creating a new |
976 |
(goto-char (match-end 0))) |
(goto-char (match-end 0))) |
977 |
|
|
978 |
(defun change-log-get-method-definition () |
(defun change-log-get-method-definition () |
979 |
"For objective C, return the method name if we are in a method." |
"For Objective C, return the method name if we are in a method." |
980 |
(let ((change-log-get-method-definition-md "[")) |
(let ((change-log-get-method-definition-md "[")) |
981 |
(save-excursion |
(save-excursion |
982 |
(if (re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t) |
(if (re-search-backward "^@implementation\\s-*\\([A-Za-z_]*\\)" nil t) |
1022 |
|
|
1023 |
;;;###autoload |
;;;###autoload |
1024 |
(defun change-log-merge (other-log) |
(defun change-log-merge (other-log) |
1025 |
"Merge the contents of ChangeLog file OTHER-LOG with this buffer. |
"Merge the contents of change log file OTHER-LOG with this buffer. |
1026 |
Both must be found in Change Log mode (since the merging depends on |
Both must be found in Change Log mode (since the merging depends on |
1027 |
the appropriate motion commands). OTHER-LOG can be either a file name |
the appropriate motion commands). OTHER-LOG can be either a file name |
1028 |
or a buffer. |
or a buffer. |